diff --git a/repository/Fossil/FossilRepo.class.st b/repository/Fossil/FossilRepo.class.st index 800bbcc..be98059 100644 --- a/repository/Fossil/FossilRepo.class.st +++ b/repository/Fossil/FossilRepo.class.st @@ -124,6 +124,23 @@ FossilRepo >> createPage: pageName [ ^ NeoJSONReader fromString: (self jsonWikiDataFor: 'create/', pageName) ] +{ #category : #operation } +FossilRepo >> downloadZippedInto: aFolder [ + | zippedFileName zippedFile | + self remote ifNil: [ ^ self ]. + zippedFileName := self remoteName , '.zip'. + zippedFile := FileLocator temp / zippedFileName. + GrafoscopioUtils + downloadingFrom: self remote / 'zip' + withMessage: 'Downloading zipped repository...' + into: aFolder. + aFolder / 'zip' renameTo: zippedFileName. + ^ zippedFile + + + +] + { #category : #wiki } FossilRepo >> fetchPage: pageName [ ^ NeoJSONReader fromString: (self jsonWikiDataFor: 'get/', pageName) @@ -275,6 +292,12 @@ FossilRepo >> remote: anUrlString [ remote := anUrlString asUrl ] +{ #category : #utilities } +FossilRepo >> remoteName [ + self remote ifNil: [ ^ self ]. + ^ self remote asUrl segments last +] + { #category : #utilities } FossilRepo >> sanitize: aFileNameWithRelativePath [ "I dicern if my argument concerns to a versioned or an unversioned file,