From 572c96f274b5de931d8a80fc7e1329b385ee7b58 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
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.
 	 
 ]