Serializing tiddlers in STON.

2021-09-01 18:58:15 -05:00 · 2021-09-01 18:58:15 -05:00 · d76aacfc81
parent 6803915e06
commit d76aacfc81
1 changed files with 7 additions and 0 deletions
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@ -14,6 +14,13 @@ Class {
 	#category : 'TiddlyWiki-Model'
 }

+{ #category : 'accessing' }
+TiddlyWiki >> exportSTONTiddlersFile [
+	| stonFile |
+	stonFile := self tiddlersJSONFile withoutExtension, 'ston'.
+	^ MarkupFile exportAsFileOn: stonFile containing:(STON toStringPretty: self) 
+]
+
 { #category : 'accessing' }
 TiddlyWiki >> file [
 	^ file