From a1270d6ca257f74d0f47fba5d4038297e45097d9 Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Wed, 12 Oct 2022 20:26:48 -0500
Subject: [PATCH] Creating TWServer and modifying tiddlers by tag JSON
 exporters.

---
 repository/TiddlyWiki/TWServer.class.st   | 41 +++++++++++++++++++++++
 repository/TiddlyWiki/TiddlyWiki.class.st |  6 ++--
 2 files changed, 44 insertions(+), 3 deletions(-)
 create mode 100644 repository/TiddlyWiki/TWServer.class.st

diff --git a/repository/TiddlyWiki/TWServer.class.st b/repository/TiddlyWiki/TWServer.class.st
new file mode 100644
index 0000000..3c71bad
--- /dev/null
+++ b/repository/TiddlyWiki/TWServer.class.st
@@ -0,0 +1,41 @@
+Class {
+	#name : #TWServer,
+	#superclass : #Object,
+	#instVars : [
+		'wikis'
+	],
+	#category : #TiddlyWiki
+}
+
+{ #category : #'instance creation' }
+TWServer class >> new [
+
+	| instance |
+	instance := super new.
+	^ instance
+		wikis: Dictionary new
+	
+]
+
+{ #category : #'export - json' }
+TWServer >> exportTiddlersFrom: aWikiName tagged: aTag into: aFolder [ 
+
+	| wiki |
+	wiki := wikis at: aWikiName.
+	^ wiki exportJSONTiddlersTagged: aTag in: aFolder
+]
+
+{ #category : #accessing }
+TWServer >> wikiNames [
+
+	| return |
+	return := OrderedCollection new.
+	wikis keysDo: [ :key | return add: key ].
+	^ return
+]
+
+{ #category : #accessing }
+TWServer >> wikis: aTiddlyWikisDictionary [
+
+	wikis := aTiddlyWikisDictionary
+]
diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index 2d7d4df..22d2a88 100644
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@@ -269,15 +269,15 @@ TiddlyWiki >> exportJSONSubtiddlers: subtiddlersCollection as: aName [
 	^ MarkupFile exportAsFileOn: self file parent / aName, 'json' containing: (self 	jsonSubtiddlers: subtiddlersCollection)
 ]
 
-{ #category : #accessing }
+{ #category : #'export - json' }
 TiddlyWiki >> exportJSONTiddlersTagged: aTag in: aFolder [
 
 	| dateNowString |
 	dateNowString := (DateAndTime now asLocalStringYMDHM copyReplaceAll: ':' with: '-') copyReplaceAll: ' ' with: '-'.
-	^ self exportJSONTiddlersTagged: aTag in: aFolder named: (self name, '-', aTag, '-', dateNowString)
+	^ self exportJSONTiddlersTagged: aTag in: aFolder named: (self name, '-tagged-', aTag, '-', dateNowString)
 ]
 
-{ #category : #accessing }
+{ #category : #'export - json' }
 TiddlyWiki >> exportJSONTiddlersTagged: aTag in: aFolder named: aFileName [
 
 	| taggedTiddlers jsonString |