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

Improving rebuild tiddlers from STON files.

Browse Source
This commit is contained in:
ruidajo 2022-03-11 01:19:03 -05:00
parent 53aeaf9240
commit 57401052b4
1 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -415,19 +415,14 @@ TiddlyWiki >> printOn: aStream [
{ #category : #accessing }
TiddlyWiki >> rebuildTiddlers [
| stonTiddlers contentTiddlersFiles shadowTiddlersFile |
| stonTiddlers shadowTiddlersFile |
shadowTiddlersFile := self largeTiddlersFolder asFileReference children
select: [ :each | each basename beginsWith: '_shadow.ston' ].
contentTiddlersFiles := self tiddlersFolder files
select: [ :each | each basename endsWith: 'ston' ].
stonTiddlers := OrderedCollection new.
stonTiddlers
addAll: (((self largeTiddlersFolder files)
reject: [ :each | each basename beginsWith: '_shadow.ston' ])
collect: [ :each | STONJSON fromString: each contents ]);
addAll: (contentTiddlersFiles collect:[ :each | STONJSON fromString: each contents ]).
addAll: self rebuildTiddlersWithoutShadows ;
addAll: (STON fromString:shadowTiddlersFile first contents).
^ stonTiddlers
]
@ -435,11 +430,12 @@ TiddlyWiki >> rebuildTiddlers [
TiddlyWiki >> rebuildTiddlersJSON [
self tiddlers: self rebuildTiddlersWithoutShadows.
^ self exportJSONSubtiddlers: (self rebuildTiddlers asArray) as: 'rebuildedTiddlers'.
^ self exportJSONSubtiddlers:
(self rebuildTiddlersWithoutShadows asArray) as: 'rebuildedTiddlers'.
]
{ #category : #accessing }
TiddlyWiki >> rebuildTiddlersWithoutShadows [
TiddlyWiki >> rebuildTiddlersWithoutLargeTiddlers [
| stonTiddlers contentTiddlersFiles |
contentTiddlersFiles := self tiddlersFolder files
@ -447,10 +443,23 @@ TiddlyWiki >> rebuildTiddlersWithoutShadows [
stonTiddlers := OrderedCollection new.
stonTiddlers
addAll: (((self largeTiddlersFolder files)
addAll: (contentTiddlersFiles
collect:[ :each | STONJSON fromString: each contents ]).
^ stonTiddlers
]
{ #category : #accessing }
TiddlyWiki >> rebuildTiddlersWithoutShadows [
| stonTiddlers largeTiddlers |
largeTiddlers := (((self largeTiddlersFolder files)
reject: [ :each | each basename beginsWith: '_shadow.ston' ])
collect: [ :each | STONJSON fromString: each contents ]);
addAll: (contentTiddlersFiles collect:[ :each | STONJSON fromString: each contents ]).
collect: [ :each | STONJSON fromString: each contents ]).
stonTiddlers := OrderedCollection new.
stonTiddlers
addAll: largeTiddlers;
addAll: self rebuildTiddlersWithoutLargeTiddlers.
^ stonTiddlers
]