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