Merge pull request #2540 from moosetechnology/register-to-iceberg

Sort Iceberg repositories
moosetechnology · Sep 2, 2024 · de9fe1d · de9fe1d
2 parents f553626 + 80265f3
commit de9fe1d
Show file tree

Hide file tree

Showing 2 changed files with 42 additions and 4 deletions.
diff --git a/src/BaselineOfMoose/BaselineOfMoose.class.st b/src/BaselineOfMoose/BaselineOfMoose.class.st
@@ -19,11 +19,14 @@ BaselineOfMoose >> baseline: spec [
 			mooseIDE: spec.
 
 		spec
-			package: 'Moose-Configuration' with: [ spec requires: #( 'Famix' 'FamixTagging' 'FamixReplication' 'MooseIDE' ) ];
-			package: 'Moose-WelcomeBrowser' with: [ spec requires: #( 'Moose-Configuration' ) ].
+			package: 'Moose-Configuration' with: [
+				spec requires:
+						#( 'Famix' 'FamixTagging' 'FamixReplication' 'MooseIDE' ) ];
+			package: 'Moose-WelcomeBrowser'
+			with: [ spec requires: #( 'Moose-Configuration' ) ].
 
 		self groups: spec.
-		spec postLoadDoIt: #registerMooseWelcomeBrowser ]
+		spec postLoadDoIt: #installMooseConfigurations ]
 ]
 
 { #category : #dependencies }
@@ -59,6 +62,13 @@ BaselineOfMoose >> groups: spec [
 	spec group: 'Metamodel' with: #( 'Famix' )
 ]
 
+{ #category : #actions }
+BaselineOfMoose >> installMooseConfigurations [
+
+	self registerMooseWelcomeBrowser.
+	self registerToIceberg
+]
+
 { #category : #dependencies }
 BaselineOfMoose >> mooseIDE: spec [
 
@@ -75,9 +85,17 @@ BaselineOfMoose >> projectClass [
 
 { #category : #actions }
 BaselineOfMoose >> registerMooseWelcomeBrowser [
-	"For Pharo 11 and after"
 
 	Smalltalk
 		at: #MooseWelcomeBrowser
 		ifPresent: [ :mooseWelcome | mooseWelcome register ]
 ]
+
+{ #category : #actions }
+BaselineOfMoose >> registerToIceberg [
+
+	Smalltalk
+		at: #MooseConfiguration
+		ifPresent: [ :mooseConfiguration |
+		mooseConfiguration registerToIceberg ]
+]
diff --git a/src/Moose-Configuration/MooseConfiguration.class.st b/src/Moose-Configuration/MooseConfiguration.class.st
@@ -31,3 +31,23 @@ MooseConfiguration class >> mooseSettingsOn: aBuilder [
 		label: 'Moose';
 		description: 'Moose settings'
 ]
+
+{ #category : #iceberg }
+MooseConfiguration class >> registerToIceberg [
+
+	Iceberg announcer
+		when: IceRepositoryCreated
+		send: #sortIcebergRepositories
+		to: self.
+
+	Iceberg announcer
+		when: IceRepositoryModified
+		send: #sortIcebergRepositories
+		to: self
+]
+
+{ #category : #iceberg }
+MooseConfiguration class >> sortIcebergRepositories [
+
+	IceRepository registry sort: #isMissing ascending , #name ascending
+]