From d76aacfc8182ee9f3656a63730ff40fe884d6918 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Wed, 1 Sep 2021 18:58:15 -0500
Subject: [PATCH] Serializing tiddlers in STON.

---
 repository/TiddlyWiki/TiddlyWiki.class.st | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index 3b91d40..10595b5 100644
--- 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