From bfba0fe43decb393168823a6d8ecf3a2979b2ebe Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Thu, 3 Mar 2022 16:05:14 -0500
Subject: [PATCH] Refactoring TiddlyWiki and fossil repo interactions.

---
 repository/Fossil/FossilRepo.class.st | 36 +++------------------------
 1 file changed, 4 insertions(+), 32 deletions(-)

diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st
index 16db58c..aa07b66 100644
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@@ -73,22 +73,6 @@ FossilRepo >> addFiles: aCollection [
 	aCollection do: [ :each | self add: each ].
 ]
 
-{ #category : #accessing }
-FossilRepo >> addRecentChangesFromSelfWiki [
-
-	| docsSton docsStonSanitized recentTiddlers |
-	self tiddlywiki
-		exportJSONFile; 
-		importJSONFile.
-	recentTiddlers := self tiddlywiki changesAfter: self checkoutDateAndTime.
-	docsSton := recentTiddlers collect: [:each | each exportSTONFile].
-	"Collecting tiddlers file reference as string and adding to the repo"
-	docsStonSanitized := docsSton collect: [ :each | 
-		(each fullName removePrefix: self localRoot) allButFirst ].
-	docsStonSanitized do: [ :each | self add: each ].
-	^ self status
-]
-
 { #category : #accessing }
 FossilRepo >> addRecentChangesFromWiki: aTiddlywiki [
 
@@ -419,18 +403,6 @@ FossilRepo >> status [
 	^ self command: 'status'
 ]
 
-{ #category : #accessing }
-FossilRepo >> tiddlywiki [
-
-	^ tiddlywiki
-]
-
-{ #category : #accessing }
-FossilRepo >> tiddlywiki: aTiddlyWiki [
-
-	tiddlywiki := aTiddlyWiki
-]
-
 { #category : #accessing }
 FossilRepo >> update [
 
@@ -438,10 +410,10 @@ FossilRepo >> update [
 ]
 
 { #category : #accessing }
-FossilRepo >> updateAndRebuildTiddlersJSON [
+FossilRepo >> updateAndRebuildTiddlersJSONFromWiki: aTiddlywiki [
 
 	self update; uvExportSTON.
-	^ self tiddlywiki rebuildTiddlersJSON. 
+	^ aTiddlywiki rebuildTiddlersJSON. 
 ]
 
 { #category : #accessing }
@@ -452,10 +424,10 @@ FossilRepo >> uvAdd: aFileRelativePathFullname [
 ]
 
 { #category : #accessing }
-FossilRepo >> uvAddLargeTiddlers [
+FossilRepo >> uvAddLargeTiddlersFromWiki: aTiddlywiki [
 
 	| stonfiles largeTiddlersFileReference |
-	stonfiles := (self tiddlywiki file parent / 'largeTiddlers') files 
+	stonfiles := (aTiddlywiki file parent / 'largeTiddlers') files 
 		select: [ :each | each fullName endsWith: '.ston' ].
 	largeTiddlersFileReference := stonfiles 
 		collect: [ :each | each fullName withoutPrefix: (self local fullName, '/') ].