Improving rebuilded tiddlers JSON.

repository/TiddlyWiki/Tiddler.class.st

@@ -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
 ]
 

repository/TiddlyWiki/TiddlyWiki.class.st

@@ -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;