Improving FossilRepo and TiddlyWiki interactions.
This commit is contained in:
parent
f44e2dfece
commit
a8dc7a6c11
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user