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

Removing unnecessary TiddlyWiki functionalities.

Browse Source
This commit is contained in:
ruidajo 2022-03-12 10:47:27 -05:00
parent 07b3fced0a
commit 2e5894a780
1 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
repository/Fossil/FossilRepo.class.st
View File

@ -72,22 +72,6 @@ FossilRepo >> addFiles: aCollection [
aCollection do: [ :each | self add: each ]. 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 } { #category : #accessing }
FossilRepo >> addUnversioned: aFileRelativePathFullname [ 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 } { #category : #authentication }
FossilRepo >> authTokenFor: anUserName withPassword: passwordString [ FossilRepo >> authTokenFor: anUserName withPassword: passwordString [
^ ((self loginAs: anUserName withPassword: passwordString) at: 'payload') at: 'authToken' ^ ((self loginAs: anUserName withPassword: passwordString) at: 'payload') at: 'authToken'
@ -507,13 +478,6 @@ FossilRepo >> update [
^ self command: 'update' ^ self command: 'update'
] ]
{ #category : #accessing }
FossilRepo >> updateAndRebuildTiddlersJSONFromWiki: aTiddlywiki [
self update; exportSTONUnversioned.
^ aTiddlywiki rebuildTiddlersJSON.
]
{ #category : #authentication } { #category : #authentication }
FossilRepo >> whoAmI [ FossilRepo >> whoAmI [
^ NeoJSONReader fromString: (self jsonDataFor: 'whoami') ^ NeoJSONReader fromString: (self jsonDataFor: 'whoami')