From 572c96f274b5de931d8a80fc7e1329b385ee7b58 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Sun, 5 Mar 2023 17:21:23 -0500 Subject: [PATCH] Indexing suggested repositories. --- src/ExoRepo/ExoRepo.class.st | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/src/ExoRepo/ExoRepo.class.st b/src/ExoRepo/ExoRepo.class.st index 5b32d0e..e869f9f 100644 --- a/src/ExoRepo/ExoRepo.class.st +++ b/src/ExoRepo/ExoRepo.class.st @@ -7,6 +7,16 @@ Class { #category : #ExoRepo } +{ #category : #accessing } +ExoRepo class >> index [ + "I list a set of external recommended repositories from the Grafoscopio community, in installation order." + | reposIndex repositoryAddresses| + repositoryAddresses := #('https://code.sustrato.red/Offray/MiniDocs'). + reposIndex := OrderedCollection new. + repositoryAddresses do: [:adress | reposIndex add: (ExoRepo new repository: adress) ]. + ^ reposIndex +] + { #category : #accessing } ExoRepo >> load [ "I load the configuration of this package using a external Gitea repository." @@ -45,6 +55,12 @@ ExoRepo >> local [ ^ FileLocator localDirectory / 'iceberg' / (self provider) / self repositoryName ] +{ #category : #accessing } +ExoRepo >> printOn: aStream [ + super initialize. + aStream nextPutAll: self repositoryName, ' | ', self repository asString +] + { #category : #accessing } ExoRepo >> provider [ self repository ifNil: [ ^ nil ]. @@ -69,6 +85,6 @@ ExoRepo >> repositoryName [ { #category : #accessing } ExoRepo >> wiki [ - ^ (self local / 'Wiki') ensureCreateDirectory. + ^ (self local / 'wiki') ensureCreateDirectory. ]