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

Improving exporting tiddlers files.

Browse Source
This commit is contained in:
ruidajo 2022-03-03 14:53:00 -05:00
parent b0ca67d17f
commit fe40b438d0
1 changed files with 27 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,7 +46,7 @@ TiddlyWiki >> changesAfter: aDateString [
| recent created modified wiki aDate | | recent created modified wiki aDate |
aDate := aDateString asZTimestamp. aDate := aDateString asZTimestamp.
wiki := self withoutImages withoutPDFs contentTiddlers. wiki := self contentTiddlersWithoutLargeTiddlers.
created := wiki select: [ :tiddler | tiddler created > aDate ]. created := wiki select: [ :tiddler | tiddler created > aDate ].
modified := wiki select: [ :tiddler | tiddler modified isNotNil modified := wiki select: [ :tiddler | tiddler modified isNotNil
and: [ tiddler modified > aDate ] ]. and: [ tiddler modified > aDate ] ].
@ -81,7 +81,7 @@ TiddlyWiki >> contentTiddlers [
] ]
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> exportContentTiddlers [ TiddlyWiki >> contentTiddlersWithoutLargeTiddlers [
| content | | content |
content := OrderedCollection new. content := OrderedCollection new.
@ -92,6 +92,20 @@ content
addAll: (self contentTiddlers select: [ :each | each isXTiddlerDictionary ]); addAll: (self contentTiddlers select: [ :each | each isXTiddlerDictionary ]);
addAll: (self contentTiddlers select: [ :each | each isTextPlain ]); addAll: (self contentTiddlers select: [ :each | each isTextPlain ]);
addAll: (self contentTiddlers select: [ :each | each isMarkdown ]). addAll: (self contentTiddlers select: [ :each | each isMarkdown ]).
^ content.
]
{ #category : #accessing }
TiddlyWiki >> exportContentShadowAndLargeTiddlersSTONFiles [
self exportSTONFiles; exportLargeTiddlers
]
{ #category : #accessing }
TiddlyWiki >> exportContentTiddlers [
| content |
content := self contentTiddlersWithoutLargeTiddlers.
^ content do: [ :each | ^ content do: [ :each |
each exportSTONFileInto: 'tiddlers' ]. each exportSTONFileInto: 'tiddlers' ].
] ]
@ -155,9 +169,9 @@ TiddlyWiki >> exportSTONFiles [
stonFile := self tiddlersJSONFile withoutExtension , 'ston' ]. stonFile := self tiddlersJSONFile withoutExtension , 'ston' ].
shadowFile := self largeTiddlersFolder / '_shadow.ston'. shadowFile := self largeTiddlersFolder / '_shadow.ston'.
wikiTemp := self copy. wikiTemp := self copy.
wikiTemp tiddlers: self contentTiddlers. wikiTemp tiddlers: self contentTiddlersWithoutLargeTiddlers.
wikiTemp := wikiTemp withoutImages. "wikiTemp := wikiTemp withoutImages.
wikiTemp := wikiTemp withoutPDFs. wikiTemp := wikiTemp withoutPDFs."
GrafoscopioUtils exportAsSton: self shadow on: shadowFile. GrafoscopioUtils exportAsSton: self shadow on: shadowFile.
^ GrafoscopioUtils exportAsSton: wikiTemp on: stonFile ^ GrafoscopioUtils exportAsSton: wikiTemp on: stonFile
] ]