From a8dc7a6c11477c789f91d6aed221b9e143ee9ee3 Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Sat, 12 Mar 2022 10:48:28 -0500
Subject: [PATCH] Improving FossilRepo and TiddlyWiki interactions.

---
 repository/TiddlyWiki/TiddlyWiki.class.st | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index b567abb..3bcb93b 100644
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@@ -58,6 +58,20 @@ TiddlyWiki >> addToConfigFile [
 	^ MarkupFile exportAsFileOn: self  configFile containing:(STON toStringPretty: newConfig)
 ]
 
+{ #category : #accessing }
+TiddlyWiki >> addUnversionedLargeTiddlersToRepo [
+
+	| stonfiles largeTiddlersFileReference repository |
+	repository := self repository.
+	stonfiles := (self file parent / 'largeTiddlers') files 
+		             select: [ :each | each fullName endsWith: '.ston' ].
+	largeTiddlersFileReference := stonfiles collect: [ :each | 
+		                              each fullName withoutPrefix:
+			                              repository local fullName , '/' ].
+	largeTiddlersFileReference do: [ :each | repository addUnversioned: each ].
+	^ largeTiddlersFileReference
+]
+
 { #category : #testing }
 TiddlyWiki >> belongsToLocalRepository [
 
@@ -509,6 +523,7 @@ TiddlyWiki >> resynchronize [
 	| repository return |
 	repository := self repository.
 	repository update.
+	repository syncUnversioned.
 	return := Dictionary new 
 		at: 'status' put: self addRecentChangesToRepo.
 	self exportSTONFiles.