From 2e5894a7804d30ef1792cdb4f6f404425be4482f Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Sat, 12 Mar 2022 10:47:27 -0500
Subject: [PATCH] Removing unnecessary TiddlyWiki functionalities.

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

diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st
index 7b6fed1..345c922 100644
--- a/repository/Fossil/FossilRepo.class.st
+++ b/repository/Fossil/FossilRepo.class.st
@@ -72,22 +72,6 @@ FossilRepo >> addFiles: aCollection [
 	aCollection do: [ :each | self add: each ].
 ]
 
-{ #category : #accessing }
-FossilRepo >> addRecentChangesFromWiki: aTiddlywiki [
-
-	| docsSton docsStonSanitized recentTiddlers |
-	aTiddlywiki 
-		exportJSONFile; 
-		importJSONFile.
-	recentTiddlers := aTiddlywiki 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 >> addUnversioned: aFileRelativePathFullname [
 
@@ -95,19 +79,6 @@ FossilRepo >> addUnversioned: aFileRelativePathFullname [
 
 ]
 
-{ #category : #accessing }
-FossilRepo >> addUnversionedLargeTiddlersFromWiki: tiddlywiki [
-
-	| stonfiles largeTiddlersFileReference |
-	stonfiles := (tiddlywiki file parent / 'largeTiddlers') files 
-		             select: [ :each | each fullName endsWith: '.ston' ].
-	largeTiddlersFileReference := stonfiles collect: [ :each | 
-		                              each fullName withoutPrefix:
-			                              self local fullName , '/' ].
-	largeTiddlersFileReference do: [ :each | self addUnversioned: each ].
-	^ largeTiddlersFileReference
-]
-
 { #category : #authentication }
 FossilRepo >> authTokenFor: anUserName withPassword: passwordString [
 	^ ((self loginAs: anUserName withPassword: passwordString) at: 'payload') at: 'authToken'
@@ -507,13 +478,6 @@ FossilRepo >> update [
 	^ self command: 'update'
 ]
 
-{ #category : #accessing }
-FossilRepo >> updateAndRebuildTiddlersJSONFromWiki: aTiddlywiki [
-
-	self update; exportSTONUnversioned.
-	^ aTiddlywiki rebuildTiddlersJSON. 
-]
-
 { #category : #authentication }
 FossilRepo >> whoAmI [
 	^ NeoJSONReader fromString: (self jsonDataFor: 'whoami')