Fixing tiddler exporter to JSON and creating a rebuilded common tiddlers exporter for JSON format.

repository/TiddlyWiki/Tiddler.class.st

@@ -167,8 +167,10 @@ Tiddler >> deleteUid [
 
 { #category : #accessing }
 Tiddler >> exportJSONFile [
-	| jsonFile |
+	
-	jsonFile := self wiki folder / 'tiddlers' / (self title asDashedLowercase,'.', self created asString, '.json').
+	| jsonFile folder |
+	folder := self wiki folder.
+	jsonFile := folder / 'tiddlers' / ((self fileName removeSuffix: '.ston'), '.json').
 	^ MarkupFile exportAsFileOn: jsonFile containing:self asJson
 ]
 

repository/TiddlyWiki/TiddlyWiki.class.st

@@ -215,6 +215,16 @@ TiddlyWiki >> exportJSONFileOptimized [
 		runAndWaitOnExitDo: [ :process :outString  | ^ self jsonFile ]
 ]
 
+{ #category : #accessing }
+TiddlyWiki >> exportJSONFromRebuildedCommonTiddlers [
+
+	| rebuildedTiddlersJSON dateNowString |
+	dateNowString := (DateAndTime now asLocalStringYMDHM copyReplaceAll: ':' with: '-') copyReplaceAll: ' ' with: '-'.
+	rebuildedTiddlersJSON := '[', (',' join: (self rebuildTiddlersWithoutLargeTiddlers collect: [ :each | each asJsonString ])), ']'.
+	^ MarkupFile exportAsFileOn: self folder / 'rebuildedCommonTiddlers', dateNowString, 'json' containing: rebuildedTiddlersJSON
+	
+]
+
 { #category : #accessing }
 TiddlyWiki >> exportJSONSubtiddlers: subtiddlersCollection [
 
@@ -534,6 +544,7 @@ TiddlyWiki >> rebuildTiddlersWithoutLargeTiddlers [
 	stonTiddlers
 		addAll: (contentTiddlersFiles 
 			collect:[ :each | STONJSON fromString: each contents ]).
+	stonTiddlers collect: [ :tiddler | tiddler wiki: self ].
 	^ stonTiddlers
 ]