From b62c642ccd0c16c56529302926ca8ec3ce5211ff Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 4 Jul 2023 10:58:12 -0500
Subject: [PATCH] Improving Tiddlers JSON export.

---
 repository/TiddlyWiki/OrderedDictionary.extension.st | 2 ++
 repository/TiddlyWiki/TWSeed.class.st                | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/repository/TiddlyWiki/OrderedDictionary.extension.st b/repository/TiddlyWiki/OrderedDictionary.extension.st
index 5882164..5baab10 100644
--- a/repository/TiddlyWiki/OrderedDictionary.extension.st
+++ b/repository/TiddlyWiki/OrderedDictionary.extension.st
@@ -7,6 +7,8 @@ OrderedDictionary >> asTiddler [
 	tiddlerFields := response class slotNames copyWithoutAll:  #('wiki' 'customFields').
 	self keysAndValuesDo: [ :key :value |
 		(tiddlerFields includes: key)
+			ifFalse: [ 
+				response customFields at: key put: value ]
 			ifTrue: [ response writeSlotNamed: key value: value ]
 	].
 	^ response
diff --git a/repository/TiddlyWiki/TWSeed.class.st b/repository/TiddlyWiki/TWSeed.class.st
index 15d5345..0149124 100644
--- a/repository/TiddlyWiki/TWSeed.class.st
+++ b/repository/TiddlyWiki/TWSeed.class.st
@@ -57,7 +57,7 @@ TWSeed class >> initialize [
 { #category : #accessing }
 TWSeed class >> install: seedName into: folder as: shortName [
 
-	| file url seedFile subfolder wiki |
+	| file url seedFile subfolder |
 	seedFile := self selectSeed: seedName.
 	subfolder := (folder / shortName) ensureCreateDirectory.
 	file := subfolder / 'index.html'.
@@ -70,7 +70,7 @@ TWSeed class >> install: seedName into: folder as: shortName [
 		].
 	url := seedFile demo.
 	url asUrl saveContentsToFile: file.
-	^ wiki := TiddlyWiki new
+	^ TiddlyWiki new
 		file: file;
 		name: shortName.
 ]