Improving exporting tiddlers files.

repository/TiddlyWiki/TiddlyWiki.class.st

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