Implementing repository detection.

2022-03-03 17:50:56 -05:00 · 2022-03-03 17:50:56 -05:00 · 35788f5ca9
parent fe40b438d0
commit 35788f5ca9
1 changed files with 12 additions and 0 deletions
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@ -95,6 +95,18 @@ TiddlyWiki >> contentTiddlersWithoutLargeTiddlers [
 	^ content.
 ]

+{ #category : #accessing }
+TiddlyWiki >> detectRepository [
+
+	| folder folderItems |
+	folder := self file parent.
+	folderItems := folder children.
+	[(folderItems select: [ :path | path fullName endsWith: '.fossil' ]) isEmpty]
+		whileTrue: [folder := folder parent.
+			folderItems := folder children.].
+	^ folder
+]
+
 { #category : #accessing }
 TiddlyWiki >> exportContentShadowAndLargeTiddlersSTONFiles [