diff --git a/src/ExoRepo/ExoRepo.class.st b/src/ExoRepo/ExoRepo.class.st index 4ee7ce5..06109db 100644 --- a/src/ExoRepo/ExoRepo.class.st +++ b/src/ExoRepo/ExoRepo.class.st @@ -2,34 +2,33 @@ Class { #name : #ExoRepo, #superclass : #Object, #instVars : [ - 'url' + 'repository' ], #category : #ExoRepo } { #category : #accessing } ExoRepo >> load [ - "I load the configuration of this package using a external Gitea repository." + "I load the configuration of this package using a external Gitea repository." "While more Git independient providers are implemented in Monticello, I will - use Iceberg to download the repository and load it from a local directory" - | location localRepo repoName packageName | + use Iceberg to download the repository and load it from a local directory" + | location localRepo repoName | "Sometimes repoName and packageName are different, following Pharo's conventions. For example the repoName can be MyPackage, while packageName can be My-Package" repoName := self repositoryName. - "Local and remote repo definition" location := FileLocator localDirectory / 'iceberg' / (self provider) / repoName. location exists ifFalse: [ - (IceRepositoryCreator new + (IceRepositoryCreator new location: location; - remote: (IceGitRemote url: self url asString, '.git'); + remote: (IceGitRemote url: self repository asString, '.git'); createRepository) register ]. "Package loading" localRepo := 'gitlocal://', location fullName. - Metacello new + ^ Metacello new repository: localRepo; baseline: repoName; load. @@ -37,22 +36,22 @@ ExoRepo >> load [ { #category : #accessing } ExoRepo >> provider [ - self url ifNil: [ ^ nil ]. - ^ self url segments first + self repository ifNil: [ ^ nil ]. + ^ self repository segments first +] + +{ #category : #accessing } +ExoRepo >> repository [ + ^ repository. +] + +{ #category : #accessing } +ExoRepo >> repository: aString [ + repository := aString asZnUrl ] { #category : #accessing } ExoRepo >> repositoryName [ - self url ifNil: [ ^ self ]. - ^ self url segments last -] - -{ #category : #accessing } -ExoRepo >> url [ - ^ url. -] - -{ #category : #accessing } -ExoRepo >> url: aString [ - url := aString asZnUrl + self repository ifNil: [ ^ self ]. + ^ self repository segments last ]