Offray/TiddlyWikiPharo
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Improving configuration dictionaries.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-05-30 11:09:12 -05:00
parent aee8bc24d4
commit 9c7e1c5291
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
repository/TiddlyWiki/TiddlyWiki.class.st
View File

@ -100,7 +100,7 @@ TiddlyWiki >> addToConfigFile [
| cleaned newConfig | | cleaned newConfig |
cleaned := self copy. cleaned := self copy.
cleaned tiddlers: nil. cleaned tiddlers: nil.
newConfig := self configDictonary newConfig := self configDictionary
at: cleaned name put: cleaned; at: cleaned name put: cleaned;
yourself. yourself.
^ MarkupFile exportAsFileOn: self configFile containing:(STON toStringPretty: newConfig) ^ MarkupFile exportAsFileOn: self configFile containing:(STON toStringPretty: newConfig)
@ -164,7 +164,7 @@ TiddlyWiki >> commonTiddlers [
] ]
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> configDictonary [ TiddlyWiki >> configDictionary [
^ STONJSON fromString: self configFile contents. ^ STONJSON fromString: self configFile contents.
] ]
@ -562,7 +562,7 @@ TiddlyWiki >> largeTiddlersFolderName [
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> loadFromConfig: wikiname [ TiddlyWiki >> loadFromConfig: wikiname [
^ (self configDictonary at: wikiname) importJSONFile. ^ (self configDictionary at: wikiname) importJSONFile.
] ]
@ -613,12 +613,17 @@ TiddlyWiki >> networkView [
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> networkViewBackground [ TiddlyWiki >> networkViewBackground [
^ self configDictonary at: 'networkView' at: 'background' ifAbsentPut: [Color lightGray] ^ self configDictionary at: 'networkView' at: 'background' ifAbsentPut: [Color lightGray]
]
{ #category : #accessing }
TiddlyWiki >> networkViewBackground: aColor [
self configDictionary at: 'networkView' at: 'background' put: aColor
] ]
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> networkViewForeground [ TiddlyWiki >> networkViewForeground [
^ self configDictonary at: 'networkView' at: 'background' ifAbsentPut: [Color blue] ^ self configDictionary at: 'networkView' at: 'foreground' ifAbsentPut: [Color blue]
] ]
{ #category : #accessing } { #category : #accessing }