Offray/TiddlyWikiPharo
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Improving FossilRepo and TiddlyWiki interactions.

Browse Source
This commit is contained in:
ruidajo 2022-03-12 10:48:28 -05:00
parent f44e2dfece
commit a8dc7a6c11
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
repository/TiddlyWiki/TiddlyWiki.class.st
View File

@ -58,6 +58,20 @@ TiddlyWiki >> addToConfigFile [
^ MarkupFile exportAsFileOn: self configFile containing:(STON toStringPretty: newConfig) ^ 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 } { #category : #testing }
TiddlyWiki >> belongsToLocalRepository [ TiddlyWiki >> belongsToLocalRepository [
@ -509,6 +523,7 @@ TiddlyWiki >> resynchronize [
| repository return | | repository return |
repository := self repository. repository := self repository.
repository update. repository update.
repository syncUnversioned.
return := Dictionary new return := Dictionary new
at: 'status' put: self addRecentChangesToRepo. at: 'status' put: self addRecentChangesToRepo.
self exportSTONFiles. self exportSTONFiles.