Implementing repository detection.
This commit is contained in:
parent
fe40b438d0
commit
35788f5ca9
@ -95,6 +95,18 @@ TiddlyWiki >> contentTiddlersWithoutLargeTiddlers [
|
|||||||
^ content.
|
^ 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 }
|
{ #category : #accessing }
|
||||||
TiddlyWiki >> exportContentShadowAndLargeTiddlersSTONFiles [
|
TiddlyWiki >> exportContentShadowAndLargeTiddlersSTONFiles [
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user