Improving Tiddlers JSON export.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-07-04 10:58:12 -05:00
parent 14ecfa16f7
commit b62c642ccd
2 changed files with 4 additions and 2 deletions

View File

@ -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

View File

@ -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.
]