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

Improving rebuilded tiddlers JSON.

Browse Source
This commit is contained in:
ruidajo 2022-03-08 18:41:54 -05:00
parent 251f5d3426
commit 7802cfe8f5
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
repository/TiddlyWiki/Tiddler.class.st
View File

@ -152,11 +152,10 @@ Tiddler >> exportSTONFile [
{ #category : #accessing }
Tiddler >> exportSTONFileInto: subfolder [
| stonFile output dashedTitle sanitized date |
| stonFile output dashedTitle sanitized |
dashedTitle := '-' join: (self title substrings collect: [ :each | each ]).
sanitized := dashedTitle copyWithoutAll: #($¿ $? $! $¡ $/).
date := self uid.
stonFile := self wiki file parent / subfolder / (sanitized, '--', date, '.ston').
stonFile := self wiki file parent / subfolder / (sanitized, '--', self uid, '.ston').
^ MarkupFile exportAsFileOn: stonFile containing: self asStonStringPretty
]

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

@ -427,7 +427,6 @@ TiddlyWiki >> rebuildTiddlers [
addAll: (((self largeTiddlersFolder files)
reject: [ :each | each basename beginsWith: '_shadow.ston' ])
collect: [ :each | STONJSON fromString: each contents ]);
addAll: (STON fromString:shadowTiddlersFile first contents);
addAll: (contentTiddlersFiles collect:[ :each | STONJSON fromString: each contents ]).
^ stonTiddlers
]
@ -483,11 +482,12 @@ TiddlyWiki >> resynchronize [
| repository |
self
exportJSONFileOptimized;
exportJSONFile;
importJSONFile.
repository := self repository.
repository update.
self exportContentTiddlers.
self exportLargeTiddlers.
repository addRecentChangesFromWiki: self.
^ Dictionary new
at: 'status' put: repository status;