From 46565aa522bb0b0f32dee5d6e21113646bb23434 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 1 Jul 2024 20:42:59 -0500
Subject: [PATCH] Improving tiddlers exportation.

---
 repository/TiddlyWiki/Tiddler.class.st    | 15 ++++++++++++++-
 repository/TiddlyWiki/TiddlyWiki.class.st | 16 +++++++++++++++-
 2 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/repository/TiddlyWiki/Tiddler.class.st b/repository/TiddlyWiki/Tiddler.class.st
index a040b07..902297a 100644
--- a/repository/TiddlyWiki/Tiddler.class.st
+++ b/repository/TiddlyWiki/Tiddler.class.st
@@ -214,7 +214,10 @@ Tiddler >> exportSTONFile [
 { #category : #accessing }
 Tiddler >> exportSTONFileInto: subfolder [
 	
-	| stonFile |
+	| stonFile tiddlersSubfolder |
+	tiddlersSubfolder := self wiki folder / subfolder.
+	tiddlersSubfolder exists
+		ifFalse: [ tiddlersSubfolder ensureCreateDirectory ].
 	stonFile := self wiki folder / subfolder / self fileName.
 	^ MarkupFile exportAsFileOn: stonFile containing: self asStonStringPretty
 ]
@@ -537,6 +540,16 @@ Tiddler >> tagsAsString [
 	^ response contents
 ]
 
+{ #category : #accessing }
+Tiddler >> tagsReformating [
+	| response |
+	self tags class ~= ByteString ifTrue: [ ^ self ].
+	response := Set new.
+	response add: self tags.
+	self tags: response.
+
+]
+
 { #category : #accessing }
 Tiddler >> text [
 
diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index dd5be0c..3cc7ceb 100644
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@@ -493,6 +493,18 @@ TiddlyWiki >> importJSONLink [
 	^ self fromString: self remoteTiddlersContentsString
 ]
 
+{ #category : #accessing }
+TiddlyWiki >> importSTONFilesFrom: aFolder [
+	| tiddlerFiles |
+	self folder: aFolder parent.
+	tiddlerFiles := aFolder children 
+		select: [ :localFile | localFile basename endsWith: '.ston' ].
+	self tiddlers: (tiddlerFiles collect: [ :each | | tempTiddler| 
+		tempTiddler := STON fromString: each contents.
+		tempTiddler wiki: self.
+		tempTiddler])
+]
+
 { #category : #accessing }
 TiddlyWiki >> installJsonExporter [
 	
@@ -718,9 +730,11 @@ TiddlyWiki >> oldestCreatedTiddler [
 
 { #category : #accessing }
 TiddlyWiki >> printOn: aStream [
+	| printName |
+	printName := self name ifNil: ['unamed'].
 	super printOn: aStream.
 	aStream
-		nextPutAll: '( ', self name ,' )'
+		nextPutAll: '( ', printName ,' )'
 ]
 
 { #category : #accessing }