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

Pinning NeoJSON versions to make it installable on GToolkit.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-04-01 17:10:56 -05:00
parent 96155e19d4
commit 66b9c46e80
2 changed files with 1 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
repository/BaselineOfFossil/BaselineOfFossil.class.st
View File

@ -16,7 +16,7 @@ BaselineOfFossil >> baseline: spec [
do: [ do: [
"Dependencies" "Dependencies"
spec spec
baseline: 'NeoJSON' with: [ spec repository: 'github://svenvc/NeoJSON/repository' ]; baseline: 'NeoJSON' with: [ spec repository: 'github://svenvc/NeoJSON:v17/repository' ];
baseline: 'OSSubprocess' with: [ spec repository: 'github://pharo-contributions/OSSubprocess:master/repository']"; baseline: 'OSSubprocess' with: [ spec repository: 'github://pharo-contributions/OSSubprocess:master/repository']";
baseline: 'ProcessWrapper' with: [ spec repository: 'github://hernanmd/ProcessWrapper/repository' ]". baseline: 'ProcessWrapper' with: [ spec repository: 'github://hernanmd/ProcessWrapper/repository' ]".

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

@ -124,23 +124,6 @@ FossilRepo >> createPage: pageName [
^ NeoJSONReader fromString: (self jsonWikiDataFor: 'create/', 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 } { #category : #wiki }
FossilRepo >> fetchPage: pageName [ FossilRepo >> fetchPage: pageName [
^ NeoJSONReader fromString: (self jsonWikiDataFor: 'get/', pageName) ^ NeoJSONReader fromString: (self jsonWikiDataFor: 'get/', pageName)
@ -292,12 +275,6 @@ FossilRepo >> remote: anUrlString [
remote := anUrlString asUrl remote := anUrlString asUrl
] ]
{ #category : #utilities }
FossilRepo >> remoteName [
self remote ifNil: [ ^ self ].
^ self remote asUrl segments last
]
{ #category : #utilities } { #category : #utilities }
FossilRepo >> sanitize: aFileNameWithRelativePath [ FossilRepo >> sanitize: aFileNameWithRelativePath [
"I dicern if my argument concerns to a versioned or an unversioned file, "I dicern if my argument concerns to a versioned or an unversioned file,