Improving Tiddlers JSON export.
This commit is contained in:
parent
14ecfa16f7
commit
b62c642ccd
@ -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
|
||||
|
@ -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.
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user