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