Refactoring.
This commit is contained in:
parent
0d0f17bdb7
commit
73d501615d
@ -18,14 +18,18 @@ Class {
|
|||||||
|
|
||||||
{ #category : 'accessing' }
|
{ #category : 'accessing' }
|
||||||
TiddlyWiki >> addToConfigFile [
|
TiddlyWiki >> addToConfigFile [
|
||||||
| configDict cleaned |
|
| cleaned |
|
||||||
configDict := STONJSON fromString: self configFile contents.
|
|
||||||
cleaned := self copy.
|
cleaned := self copy.
|
||||||
cleaned tiddlers: nil.
|
cleaned tiddlers: nil.
|
||||||
configDict
|
self configDictonary
|
||||||
at: cleaned name put: cleaned;
|
at: cleaned name put: cleaned;
|
||||||
yourself.
|
yourself.
|
||||||
MarkupFile exportAsFileOn: self configFile containing:(STON toStringPretty: configDict)
|
MarkupFile exportAsFileOn: self configFile containing:(STON toStringPretty: self configDictonary)
|
||||||
|
]
|
||||||
|
|
||||||
|
{ #category : 'accessing' }
|
||||||
|
TiddlyWiki >> configDictonary [
|
||||||
|
^ STONJSON fromString: self configFile contents.
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : 'accessing' }
|
{ #category : 'accessing' }
|
||||||
@ -79,6 +83,12 @@ TiddlyWiki >> importJSONFile [
|
|||||||
])
|
])
|
||||||
]
|
]
|
||||||
|
|
||||||
|
{ #category : 'accessing' }
|
||||||
|
TiddlyWiki >> loadFromConfig: wikiname [
|
||||||
|
self configDictonary
|
||||||
|
|
||||||
|
]
|
||||||
|
|
||||||
{ #category : 'accessing' }
|
{ #category : 'accessing' }
|
||||||
TiddlyWiki >> local [
|
TiddlyWiki >> local [
|
||||||
^ self file
|
^ self file
|
||||||
|
Loading…
Reference in New Issue
Block a user