From a303ad5003ed454e825dd95209d5a6b3fad3b308 Mon Sep 17 00:00:00 2001
From: HLAD Nicolas <nicolas.hlad@carl.eu>
Date: Mon, 4 Nov 2024 15:24:45 +0100
Subject: [PATCH] add user email

---
 .../GLHMetamodelGenerator.class.st            |  42 +--
 src/GitLabHealth-Model-Generator/package.st   |   2 +-
 src/GitLabHealth-Model/GLHAddition.class.st   |  14 +-
 src/GitLabHealth-Model/GLHBranch.class.st     |  36 ++-
 src/GitLabHealth-Model/GLHChange.class.st     |  26 +-
 src/GitLabHealth-Model/GLHCommit.class.st     | 124 ++++----
 src/GitLabHealth-Model/GLHDeletion.class.st   |  14 +-
 src/GitLabHealth-Model/GLHDiff.class.st       |  62 ++--
 src/GitLabHealth-Model/GLHDiffRange.class.st  |  34 +--
 src/GitLabHealth-Model/GLHEntity.class.st     |  18 +-
 src/GitLabHealth-Model/GLHFile.class.st       |  32 +-
 src/GitLabHealth-Model/GLHFileBlob.class.st   |  10 +-
 .../GLHFileDirectory.class.st                 |  18 +-
 src/GitLabHealth-Model/GLHGroup.class.st      |  54 ++--
 src/GitLabHealth-Model/GLHGroupGroup.class.st |  18 +-
 src/GitLabHealth-Model/GLHJob.class.st        |  44 ++-
 src/GitLabHealth-Model/GLHLineOfCode.class.st |  10 +-
 .../GLHMergeRequest.class.st                  | 286 +++++++++---------
 src/GitLabHealth-Model/GLHModel.class.st      |  12 +-
 src/GitLabHealth-Model/GLHPipeline.class.st   |  40 ++-
 src/GitLabHealth-Model/GLHProject.class.st    |  80 +++--
 src/GitLabHealth-Model/GLHRepository.class.st |  32 +-
 .../GLHTEntityCreator.trait.st                |  60 ++--
 src/GitLabHealth-Model/GLHUser.class.st       | 204 +++++++------
 src/GitLabHealth-Model/package.st             |   2 +-
 25 files changed, 632 insertions(+), 642 deletions(-)

diff --git a/src/GitLabHealth-Model-Generator/GLHMetamodelGenerator.class.st b/src/GitLabHealth-Model-Generator/GLHMetamodelGenerator.class.st
index 34a3c35..dc8656c 100644
--- a/src/GitLabHealth-Model-Generator/GLHMetamodelGenerator.class.st
+++ b/src/GitLabHealth-Model-Generator/GLHMetamodelGenerator.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'GLHMetamodelGenerator',
-	#superclass : 'FamixMetamodelGenerator',
+	#name : #GLHMetamodelGenerator,
+	#superclass : #FamixMetamodelGenerator,
 	#instVars : [
 		'project',
 		'group',
@@ -22,33 +22,32 @@ Class {
 		'deletion',
 		'lineOfCode'
 	],
-	#category : 'GitLabHealth-Model-Generator',
-	#package : 'GitLabHealth-Model-Generator'
+	#category : #'GitLabHealth-Model-Generator'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMetamodelGenerator class >> packageName [
 	^ #'GitLabHealth-Model'
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMetamodelGenerator class >> prefix [
 	^ #GLH
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMetamodelGenerator class >> submetamodels [
 
 	^ { FamixMooseQueryGenerator . FamixGenerator }
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> branchProperties [
 
 	branch property: #name type: #String
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> changeProperties [
 
 	change property: #index type: #Number.
@@ -58,7 +57,7 @@ GLHMetamodelGenerator >> changeProperties [
 	deletion property: #delimiter type: #String defaultValue: '#-'
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> commitProperties [
 
 	commit property: #parent_ids type: #Object defaultValue: 'OrderedCollection new'.
@@ -83,7 +82,7 @@ GLHMetamodelGenerator >> commitProperties [
 		'The number of line that git consider deleted'
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> defineClasses [
 
 	super defineClasses.
@@ -141,7 +140,7 @@ GLHMetamodelGenerator >> defineClasses [
 		             'a indicate on which line of code are concerned by a diff (usually declared with @@ oldRange, newRange @@) '.
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> defineHierarchy [
 
 	super defineHierarchy.
@@ -163,7 +162,7 @@ GLHMetamodelGenerator >> defineHierarchy [
 	mergeRequest --|> #TNamedEntity
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> defineProperties [
 
 	super defineProperties.
@@ -205,7 +204,7 @@ GLHMetamodelGenerator >> defineProperties [
 	self diffRangeProperties
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> defineRelations [
 
 	super defineRelations.
@@ -278,7 +277,7 @@ GLHMetamodelGenerator >> defineRelations [
 	(diffRange property: #changes) -* (change property: #diffRange)
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> diffProperties [
 
 	(diff property: #diffString type: #String) comment:
@@ -301,7 +300,7 @@ GLHMetamodelGenerator >> diffProperties [
 		comment: 'Is the file of the diff has been removed'
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> diffRangeProperties [
 "must parse the range. 
 	originalLineRange = '-120,5' --> change starts at line #120
@@ -311,13 +310,13 @@ GLHMetamodelGenerator >> diffRangeProperties [
 	diffRange property: #lineOfCode type: #String
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> fileProperties [
 
 	file property: #name type: #String
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> jobProperties [
 
 	job property: #id type: #Number.
@@ -327,7 +326,7 @@ GLHMetamodelGenerator >> jobProperties [
 	job property: #allow_failure type: #Boolean
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> mergeRequestProperties [
 
 	mergeRequest property: #id type: #Number.
@@ -390,8 +389,9 @@ GLHMetamodelGenerator >> mergeRequestProperties [
 	mergeRequest property: #commits type: #Object
 ]
 
-{ #category : 'definition' }
+{ #category : #definition }
 GLHMetamodelGenerator >> userProperties [
+
 	user property: #id type: #Number.
 	user property: #username type: #String.
 	user property: #name type: #String.
@@ -402,6 +402,8 @@ GLHMetamodelGenerator >> userProperties [
 	user property: #bio type: #String.
 	user property: #location type: #String.
 	user property: #public_email type: #String.
+	user property: #email type: #String.
+	user property: #commit_email type: #String.
 	user property: #skype type: #String.
 	user property: #linkedin type: #String.
 	user property: #twitter type: #String.
diff --git a/src/GitLabHealth-Model-Generator/package.st b/src/GitLabHealth-Model-Generator/package.st
index 4881d31..148defe 100644
--- a/src/GitLabHealth-Model-Generator/package.st
+++ b/src/GitLabHealth-Model-Generator/package.st
@@ -1 +1 @@
-Package { #name : 'GitLabHealth-Model-Generator' }
+Package { #name : #'GitLabHealth-Model-Generator' }
diff --git a/src/GitLabHealth-Model/GLHAddition.class.st b/src/GitLabHealth-Model/GLHAddition.class.st
index 496e805..2b72e7d 100644
--- a/src/GitLabHealth-Model/GLHAddition.class.st
+++ b/src/GitLabHealth-Model/GLHAddition.class.st
@@ -10,17 +10,15 @@ a detected addition of a line, seen within a diff
 
 "
 Class {
-	#name : 'GLHAddition',
-	#superclass : 'GLHChange',
+	#name : #GLHAddition,
+	#superclass : #GLHChange,
 	#instVars : [
 		'#delimiter => FMProperty defaultValue: #+'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHAddition class >> annotation [
 
 	<FMClass: #Addition super: #GLHChange>
@@ -29,13 +27,13 @@ GLHAddition class >> annotation [
 	^ self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHAddition >> delimiter: anObject [
 	<generated>
 	delimiter := anObject
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 GLHAddition >> isAddition [
 
 	<generated>
diff --git a/src/GitLabHealth-Model/GLHBranch.class.st b/src/GitLabHealth-Model/GLHBranch.class.st
index 59404fd..9981558 100644
--- a/src/GitLabHealth-Model/GLHBranch.class.st
+++ b/src/GitLabHealth-Model/GLHBranch.class.st
@@ -25,20 +25,18 @@ A git branch
 
 "
 Class {
-	#name : 'GLHBranch',
-	#superclass : 'GLHEntity',
+	#name : #GLHBranch,
+	#superclass : #GLHEntity,
 	#instVars : [
 		'#name => FMProperty',
 		'#repository => FMOne type: #GLHRepository opposite: #branches',
 		'#files => FMMany type: #GLHFile opposite: #branch',
 		'#commits => FMMany type: #GLHCommit opposite: #branch'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHBranch class >> annotation [
 
 	<FMClass: #Branch super: #GLHEntity>
@@ -47,19 +45,19 @@ GLHBranch class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHBranch >> addCommit: anObject [
 	<generated>
 	^ self commits add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHBranch >> addFile: anObject [
 	<generated>
 	^ self files add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHBranch >> commits [
 	"Relation named: #commits type: #GLHCommit opposite: #branch"
 
@@ -68,21 +66,21 @@ GLHBranch >> commits [
 	^ commits
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHBranch >> commits: anObject [
 
 	<generated>
 	commits value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHBranch >> commitsGroup [
 	<generated>
 	<navigation: 'Commits'>
 	^ MooseSpecializedGroup withAll: self commits asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHBranch >> files [
 	"Relation named: #files type: #GLHFile opposite: #branch"
 
@@ -91,21 +89,21 @@ GLHBranch >> files [
 	^ files
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHBranch >> files: anObject [
 
 	<generated>
 	files value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHBranch >> filesGroup [
 	<generated>
 	<navigation: 'Files'>
 	^ MooseSpecializedGroup withAll: self files asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHBranch >> name [
 
 	<FMProperty: #name type: #String>
@@ -113,13 +111,13 @@ GLHBranch >> name [
 	^ name
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHBranch >> name: anObject [
 	<generated>
 	name := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHBranch >> repository [
 	"Relation named: #repository type: #GLHRepository opposite: #branches"
 
@@ -128,14 +126,14 @@ GLHBranch >> repository [
 	^ repository
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHBranch >> repository: anObject [
 
 	<generated>
 	repository := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHBranch >> repositoryGroup [
 	<generated>
 	<navigation: 'Repository'>
diff --git a/src/GitLabHealth-Model/GLHChange.class.st b/src/GitLabHealth-Model/GLHChange.class.st
index 9f0839e..bdf4a3e 100644
--- a/src/GitLabHealth-Model/GLHChange.class.st
+++ b/src/GitLabHealth-Model/GLHChange.class.st
@@ -22,8 +22,8 @@ super class for addition and deletion
 
 "
 Class {
-	#name : 'GLHChange',
-	#superclass : 'GLHEntity',
+	#name : #GLHChange,
+	#superclass : #GLHEntity,
 	#traits : 'FamixTNamedEntity',
 	#classTraits : 'FamixTNamedEntity classTrait',
 	#instVars : [
@@ -32,12 +32,10 @@ Class {
 		'#sourceCode => FMProperty',
 		'#diffRange => FMOne type: #GLHDiffRange opposite: #changes'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHChange class >> annotation [
 
 	<FMClass: #Change super: #GLHEntity>
@@ -46,7 +44,7 @@ GLHChange class >> annotation [
 	^ self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHChange >> diffRange [
 	"Relation named: #diffRange type: #GLHDiffRange opposite: #changes"
 
@@ -54,14 +52,14 @@ GLHChange >> diffRange [
 	^ diffRange
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHChange >> diffRange: anObject [
 
 	<generated>
 	diffRange := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHChange >> index [
 
 	<FMProperty: #index type: #Number>
@@ -69,13 +67,13 @@ GLHChange >> index [
 	^ index
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHChange >> index: anObject [
 	<generated>
 	index := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHChange >> relativeIndex [
 
 	<FMProperty: #relativeIndex type: #Number>
@@ -83,13 +81,13 @@ GLHChange >> relativeIndex [
 	^ relativeIndex
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHChange >> relativeIndex: anObject [
 	<generated>
 	relativeIndex := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHChange >> sourceCode [
 
 	<FMProperty: #sourceCode type: #String>
@@ -97,7 +95,7 @@ GLHChange >> sourceCode [
 	^ sourceCode
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHChange >> sourceCode: anObject [
 	<generated>
 	sourceCode := anObject
diff --git a/src/GitLabHealth-Model/GLHCommit.class.st b/src/GitLabHealth-Model/GLHCommit.class.st
index ef8b5ac..74aa973 100644
--- a/src/GitLabHealth-Model/GLHCommit.class.st
+++ b/src/GitLabHealth-Model/GLHCommit.class.st
@@ -21,8 +21,8 @@ a commit attached to a repository
 | Relation | Origin | Opposite | Type | Comment |
 |---|
 | `childCommits` | `GLHCommit` | `parentCommits` | `GLHCommit` | |
-| `commitedMergeRequest` | `GLHCommit` | `mergeRequestCommit` | `GLHMergeRequest` | |
 | `commitedMergeRequest` | `GLHCommit` | `mergedCommit` | `GLHMergeRequest` | |
+| `commitedMergeRequest` | `GLHCommit` | `mergeRequestCommit` | `GLHMergeRequest` | |
 | `parentCommits` | `GLHCommit` | `childCommits` | `GLHCommit` | |
 | `squashedMergeRequest` | `GLHCommit` | `squashCommit` | `GLHMergeRequest` | |
 
@@ -51,8 +51,8 @@ a commit attached to a repository
 
 "
 Class {
-	#name : 'GLHCommit',
-	#superclass : 'GLHEntity',
+	#name : #GLHCommit,
+	#superclass : #GLHEntity,
 	#traits : 'FamixTNamedEntity',
 	#classTraits : 'FamixTNamedEntity classTrait',
 	#instVars : [
@@ -81,12 +81,10 @@ Class {
 		'#title => FMProperty',
 		'#web_url => FMProperty'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : #'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHCommit class >> annotation [
 
 	<FMClass: #Commit super: #GLHEntity>
@@ -95,31 +93,31 @@ GLHCommit class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHCommit >> addChildCommit: anObject [
 	<generated>
 	^ self childCommits add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHCommit >> addDiff: anObject [
 	<generated>
 	^ self diffs add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHCommit >> addJob: anObject [
 	<generated>
 	^ self jobs add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHCommit >> addParentCommit: anObject [
 	<generated>
 	^ self parentCommits add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> additions [
 
 	<FMProperty: #additions type: #Number>
@@ -128,13 +126,13 @@ GLHCommit >> additions [
 	^ additions
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> additions: anObject [
 	<generated>
 	additions := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> author_email [
 
 	<FMProperty: #author_email type: #String>
@@ -142,13 +140,13 @@ GLHCommit >> author_email [
 	^ author_email
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> author_email: anObject [
 	<generated>
 	author_email := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> author_name [
 
 	<FMProperty: #author_name type: #String>
@@ -156,13 +154,13 @@ GLHCommit >> author_name [
 	^ author_name
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> author_name: anObject [
 	<generated>
 	author_name := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> authored_date [
 
 	<FMProperty: #authored_date type: #Object>
@@ -170,13 +168,13 @@ GLHCommit >> authored_date [
 	^ authored_date
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> authored_date: anObject [
 	<generated>
 	authored_date := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> branch [
 	"Relation named: #branch type: #GLHBranch opposite: #commits"
 
@@ -185,21 +183,21 @@ GLHCommit >> branch [
 	^ branch
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> branch: anObject [
 
 	<generated>
 	branch := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHCommit >> branchGroup [
 	<generated>
 	<navigation: 'Branch'>
 	^ MooseSpecializedGroup with: self branch
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> childCommits [
 	"Relation named: #childCommits type: #GLHCommit opposite: #parentCommits"
 
@@ -207,14 +205,14 @@ GLHCommit >> childCommits [
 	^ childCommits
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> childCommits: anObject [
 
 	<generated>
 	childCommits value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> commitCreator [
 	"Relation named: #commitCreator type: #GLHUser opposite: #commits"
 
@@ -223,21 +221,21 @@ GLHCommit >> commitCreator [
 	^ commitCreator
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> commitCreator: anObject [
 
 	<generated>
 	commitCreator := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHCommit >> commitCreatorGroup [
 	<generated>
 	<navigation: 'CommitCreator'>
 	^ MooseSpecializedGroup with: self commitCreator
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> commitedMergeRequest [
 	"Relation named: #commitedMergeRequest type: #GLHMergeRequest opposite: #mergedCommit"
 
@@ -246,14 +244,14 @@ GLHCommit >> commitedMergeRequest [
 	^ commitedMergeRequest
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> commitedMergeRequest: anObject [
 
 	<generated>
 	commitedMergeRequest := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> committed_date [
 
 	<FMProperty: #committed_date type: #Object>
@@ -261,13 +259,13 @@ GLHCommit >> committed_date [
 	^ committed_date
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> committed_date: anObject [
 	<generated>
 	committed_date := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> committer_email [
 
 	<FMProperty: #committer_email type: #String>
@@ -275,13 +273,13 @@ GLHCommit >> committer_email [
 	^ committer_email
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> committer_email: anObject [
 	<generated>
 	committer_email := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> committer_name [
 
 	<FMProperty: #committer_name type: #String>
@@ -289,13 +287,13 @@ GLHCommit >> committer_name [
 	^ committer_name
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> committer_name: anObject [
 	<generated>
 	committer_name := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> created_at [
 
 	<FMProperty: #created_at type: #Object>
@@ -303,13 +301,13 @@ GLHCommit >> created_at [
 	^ created_at
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> created_at: anObject [
 	<generated>
 	created_at := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> deletions [
 
 	<FMProperty: #deletions type: #Number>
@@ -318,13 +316,13 @@ GLHCommit >> deletions [
 	^ deletions
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> deletions: anObject [
 	<generated>
 	deletions := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> diffs [
 	"Relation named: #diffs type: #GLHDiff opposite: #commit"
 
@@ -333,21 +331,21 @@ GLHCommit >> diffs [
 	^ diffs
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> diffs: anObject [
 
 	<generated>
 	diffs value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHCommit >> diffsGroup [
 	<generated>
 	<navigation: 'Diffs'>
 	^ MooseSpecializedGroup withAll: self diffs asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> id [
 
 	<FMProperty: #id type: #String>
@@ -355,13 +353,13 @@ GLHCommit >> id [
 	^ id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> id: anObject [
 	<generated>
 	id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> jobs [
 	"Relation named: #jobs type: #GLHJob opposite: #commit"
 
@@ -370,21 +368,21 @@ GLHCommit >> jobs [
 	^ jobs
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> jobs: anObject [
 
 	<generated>
 	jobs value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHCommit >> jobsGroup [
 	<generated>
 	<navigation: 'Jobs'>
 	^ MooseSpecializedGroup withAll: self jobs asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> message [
 
 	<FMProperty: #message type: #String>
@@ -392,13 +390,13 @@ GLHCommit >> message [
 	^ message
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> message: anObject [
 	<generated>
 	message := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> parentCommits [
 	"Relation named: #parentCommits type: #GLHCommit opposite: #childCommits"
 
@@ -407,20 +405,20 @@ GLHCommit >> parentCommits [
 	^ parentCommits
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> parentCommits: anObject [
 
 	<generated>
 	parentCommits value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> parent_ids: anObject [
 	<generated>
 	parent_ids := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> repository [
 	"Relation named: #repository type: #GLHRepository opposite: #commits"
 
@@ -429,21 +427,21 @@ GLHCommit >> repository [
 	^ repository
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> repository: anObject [
 
 	<generated>
 	repository := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHCommit >> repositoryGroup [
 	<generated>
 	<navigation: 'Repository'>
 	^ MooseSpecializedGroup with: self repository
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> short_id [
 
 	<FMProperty: #short_id type: #String>
@@ -451,13 +449,13 @@ GLHCommit >> short_id [
 	^ short_id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> short_id: anObject [
 	<generated>
 	short_id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> squashedMergeRequest [
 	"Relation named: #squashedMergeRequest type: #GLHMergeRequest opposite: #squashCommit"
 
@@ -466,14 +464,14 @@ GLHCommit >> squashedMergeRequest [
 	^ squashedMergeRequest
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> squashedMergeRequest: anObject [
 
 	<generated>
 	squashedMergeRequest := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> title [
 
 	<FMProperty: #title type: #String>
@@ -481,13 +479,13 @@ GLHCommit >> title [
 	^ title
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> title: anObject [
 	<generated>
 	title := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> web_url [
 
 	<FMProperty: #web_url type: #String>
@@ -495,7 +493,7 @@ GLHCommit >> web_url [
 	^ web_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHCommit >> web_url: anObject [
 	<generated>
 	web_url := anObject
diff --git a/src/GitLabHealth-Model/GLHDeletion.class.st b/src/GitLabHealth-Model/GLHDeletion.class.st
index c43caf5..eb3938b 100644
--- a/src/GitLabHealth-Model/GLHDeletion.class.st
+++ b/src/GitLabHealth-Model/GLHDeletion.class.st
@@ -10,17 +10,15 @@ a detected deletion of a line, seen within a diff
 
 "
 Class {
-	#name : 'GLHDeletion',
-	#superclass : 'GLHChange',
+	#name : #GLHDeletion,
+	#superclass : #GLHChange,
 	#instVars : [
 		'#delimiter => FMProperty defaultValue: #-'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHDeletion class >> annotation [
 
 	<FMClass: #Deletion super: #GLHChange>
@@ -29,13 +27,13 @@ GLHDeletion class >> annotation [
 	^ self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDeletion >> delimiter: anObject [
 	<generated>
 	delimiter := anObject
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 GLHDeletion >> isDeletion [
 
 	<generated>
diff --git a/src/GitLabHealth-Model/GLHDiff.class.st b/src/GitLabHealth-Model/GLHDiff.class.st
index 63875d5..5200aa4 100644
--- a/src/GitLabHealth-Model/GLHDiff.class.st
+++ b/src/GitLabHealth-Model/GLHDiff.class.st
@@ -36,8 +36,8 @@ The diff of a commit
 
 "
 Class {
-	#name : 'GLHDiff',
-	#superclass : 'GLHEntity',
+	#name : #GLHDiff,
+	#superclass : #GLHEntity,
 	#traits : 'FamixTNamedEntity',
 	#classTraits : 'FamixTNamedEntity classTrait',
 	#instVars : [
@@ -52,12 +52,10 @@ Class {
 		'#old_path => FMProperty',
 		'#renamed_file => FMProperty defaultValue: false'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHDiff class >> annotation [
 
 	<FMClass: #Diff super: #GLHEntity>
@@ -66,19 +64,19 @@ GLHDiff class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHDiff >> addDiffRange: anObject [
 	<generated>
 	^ self diffRanges add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHDiff >> addFile: anObject [
 	<generated>
 	^ self file add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> commit [
 	"Relation named: #commit type: #GLHCommit opposite: #diffs"
 
@@ -87,21 +85,21 @@ GLHDiff >> commit [
 	^ commit
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> commit: anObject [
 
 	<generated>
 	commit := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHDiff >> commitGroup [
 	<generated>
 	<navigation: 'Commit'>
 	^ MooseSpecializedGroup with: self commit
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> deleted_file [
 
 	<FMProperty: #deleted_file type: #Boolean defaultValue: false>
@@ -110,13 +108,13 @@ GLHDiff >> deleted_file [
 	^ deleted_file ifNil: [ deleted_file := false ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> deleted_file: anObject [
 	<generated>
 	deleted_file := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> diffRanges [
 	"Relation named: #diffRanges type: #GLHDiffRange opposite: #diff"
 
@@ -125,21 +123,21 @@ GLHDiff >> diffRanges [
 	^ diffRanges
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> diffRanges: anObject [
 
 	<generated>
 	diffRanges value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHDiff >> diffRangesGroup [
 	<generated>
 	<navigation: 'DiffRanges'>
 	^ MooseSpecializedGroup withAll: self diffRanges asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> diffString [
 
 	<FMProperty: #diffString type: #String>
@@ -148,13 +146,13 @@ GLHDiff >> diffString [
 	^ diffString
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> diffString: anObject [
 	<generated>
 	diffString := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> file [
 	"Relation named: #file type: #GLHFile opposite: #diffs"
 
@@ -163,21 +161,21 @@ GLHDiff >> file [
 	^ file
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> file: anObject [
 
 	<generated>
 	file value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHDiff >> fileGroup [
 	<generated>
 	<navigation: 'File'>
 	^ MooseSpecializedGroup withAll: self file asSet
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 GLHDiff >> inspectionGLHDiff [
 
 	<inspectorPresentationOrder: 3 title: 'Files Impacted'>
@@ -187,7 +185,7 @@ GLHDiff >> inspectionGLHDiff [
 	^ canvas asPresenter
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> mergeRequest [
 	"Relation named: #mergeRequest type: #GLHMergeRequest opposite: #diffs"
 
@@ -195,14 +193,14 @@ GLHDiff >> mergeRequest [
 	^ mergeRequest
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> mergeRequest: anObject [
 
 	<generated>
 	mergeRequest := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> new_file [
 
 	<FMProperty: #new_file type: #Boolean defaultValue: false>
@@ -211,13 +209,13 @@ GLHDiff >> new_file [
 	^ new_file ifNil: [ new_file := false ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> new_file: anObject [
 	<generated>
 	new_file := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> new_path [
 
 	<FMProperty: #new_path type: #String>
@@ -226,13 +224,13 @@ GLHDiff >> new_path [
 	^ new_path
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> new_path: anObject [
 	<generated>
 	new_path := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> old_path [
 
 	<FMProperty: #old_path type: #String>
@@ -241,13 +239,13 @@ GLHDiff >> old_path [
 	^ old_path
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> old_path: anObject [
 	<generated>
 	old_path := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> renamed_file [
 
 	<FMProperty: #renamed_file type: #Boolean defaultValue: false>
@@ -256,7 +254,7 @@ GLHDiff >> renamed_file [
 	^ renamed_file ifNil: [ renamed_file := false ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiff >> renamed_file: anObject [
 	<generated>
 	renamed_file := anObject
diff --git a/src/GitLabHealth-Model/GLHDiffRange.class.st b/src/GitLabHealth-Model/GLHDiffRange.class.st
index a75be98..23cf5a7 100644
--- a/src/GitLabHealth-Model/GLHDiffRange.class.st
+++ b/src/GitLabHealth-Model/GLHDiffRange.class.st
@@ -26,8 +26,8 @@ a indicate on which line of code are concerned by a diff (usually declared with
 
 "
 Class {
-	#name : 'GLHDiffRange',
-	#superclass : 'GLHEntity',
+	#name : #GLHDiffRange,
+	#superclass : #GLHEntity,
 	#instVars : [
 		'#originalLineRange => FMProperty',
 		'#newLineRange => FMProperty',
@@ -35,12 +35,10 @@ Class {
 		'#diff => FMOne type: #GLHDiff opposite: #diffRanges',
 		'#changes => FMMany type: #GLHChange opposite: #diffRange'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHDiffRange class >> annotation [
 
 	<FMClass: #DiffRange super: #GLHEntity>
@@ -49,13 +47,13 @@ GLHDiffRange class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHDiffRange >> addChange: anObject [
 	<generated>
 	^ self changes add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> changes [
 	"Relation named: #changes type: #GLHChange opposite: #diffRange"
 
@@ -64,14 +62,14 @@ GLHDiffRange >> changes [
 	^ changes
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> changes: anObject [
 
 	<generated>
 	changes value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> diff [
 	"Relation named: #diff type: #GLHDiff opposite: #diffRanges"
 
@@ -80,21 +78,21 @@ GLHDiffRange >> diff [
 	^ diff
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> diff: anObject [
 
 	<generated>
 	diff := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHDiffRange >> diffGroup [
 	<generated>
 	<navigation: 'Diff'>
 	^ MooseSpecializedGroup with: self diff
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> lineOfCode [
 
 	<FMProperty: #lineOfCode type: #String>
@@ -102,13 +100,13 @@ GLHDiffRange >> lineOfCode [
 	^ lineOfCode
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> lineOfCode: anObject [
 	<generated>
 	lineOfCode := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> newLineRange [
 
 	<FMProperty: #newLineRange type: #String>
@@ -116,13 +114,13 @@ GLHDiffRange >> newLineRange [
 	^ newLineRange
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> newLineRange: anObject [
 	<generated>
 	newLineRange := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> originalLineRange [
 
 	<FMProperty: #originalLineRange type: #String>
@@ -130,7 +128,7 @@ GLHDiffRange >> originalLineRange [
 	^ originalLineRange
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHDiffRange >> originalLineRange: anObject [
 	<generated>
 	originalLineRange := anObject
diff --git a/src/GitLabHealth-Model/GLHEntity.class.st b/src/GitLabHealth-Model/GLHEntity.class.st
index d3d8112..7b45e93 100644
--- a/src/GitLabHealth-Model/GLHEntity.class.st
+++ b/src/GitLabHealth-Model/GLHEntity.class.st
@@ -1,14 +1,12 @@
 Class {
-	#name : 'GLHEntity',
-	#superclass : 'MooseEntity',
+	#name : #GLHEntity,
+	#superclass : #MooseEntity,
 	#traits : 'TEntityMetaLevelDependency',
 	#classTraits : 'TEntityMetaLevelDependency classTrait',
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHEntity class >> annotation [
 
 	<FMClass: #Entity super: #MooseEntity>
@@ -18,28 +16,28 @@ GLHEntity class >> annotation [
 	^ self
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 GLHEntity class >> isAbstract [
 
 	<generated>
 	^ self == GLHEntity
 ]
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHEntity class >> metamodel [
 
 	<generated>
 	^ GLHModel metamodel
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 GLHEntity >> isAddition [
 
 	<generated>
 	^ false
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 GLHEntity >> isDeletion [
 
 	<generated>
diff --git a/src/GitLabHealth-Model/GLHFile.class.st b/src/GitLabHealth-Model/GLHFile.class.st
index 74a2ad3..7e44c36 100644
--- a/src/GitLabHealth-Model/GLHFile.class.st
+++ b/src/GitLabHealth-Model/GLHFile.class.st
@@ -21,20 +21,18 @@ A file
 
 "
 Class {
-	#name : 'GLHFile',
-	#superclass : 'GLHEntity',
+	#name : #GLHFile,
+	#superclass : #GLHEntity,
 	#instVars : [
 		'#branch => FMOne type: #GLHBranch opposite: #files',
 		'#diffs => FMOne type: #GLHDiff opposite: #file',
 		'#directoryOwner => FMOne type: #GLHFileDirectory opposite: #files',
 		'#name => FMProperty'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHFile class >> annotation [
 
 	<FMClass: #File super: #GLHEntity>
@@ -43,7 +41,7 @@ GLHFile class >> annotation [
 	^ self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFile >> branch [
 	"Relation named: #branch type: #GLHBranch opposite: #files"
 
@@ -52,21 +50,21 @@ GLHFile >> branch [
 	^ branch
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFile >> branch: anObject [
 
 	<generated>
 	branch := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHFile >> branchGroup [
 	<generated>
 	<navigation: 'Branch'>
 	^ MooseSpecializedGroup with: self branch
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFile >> diffs [
 	"Relation named: #diffs type: #GLHDiff opposite: #file"
 
@@ -75,21 +73,21 @@ GLHFile >> diffs [
 	^ diffs
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFile >> diffs: anObject [
 
 	<generated>
 	diffs := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHFile >> diffsGroup [
 	<generated>
 	<navigation: 'Diffs'>
 	^ MooseSpecializedGroup with: self diffs
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFile >> directoryOwner [
 	"Relation named: #directoryOwner type: #GLHFileDirectory opposite: #files"
 
@@ -98,21 +96,21 @@ GLHFile >> directoryOwner [
 	^ directoryOwner
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFile >> directoryOwner: anObject [
 
 	<generated>
 	directoryOwner := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHFile >> directoryOwnerGroup [
 	<generated>
 	<navigation: 'DirectoryOwner'>
 	^ MooseSpecializedGroup with: self directoryOwner
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFile >> name [
 
 	<FMProperty: #name type: #String>
@@ -120,7 +118,7 @@ GLHFile >> name [
 	^ name
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFile >> name: anObject [
 	<generated>
 	name := anObject
diff --git a/src/GitLabHealth-Model/GLHFileBlob.class.st b/src/GitLabHealth-Model/GLHFileBlob.class.st
index b0f9d6c..059dc59 100644
--- a/src/GitLabHealth-Model/GLHFileBlob.class.st
+++ b/src/GitLabHealth-Model/GLHFileBlob.class.st
@@ -4,14 +4,12 @@ A file blob
 
 "
 Class {
-	#name : 'GLHFileBlob',
-	#superclass : 'GLHFile',
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#name : #GLHFileBlob,
+	#superclass : #GLHFile,
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHFileBlob class >> annotation [
 
 	<FMClass: #FileBlob super: #GLHFile>
diff --git a/src/GitLabHealth-Model/GLHFileDirectory.class.st b/src/GitLabHealth-Model/GLHFileDirectory.class.st
index d2cdba6..138fa4f 100644
--- a/src/GitLabHealth-Model/GLHFileDirectory.class.st
+++ b/src/GitLabHealth-Model/GLHFileDirectory.class.st
@@ -13,17 +13,15 @@ A file directory
 
 "
 Class {
-	#name : 'GLHFileDirectory',
-	#superclass : 'GLHFile',
+	#name : #GLHFileDirectory,
+	#superclass : #GLHFile,
 	#instVars : [
 		'#files => FMMany type: #GLHFile opposite: #directoryOwner'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHFileDirectory class >> annotation [
 
 	<FMClass: #FileDirectory super: #GLHFile>
@@ -32,13 +30,13 @@ GLHFileDirectory class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHFileDirectory >> addFile: anObject [
 	<generated>
 	^ self files add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFileDirectory >> files [
 	"Relation named: #files type: #GLHFile opposite: #directoryOwner"
 
@@ -47,14 +45,14 @@ GLHFileDirectory >> files [
 	^ files
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHFileDirectory >> files: anObject [
 
 	<generated>
 	files value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHFileDirectory >> filesGroup [
 	<generated>
 	<navigation: 'Files'>
diff --git a/src/GitLabHealth-Model/GLHGroup.class.st b/src/GitLabHealth-Model/GLHGroup.class.st
index 0278036..a36819f 100644
--- a/src/GitLabHealth-Model/GLHGroup.class.st
+++ b/src/GitLabHealth-Model/GLHGroup.class.st
@@ -30,8 +30,8 @@ A GitLab Group
 
 "
 Class {
-	#name : 'GLHGroup',
-	#superclass : 'GLHEntity',
+	#name : #GLHGroup,
+	#superclass : #GLHEntity,
 	#traits : 'FamixTNamedEntity',
 	#classTraits : 'FamixTNamedEntity classTrait',
 	#instVars : [
@@ -44,12 +44,10 @@ Class {
 		'#subGroups => FMMany type: #GLHGroup opposite: #group',
 		'#group => FMOne type: #GLHGroup opposite: #subGroups'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHGroup class >> annotation [
 
 	<FMClass: #Group super: #GLHEntity>
@@ -58,26 +56,26 @@ GLHGroup class >> annotation [
 	^ self
 ]
 
-{ #category : 'groups' }
+{ #category : #groups }
 GLHGroup class >> annotationGLHGroupGroup [
 	<generated>
 	<mooseGroup>
 	^ GLHGroupGroup
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHGroup >> addProject: anObject [
 	<generated>
 	^ self projects add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHGroup >> addSubGroup: anObject [
 	<generated>
 	^ self subGroups add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> avatar_url [
 
 	<FMProperty: #avatar_url type: #String>
@@ -85,13 +83,13 @@ GLHGroup >> avatar_url [
 	^ avatar_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> avatar_url: anObject [
 	<generated>
 	avatar_url := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> description [
 
 	<FMProperty: #description type: #String>
@@ -99,13 +97,13 @@ GLHGroup >> description [
 	^ description
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> description: anObject [
 	<generated>
 	description := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> group [
 	"Relation named: #group type: #GLHGroup opposite: #subGroups"
 
@@ -114,21 +112,21 @@ GLHGroup >> group [
 	^ group
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> group: anObject [
 
 	<generated>
 	group := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHGroup >> groupGroup [
 	<generated>
 	<navigation: 'Group'>
 	^ MooseSpecializedGroup with: self group
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> id [
 
 	<FMProperty: #id type: #Number>
@@ -136,13 +134,13 @@ GLHGroup >> id [
 	^ id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> id: anObject [
 	<generated>
 	id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> projects [
 	"Relation named: #projects type: #GLHProject opposite: #group"
 
@@ -151,21 +149,21 @@ GLHGroup >> projects [
 	^ projects
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> projects: anObject [
 
 	<generated>
 	projects value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHGroup >> projectsGroup [
 	<generated>
 	<navigation: 'Projects'>
 	^ MooseSpecializedGroup withAll: self projects asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> subGroups [
 	"Relation named: #subGroups type: #GLHGroup opposite: #group"
 
@@ -174,21 +172,21 @@ GLHGroup >> subGroups [
 	^ subGroups
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> subGroups: anObject [
 
 	<generated>
 	subGroups value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHGroup >> subGroupsGroup [
 	<generated>
 	<navigation: 'SubGroups'>
 	^ MooseSpecializedGroup withAll: self subGroups asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> visibility [
 
 	<FMProperty: #visibility type: #String>
@@ -196,13 +194,13 @@ GLHGroup >> visibility [
 	^ visibility
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> visibility: anObject [
 	<generated>
 	visibility := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> web_url [
 
 	<FMProperty: #web_url type: #String>
@@ -210,7 +208,7 @@ GLHGroup >> web_url [
 	^ web_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHGroup >> web_url: anObject [
 	<generated>
 	web_url := anObject
diff --git a/src/GitLabHealth-Model/GLHGroupGroup.class.st b/src/GitLabHealth-Model/GLHGroupGroup.class.st
index 0a26c4f..d2afe80 100644
--- a/src/GitLabHealth-Model/GLHGroupGroup.class.st
+++ b/src/GitLabHealth-Model/GLHGroupGroup.class.st
@@ -1,12 +1,10 @@
 Class {
-	#name : 'GLHGroupGroup',
-	#superclass : 'MooseSpecializedGroup',
-	#category : 'GitLabHealth-Model-Groups',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Groups'
+	#name : #GLHGroupGroup,
+	#superclass : #MooseSpecializedGroup,
+	#category : 'GitLabHealth-Model-Groups'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHGroupGroup class >> annotation [
 
 	<FMClass: #GroupGroup super: #MooseSpecializedGroup>
@@ -15,28 +13,28 @@ GLHGroupGroup class >> annotation [
 	^ self
 ]
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHGroupGroup class >> metamodel [
 
 	<generated>
 	^ GLHModel metamodel
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 GLHGroupGroup >> isAddition [
 
 	<generated>
 	^ false
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 GLHGroupGroup >> isDeletion [
 
 	<generated>
 	^ false
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 GLHGroupGroup >> isQueryable [
 
 	<generated>
diff --git a/src/GitLabHealth-Model/GLHJob.class.st b/src/GitLabHealth-Model/GLHJob.class.st
index 88e7453..89c86aa 100644
--- a/src/GitLabHealth-Model/GLHJob.class.st
+++ b/src/GitLabHealth-Model/GLHJob.class.st
@@ -26,8 +26,8 @@ A CI Job
 
 "
 Class {
-	#name : 'GLHJob',
-	#superclass : 'GLHEntity',
+	#name : #GLHJob,
+	#superclass : #GLHEntity,
 	#traits : 'FamixTNamedEntity',
 	#classTraits : 'FamixTNamedEntity classTrait',
 	#instVars : [
@@ -39,12 +39,10 @@ Class {
 		'#user => FMOne type: #GLHUser opposite: #jobs',
 		'#web_url => FMProperty'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHJob class >> annotation [
 
 	<FMClass: #Job super: #GLHEntity>
@@ -53,7 +51,7 @@ GLHJob class >> annotation [
 	^ self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> allow_failure [
 
 	<FMProperty: #allow_failure type: #Boolean>
@@ -61,13 +59,13 @@ GLHJob >> allow_failure [
 	^ allow_failure
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> allow_failure: anObject [
 	<generated>
 	allow_failure := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> commit [
 	"Relation named: #commit type: #GLHCommit opposite: #jobs"
 
@@ -76,21 +74,21 @@ GLHJob >> commit [
 	^ commit
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> commit: anObject [
 
 	<generated>
 	commit := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHJob >> commitGroup [
 	<generated>
 	<navigation: 'Commit'>
 	^ MooseSpecializedGroup with: self commit
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> duration [
 
 	<FMProperty: #duration type: #Object>
@@ -98,13 +96,13 @@ GLHJob >> duration [
 	^ duration
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> duration: anObject [
 	<generated>
 	duration := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> id [
 
 	<FMProperty: #id type: #Number>
@@ -112,13 +110,13 @@ GLHJob >> id [
 	^ id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> id: anObject [
 	<generated>
 	id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> pipeline [
 	"Relation named: #pipeline type: #GLHPipeline opposite: #jobs"
 
@@ -127,21 +125,21 @@ GLHJob >> pipeline [
 	^ pipeline
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> pipeline: anObject [
 
 	<generated>
 	pipeline := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHJob >> pipelineGroup [
 	<generated>
 	<navigation: 'Pipeline'>
 	^ MooseSpecializedGroup with: self pipeline
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> user [
 	"Relation named: #user type: #GLHUser opposite: #jobs"
 
@@ -150,21 +148,21 @@ GLHJob >> user [
 	^ user
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> user: anObject [
 
 	<generated>
 	user := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHJob >> userGroup [
 	<generated>
 	<navigation: 'User'>
 	^ MooseSpecializedGroup with: self user
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> web_url [
 
 	<FMProperty: #web_url type: #String>
@@ -172,7 +170,7 @@ GLHJob >> web_url [
 	^ web_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHJob >> web_url: anObject [
 	<generated>
 	web_url := anObject
diff --git a/src/GitLabHealth-Model/GLHLineOfCode.class.st b/src/GitLabHealth-Model/GLHLineOfCode.class.st
index f21d491..831a285 100644
--- a/src/GitLabHealth-Model/GLHLineOfCode.class.st
+++ b/src/GitLabHealth-Model/GLHLineOfCode.class.st
@@ -4,14 +4,12 @@ a line of code in a diff comparaison
 
 "
 Class {
-	#name : 'GLHLineOfCode',
-	#superclass : 'GLHChange',
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#name : #GLHLineOfCode,
+	#superclass : #GLHChange,
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHLineOfCode class >> annotation [
 
 	<FMClass: #LineOfCode super: #GLHChange>
diff --git a/src/GitLabHealth-Model/GLHMergeRequest.class.st b/src/GitLabHealth-Model/GLHMergeRequest.class.st
index f3ba4e6..d5c81e5 100644
--- a/src/GitLabHealth-Model/GLHMergeRequest.class.st
+++ b/src/GitLabHealth-Model/GLHMergeRequest.class.st
@@ -88,8 +88,8 @@ a gitlab merge request
 
 "
 Class {
-	#name : 'GLHMergeRequest',
-	#superclass : 'GLHEntity',
+	#name : #GLHMergeRequest,
+	#superclass : #GLHEntity,
 	#traits : 'FamixTNamedEntity',
 	#classTraits : 'FamixTNamedEntity classTrait',
 	#instVars : [
@@ -160,12 +160,10 @@ Class {
 		'#project => FMOne type: #GLHProject opposite: #mergeRequests',
 		'#commits => FMProperty'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHMergeRequest class >> annotation [
 
 	<FMClass: #MergeRequest super: #GLHEntity>
@@ -174,31 +172,31 @@ GLHMergeRequest class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHMergeRequest >> addApproved_by: anObject [
 	<generated>
 	^ self approved_by add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHMergeRequest >> addAssignee: anObject [
 	<generated>
 	^ self assignees add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHMergeRequest >> addDiff: anObject [
 	<generated>
 	^ self diffs add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHMergeRequest >> addReviewer: anObject [
 	<generated>
 	^ self reviewers add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> approved [
 
 	<FMProperty: #approved type: #Boolean>
@@ -206,13 +204,13 @@ GLHMergeRequest >> approved [
 	^ approved
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> approved: anObject [
 	<generated>
 	approved := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> approved_by [
 	"Relation named: #approved_by type: #GLHUser opposite: #approcheMergeRequests"
 
@@ -221,14 +219,14 @@ GLHMergeRequest >> approved_by [
 	^ approved_by
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> approved_by: anObject [
 
 	<generated>
 	approved_by value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> assignee [
 	"Relation named: #assignee type: #GLHUser opposite: #currentlyAssignedMergeRequest"
 
@@ -236,14 +234,14 @@ GLHMergeRequest >> assignee [
 	^ assignee
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> assignee: anObject [
 
 	<generated>
 	assignee := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> assignees [
 	"Relation named: #assignees type: #GLHUser opposite: #assignedMergeRequests"
 
@@ -252,14 +250,14 @@ GLHMergeRequest >> assignees [
 	^ assignees
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> assignees: anObject [
 
 	<generated>
 	assignees value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> author [
 	"Relation named: #author type: #GLHUser opposite: #createdMergeRequests"
 
@@ -267,14 +265,14 @@ GLHMergeRequest >> author [
 	^ author
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> author: anObject [
 
 	<generated>
 	author := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> blocking_discussions_resolved [
 
 	<FMProperty: #blocking_discussions_resolved type: #Boolean>
@@ -282,13 +280,13 @@ GLHMergeRequest >> blocking_discussions_resolved [
 	^ blocking_discussions_resolved
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> blocking_discussions_resolved: anObject [
 	<generated>
 	blocking_discussions_resolved := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> changes_count [
 
 	<FMProperty: #changes_count type: #String>
@@ -296,13 +294,13 @@ GLHMergeRequest >> changes_count [
 	^ changes_count
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> changes_count: anObject [
 	<generated>
 	changes_count := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> closed_at [
 
 	<FMProperty: #closed_at type: #Object>
@@ -310,13 +308,13 @@ GLHMergeRequest >> closed_at [
 	^ closed_at
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> closed_at: anObject [
 	<generated>
 	closed_at := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> closed_by [
 	"Relation named: #closed_by type: #GLHUser opposite: #closedMergeRequests"
 
@@ -324,14 +322,14 @@ GLHMergeRequest >> closed_by [
 	^ closed_by
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> closed_by: anObject [
 
 	<generated>
 	closed_by := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> commits [
 
 	<FMProperty: #commits type: #Object>
@@ -339,13 +337,13 @@ GLHMergeRequest >> commits [
 	^ commits
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> commits: anObject [
 	<generated>
 	commits := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> created_at [
 
 	<FMProperty: #created_at type: #Object>
@@ -353,13 +351,13 @@ GLHMergeRequest >> created_at [
 	^ created_at
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> created_at: anObject [
 	<generated>
 	created_at := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> description [
 
 	<FMProperty: #description type: #String>
@@ -367,13 +365,13 @@ GLHMergeRequest >> description [
 	^ description
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> description: anObject [
 	<generated>
 	description := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> detailed_merge_status [
 
 	<FMProperty: #detailed_merge_status type: #String>
@@ -381,13 +379,13 @@ GLHMergeRequest >> detailed_merge_status [
 	^ detailed_merge_status
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> detailed_merge_status: anObject [
 	<generated>
 	detailed_merge_status := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> diffs [
 	"Relation named: #diffs type: #GLHDiff opposite: #mergeRequest"
 
@@ -396,14 +394,14 @@ GLHMergeRequest >> diffs [
 	^ diffs
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> diffs: anObject [
 
 	<generated>
 	diffs value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> discussion_locked [
 
 	<FMProperty: #discussion_locked type: #String>
@@ -411,13 +409,13 @@ GLHMergeRequest >> discussion_locked [
 	^ discussion_locked
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> discussion_locked: anObject [
 	<generated>
 	discussion_locked := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> downvotes [
 
 	<FMProperty: #downvotes type: #Number>
@@ -425,13 +423,13 @@ GLHMergeRequest >> downvotes [
 	^ downvotes
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> downvotes: anObject [
 	<generated>
 	downvotes := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> draft [
 
 	<FMProperty: #draft type: #Boolean>
@@ -439,13 +437,13 @@ GLHMergeRequest >> draft [
 	^ draft
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> draft: anObject [
 	<generated>
 	draft := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> first_deployed_to_production_at [
 
 	<FMProperty: #first_deployed_to_production_at type: #String>
@@ -453,13 +451,13 @@ GLHMergeRequest >> first_deployed_to_production_at [
 	^ first_deployed_to_production_at
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> first_deployed_to_production_at: anObject [
 	<generated>
 	first_deployed_to_production_at := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> force_remove_source_branch [
 
 	<FMProperty: #force_remove_source_branch type: #Boolean>
@@ -467,13 +465,13 @@ GLHMergeRequest >> force_remove_source_branch [
 	^ force_remove_source_branch
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> force_remove_source_branch: anObject [
 	<generated>
 	force_remove_source_branch := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> has_conflicts [
 
 	<FMProperty: #has_conflicts type: #Boolean>
@@ -481,13 +479,13 @@ GLHMergeRequest >> has_conflicts [
 	^ has_conflicts
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> has_conflicts: anObject [
 	<generated>
 	has_conflicts := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> id [
 
 	<FMProperty: #id type: #Number>
@@ -495,13 +493,13 @@ GLHMergeRequest >> id [
 	^ id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> id: anObject [
 	<generated>
 	id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> iid [
 
 	<FMProperty: #iid type: #Number>
@@ -509,13 +507,13 @@ GLHMergeRequest >> iid [
 	^ iid
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> iid: anObject [
 	<generated>
 	iid := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> labels [
 
 	<FMProperty: #labels type: #Object>
@@ -523,13 +521,13 @@ GLHMergeRequest >> labels [
 	^ labels
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> labels: anObject [
 	<generated>
 	labels := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> latest_build_finished_at [
 
 	<FMProperty: #latest_build_finished_at type: #String>
@@ -537,13 +535,13 @@ GLHMergeRequest >> latest_build_finished_at [
 	^ latest_build_finished_at
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> latest_build_finished_at: anObject [
 	<generated>
 	latest_build_finished_at := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> latest_build_started_at [
 
 	<FMProperty: #latest_build_started_at type: #String>
@@ -551,13 +549,13 @@ GLHMergeRequest >> latest_build_started_at [
 	^ latest_build_started_at
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> latest_build_started_at: anObject [
 	<generated>
 	latest_build_started_at := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> mergeRequestCommit [
 	"Relation named: #mergeRequestCommit type: #GLHCommit opposite: #commitedMergeRequest"
 
@@ -565,14 +563,14 @@ GLHMergeRequest >> mergeRequestCommit [
 	^ mergeRequestCommit
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> mergeRequestCommit: anObject [
 
 	<generated>
 	mergeRequestCommit := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merge_commit_sha [
 
 	<FMProperty: #merge_commit_sha type: #String>
@@ -580,13 +578,13 @@ GLHMergeRequest >> merge_commit_sha [
 	^ merge_commit_sha
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merge_commit_sha: anObject [
 	<generated>
 	merge_commit_sha := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merge_status [
 
 	<FMProperty: #merge_status type: #String>
@@ -594,13 +592,13 @@ GLHMergeRequest >> merge_status [
 	^ merge_status
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merge_status: anObject [
 	<generated>
 	merge_status := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merge_user [
 	"Relation named: #merge_user type: #GLHUser opposite: #usedMerges"
 
@@ -608,14 +606,14 @@ GLHMergeRequest >> merge_user [
 	^ merge_user
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merge_user: anObject [
 
 	<generated>
 	merge_user := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merge_when_pipeline_succeeds [
 
 	<FMProperty: #merge_when_pipeline_succeeds type: #Boolean>
@@ -623,13 +621,13 @@ GLHMergeRequest >> merge_when_pipeline_succeeds [
 	^ merge_when_pipeline_succeeds
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merge_when_pipeline_succeeds: anObject [
 	<generated>
 	merge_when_pipeline_succeeds := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> mergedCommit [
 	"Relation named: #mergedCommit type: #GLHCommit opposite: #commitedMergeRequest"
 
@@ -637,14 +635,14 @@ GLHMergeRequest >> mergedCommit [
 	^ mergedCommit
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> mergedCommit: anObject [
 
 	<generated>
 	mergedCommit := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merged_at [
 
 	<FMProperty: #merged_at type: #Object>
@@ -652,13 +650,13 @@ GLHMergeRequest >> merged_at [
 	^ merged_at
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merged_at: anObject [
 	<generated>
 	merged_at := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merged_by [
 	"Relation named: #merged_by type: #GLHUser opposite: #mergerOfMergeRequests"
 
@@ -666,14 +664,14 @@ GLHMergeRequest >> merged_by [
 	^ merged_by
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> merged_by: anObject [
 
 	<generated>
 	merged_by := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> milestone [
 
 	<FMProperty: #milestone type: #String>
@@ -681,13 +679,13 @@ GLHMergeRequest >> milestone [
 	^ milestone
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> milestone: anObject [
 	<generated>
 	milestone := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> name [
 
 	<FMProperty: #name type: #String>
@@ -695,7 +693,7 @@ GLHMergeRequest >> name [
 	^ title
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> pipeline [
 	"Relation named: #pipeline type: #GLHPipeline opposite: #mergeResquest"
 
@@ -703,14 +701,14 @@ GLHMergeRequest >> pipeline [
 	^ pipeline
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> pipeline: anObject [
 
 	<generated>
 	pipeline := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> project [
 	"Relation named: #project type: #GLHProject opposite: #mergeRequests"
 
@@ -719,21 +717,21 @@ GLHMergeRequest >> project [
 	^ project
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> project: anObject [
 
 	<generated>
 	project := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHMergeRequest >> projectGroup [
 	<generated>
 	<navigation: 'Project'>
 	^ MooseSpecializedGroup with: self project
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> project_id [
 
 	<FMProperty: #project_id type: #Number>
@@ -741,13 +739,13 @@ GLHMergeRequest >> project_id [
 	^ project_id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> project_id: anObject [
 	<generated>
 	project_id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> reference [
 
 	<FMProperty: #reference type: #String>
@@ -755,13 +753,13 @@ GLHMergeRequest >> reference [
 	^ reference
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> reference: anObject [
 	<generated>
 	reference := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> references_full [
 
 	<FMProperty: #references_full type: #String>
@@ -769,13 +767,13 @@ GLHMergeRequest >> references_full [
 	^ references_full
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> references_full: anObject [
 	<generated>
 	references_full := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> references_relative [
 
 	<FMProperty: #references_relative type: #String>
@@ -783,13 +781,13 @@ GLHMergeRequest >> references_relative [
 	^ references_relative
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> references_relative: anObject [
 	<generated>
 	references_relative := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> references_short [
 
 	<FMProperty: #references_short type: #String>
@@ -797,13 +795,13 @@ GLHMergeRequest >> references_short [
 	^ references_short
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> references_short: anObject [
 	<generated>
 	references_short := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> reviewers [
 	"Relation named: #reviewers type: #GLHUser opposite: #reviewedMergeResquest"
 
@@ -812,14 +810,14 @@ GLHMergeRequest >> reviewers [
 	^ reviewers
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> reviewers: anObject [
 
 	<generated>
 	reviewers value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> sha [
 
 	<FMProperty: #sha type: #String>
@@ -827,13 +825,13 @@ GLHMergeRequest >> sha [
 	^ sha
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> sha: anObject [
 	<generated>
 	sha := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> should_remove_source_branch [
 
 	<FMProperty: #should_remove_source_branch type: #Boolean>
@@ -841,13 +839,13 @@ GLHMergeRequest >> should_remove_source_branch [
 	^ should_remove_source_branch
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> should_remove_source_branch: anObject [
 	<generated>
 	should_remove_source_branch := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> source_branch [
 
 	<FMProperty: #source_branch type: #String>
@@ -855,13 +853,13 @@ GLHMergeRequest >> source_branch [
 	^ source_branch
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> source_branch: anObject [
 	<generated>
 	source_branch := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> source_project_id [
 
 	<FMProperty: #source_project_id type: #Number>
@@ -869,13 +867,13 @@ GLHMergeRequest >> source_project_id [
 	^ source_project_id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> source_project_id: anObject [
 	<generated>
 	source_project_id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> squash [
 
 	<FMProperty: #squash type: #Boolean>
@@ -883,13 +881,13 @@ GLHMergeRequest >> squash [
 	^ squash
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> squash: anObject [
 	<generated>
 	squash := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> squashCommit [
 	"Relation named: #squashCommit type: #GLHCommit opposite: #squashedMergeRequest"
 
@@ -897,14 +895,14 @@ GLHMergeRequest >> squashCommit [
 	^ squashCommit
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> squashCommit: anObject [
 
 	<generated>
 	squashCommit := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> squash_commit_sha [
 
 	<FMProperty: #squash_commit_sha type: #String>
@@ -912,13 +910,13 @@ GLHMergeRequest >> squash_commit_sha [
 	^ squash_commit_sha
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> squash_commit_sha: anObject [
 	<generated>
 	squash_commit_sha := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> squash_on_merge [
 
 	<FMProperty: #squash_on_merge type: #Boolean>
@@ -926,13 +924,13 @@ GLHMergeRequest >> squash_on_merge [
 	^ squash_on_merge
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> squash_on_merge: anObject [
 	<generated>
 	squash_on_merge := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> state [
 
 	<FMProperty: #state type: #String>
@@ -940,13 +938,13 @@ GLHMergeRequest >> state [
 	^ state
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> state: anObject [
 	<generated>
 	state := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> subscribed [
 
 	<FMProperty: #subscribed type: #Boolean>
@@ -954,13 +952,13 @@ GLHMergeRequest >> subscribed [
 	^ subscribed
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> subscribed: anObject [
 	<generated>
 	subscribed := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> target_branch [
 
 	<FMProperty: #target_branch type: #String>
@@ -968,13 +966,13 @@ GLHMergeRequest >> target_branch [
 	^ target_branch
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> target_branch: anObject [
 	<generated>
 	target_branch := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> target_project_id [
 
 	<FMProperty: #target_project_id type: #Number>
@@ -982,13 +980,13 @@ GLHMergeRequest >> target_project_id [
 	^ target_project_id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> target_project_id: anObject [
 	<generated>
 	target_project_id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> task_completion_status_completed_count [
 
 	<FMProperty: #task_completion_status_completed_count type: #Number>
@@ -996,13 +994,13 @@ GLHMergeRequest >> task_completion_status_completed_count [
 	^ task_completion_status_completed_count
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> task_completion_status_completed_count: anObject [
 	<generated>
 	task_completion_status_completed_count := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> task_completion_status_count [
 
 	<FMProperty: #task_completion_status_count type: #Number>
@@ -1010,13 +1008,13 @@ GLHMergeRequest >> task_completion_status_count [
 	^ task_completion_status_count
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> task_completion_status_count: anObject [
 	<generated>
 	task_completion_status_count := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> time_stats_human_time_estimate [
 
 	<FMProperty: #time_stats_human_time_estimate type: #String>
@@ -1024,13 +1022,13 @@ GLHMergeRequest >> time_stats_human_time_estimate [
 	^ time_stats_human_time_estimate
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> time_stats_human_time_estimate: anObject [
 	<generated>
 	time_stats_human_time_estimate := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> time_stats_human_total_time_spent [
 
 	<FMProperty: #time_stats_human_total_time_spent type: #String>
@@ -1038,13 +1036,13 @@ GLHMergeRequest >> time_stats_human_total_time_spent [
 	^ time_stats_human_total_time_spent
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> time_stats_human_total_time_spent: anObject [
 	<generated>
 	time_stats_human_total_time_spent := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> time_stats_time_estimate [
 
 	<FMProperty: #time_stats_time_estimate type: #Number>
@@ -1052,13 +1050,13 @@ GLHMergeRequest >> time_stats_time_estimate [
 	^ time_stats_time_estimate
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> time_stats_time_estimate: anObject [
 	<generated>
 	time_stats_time_estimate := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> time_stats_total_time_spent [
 
 	<FMProperty: #time_stats_total_time_spent type: #Number>
@@ -1066,13 +1064,13 @@ GLHMergeRequest >> time_stats_total_time_spent [
 	^ time_stats_total_time_spent
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> time_stats_total_time_spent: anObject [
 	<generated>
 	time_stats_total_time_spent := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> title [
 
 	<FMProperty: #title type: #String>
@@ -1080,13 +1078,13 @@ GLHMergeRequest >> title [
 	^ title
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> title: anObject [
 	<generated>
 	title := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> updated_at [
 
 	<FMProperty: #updated_at type: #Object>
@@ -1094,13 +1092,13 @@ GLHMergeRequest >> updated_at [
 	^ updated_at
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> updated_at: anObject [
 	<generated>
 	updated_at := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> upvotes [
 
 	<FMProperty: #upvotes type: #Number>
@@ -1108,13 +1106,13 @@ GLHMergeRequest >> upvotes [
 	^ upvotes
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> upvotes: anObject [
 	<generated>
 	upvotes := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> user_notes_count [
 
 	<FMProperty: #user_notes_count type: #Number>
@@ -1122,13 +1120,13 @@ GLHMergeRequest >> user_notes_count [
 	^ user_notes_count
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> user_notes_count: anObject [
 	<generated>
 	user_notes_count := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> web_url [
 
 	<FMProperty: #web_url type: #String>
@@ -1136,13 +1134,13 @@ GLHMergeRequest >> web_url [
 	^ web_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> web_url: anObject [
 	<generated>
 	web_url := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> work_in_progress [
 
 	<FMProperty: #work_in_progress type: #Boolean>
@@ -1150,7 +1148,7 @@ GLHMergeRequest >> work_in_progress [
 	^ work_in_progress
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHMergeRequest >> work_in_progress: anObject [
 	<generated>
 	work_in_progress := anObject
diff --git a/src/GitLabHealth-Model/GLHModel.class.st b/src/GitLabHealth-Model/GLHModel.class.st
index ad9f62a..0c2bca7 100644
--- a/src/GitLabHealth-Model/GLHModel.class.st
+++ b/src/GitLabHealth-Model/GLHModel.class.st
@@ -1,20 +1,18 @@
 Class {
-	#name : 'GLHModel',
-	#superclass : 'MooseModel',
+	#name : #GLHModel,
+	#superclass : #MooseModel,
 	#traits : 'GLHTEntityCreator',
 	#classTraits : 'GLHTEntityCreator classTrait',
-	#category : 'GitLabHealth-Model-Model',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Model'
+	#category : 'GitLabHealth-Model-Model'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHModel class >> allSubmetamodelsPackagesNames [
 	<generated>
 	^ #(#'Moose-Query' #'Famix-Traits')
 ]
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHModel class >> annotation [
 	<FMClass: #GLHModel super: #MooseModel>
 	<package: #'GitLabHealth-Model'>
diff --git a/src/GitLabHealth-Model/GLHPipeline.class.st b/src/GitLabHealth-Model/GLHPipeline.class.st
index f065590..853f236 100644
--- a/src/GitLabHealth-Model/GLHPipeline.class.st
+++ b/src/GitLabHealth-Model/GLHPipeline.class.st
@@ -31,8 +31,8 @@ A GitLab Pipeline execution
 
 "
 Class {
-	#name : 'GLHPipeline',
-	#superclass : 'GLHEntity',
+	#name : #GLHPipeline,
+	#superclass : #GLHEntity,
 	#instVars : [
 		'#id => FMProperty',
 		'#jobs => FMMany type: #GLHJob opposite: #pipeline',
@@ -41,12 +41,10 @@ Class {
 		'#runDate => FMProperty',
 		'#status => FMProperty'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHPipeline class >> annotation [
 
 	<FMClass: #Pipeline super: #GLHEntity>
@@ -55,13 +53,13 @@ GLHPipeline class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHPipeline >> addJob: anObject [
 	<generated>
 	^ self jobs add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> id [
 
 	<FMProperty: #id type: #String>
@@ -70,13 +68,13 @@ GLHPipeline >> id [
 	^ id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> id: anObject [
 	<generated>
 	id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> jobs [
 	"Relation named: #jobs type: #GLHJob opposite: #pipeline"
 
@@ -85,21 +83,21 @@ GLHPipeline >> jobs [
 	^ jobs
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> jobs: anObject [
 
 	<generated>
 	jobs value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHPipeline >> jobsGroup [
 	<generated>
 	<navigation: 'Jobs'>
 	^ MooseSpecializedGroup withAll: self jobs asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> mergeResquest [
 	"Relation named: #mergeResquest type: #GLHMergeRequest opposite: #pipeline"
 
@@ -108,14 +106,14 @@ GLHPipeline >> mergeResquest [
 	^ mergeResquest
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> mergeResquest: anObject [
 
 	<generated>
 	mergeResquest := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> project [
 	"Relation named: #project type: #GLHProject opposite: #pipelines"
 
@@ -124,21 +122,21 @@ GLHPipeline >> project [
 	^ project
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> project: anObject [
 
 	<generated>
 	project := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHPipeline >> projectGroup [
 	<generated>
 	<navigation: 'Project'>
 	^ MooseSpecializedGroup with: self project
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> runDate [
 
 	<FMProperty: #runDate type: #Object>
@@ -147,13 +145,13 @@ GLHPipeline >> runDate [
 	^ runDate
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> runDate: anObject [
 	<generated>
 	runDate := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> status [
 
 	<FMProperty: #status type: #String>
@@ -162,7 +160,7 @@ GLHPipeline >> status [
 	^ status
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHPipeline >> status: anObject [
 	<generated>
 	status := anObject
diff --git a/src/GitLabHealth-Model/GLHProject.class.st b/src/GitLabHealth-Model/GLHProject.class.st
index df518e1..a4fe6ef 100644
--- a/src/GitLabHealth-Model/GLHProject.class.st
+++ b/src/GitLabHealth-Model/GLHProject.class.st
@@ -41,8 +41,8 @@ A GitLab Project
 
 "
 Class {
-	#name : 'GLHProject',
-	#superclass : 'GLHEntity',
+	#name : #GLHProject,
+	#superclass : #GLHEntity,
 	#traits : 'FamixTNamedEntity',
 	#classTraits : 'FamixTNamedEntity classTrait',
 	#instVars : [
@@ -61,12 +61,10 @@ Class {
 		'#topics => FMProperty',
 		'#web_url => FMProperty'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHProject class >> annotation [
 
 	<FMClass: #Project super: #GLHEntity>
@@ -75,25 +73,25 @@ GLHProject class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHProject >> addContributor: anObject [
 	<generated>
 	^ self contributors add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHProject >> addMergeRequest: anObject [
 	<generated>
 	^ self mergeRequests add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHProject >> addPipeline: anObject [
 	<generated>
 	^ self pipelines add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> archived [
 
 	<FMProperty: #archived type: #Boolean>
@@ -101,13 +99,13 @@ GLHProject >> archived [
 	^ archived
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> archived: anObject [
 	<generated>
 	archived := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> avatar_url [
 
 	<FMProperty: #avatar_url type: #String>
@@ -115,13 +113,13 @@ GLHProject >> avatar_url [
 	^ avatar_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> avatar_url: anObject [
 	<generated>
 	avatar_url := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> contributors [
 	"Relation named: #contributors type: #GLHUser opposite: #contributedProjects"
 
@@ -130,14 +128,14 @@ GLHProject >> contributors [
 	^ contributors
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> contributors: anObject [
 
 	<generated>
 	contributors value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> creator [
 	"Relation named: #creator type: #GLHUser opposite: #createdProjects"
 
@@ -145,14 +143,14 @@ GLHProject >> creator [
 	^ creator
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> creator: anObject [
 
 	<generated>
 	creator := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> creator_id [
 
 	<FMProperty: #creator_id type: #Number>
@@ -160,13 +158,13 @@ GLHProject >> creator_id [
 	^ creator_id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> creator_id: anObject [
 	<generated>
 	creator_id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> description [
 
 	<FMProperty: #description type: #String>
@@ -174,13 +172,13 @@ GLHProject >> description [
 	^ description
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> description: anObject [
 	<generated>
 	description := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> group [
 	"Relation named: #group type: #GLHGroup opposite: #projects"
 
@@ -189,21 +187,21 @@ GLHProject >> group [
 	^ group
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> group: anObject [
 
 	<generated>
 	group := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHProject >> groupGroup [
 	<generated>
 	<navigation: 'Group'>
 	^ MooseSpecializedGroup with: self group
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> id [
 
 	<FMProperty: #id type: #Number>
@@ -211,13 +209,13 @@ GLHProject >> id [
 	^ id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> id: anObject [
 	<generated>
 	id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> mergeRequests [
 	"Relation named: #mergeRequests type: #GLHMergeRequest opposite: #project"
 
@@ -226,21 +224,21 @@ GLHProject >> mergeRequests [
 	^ mergeRequests
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> mergeRequests: anObject [
 
 	<generated>
 	mergeRequests value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHProject >> mergeRequestsGroup [
 	<generated>
 	<navigation: 'MergeRequests'>
 	^ MooseSpecializedGroup withAll: self mergeRequests asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> pipelines [
 	"Relation named: #pipelines type: #GLHPipeline opposite: #project"
 
@@ -249,21 +247,21 @@ GLHProject >> pipelines [
 	^ pipelines
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> pipelines: anObject [
 
 	<generated>
 	pipelines value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHProject >> pipelinesGroup [
 	<generated>
 	<navigation: 'Pipelines'>
 	^ MooseSpecializedGroup withAll: self pipelines asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> readme_url [
 
 	<FMProperty: #readme_url type: #String>
@@ -271,13 +269,13 @@ GLHProject >> readme_url [
 	^ readme_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> readme_url: anObject [
 	<generated>
 	readme_url := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> repository [
 	"Relation named: #repository type: #GLHRepository opposite: #project"
 
@@ -285,21 +283,21 @@ GLHProject >> repository [
 	^ repository
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> repository: anObject [
 
 	<generated>
 	repository := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHProject >> repositoryGroup [
 	<generated>
 	<navigation: 'Repository'>
 	^ MooseSpecializedGroup with: self repository
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> topics [
 
 	<FMProperty: #topics type: #Object>
@@ -307,13 +305,13 @@ GLHProject >> topics [
 	^ topics
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> topics: anObject [
 	<generated>
 	topics := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> web_url [
 
 	<FMProperty: #web_url type: #String>
@@ -321,7 +319,7 @@ GLHProject >> web_url [
 	^ web_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHProject >> web_url: anObject [
 	<generated>
 	web_url := anObject
diff --git a/src/GitLabHealth-Model/GLHRepository.class.st b/src/GitLabHealth-Model/GLHRepository.class.st
index df0909a..aeb4572 100644
--- a/src/GitLabHealth-Model/GLHRepository.class.st
+++ b/src/GitLabHealth-Model/GLHRepository.class.st
@@ -19,19 +19,17 @@ A git repository
 
 "
 Class {
-	#name : 'GLHRepository',
-	#superclass : 'GLHEntity',
+	#name : #GLHRepository,
+	#superclass : #GLHEntity,
 	#instVars : [
 		'#project => FMOne type: #GLHProject opposite: #repository',
 		'#branches => FMMany type: #GLHBranch opposite: #repository',
 		'#commits => FMMany type: #GLHCommit opposite: #repository'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : 'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHRepository class >> annotation [
 
 	<FMClass: #Repository super: #GLHEntity>
@@ -40,19 +38,19 @@ GLHRepository class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHRepository >> addBranch: anObject [
 	<generated>
 	^ self branches add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHRepository >> addCommit: anObject [
 	<generated>
 	^ self commits add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHRepository >> branches [
 	"Relation named: #branches type: #GLHBranch opposite: #repository"
 
@@ -61,21 +59,21 @@ GLHRepository >> branches [
 	^ branches
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHRepository >> branches: anObject [
 
 	<generated>
 	branches value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHRepository >> branchesGroup [
 	<generated>
 	<navigation: 'Branches'>
 	^ MooseSpecializedGroup withAll: self branches asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHRepository >> commits [
 	"Relation named: #commits type: #GLHCommit opposite: #repository"
 
@@ -84,21 +82,21 @@ GLHRepository >> commits [
 	^ commits
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHRepository >> commits: anObject [
 
 	<generated>
 	commits value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHRepository >> commitsGroup [
 	<generated>
 	<navigation: 'Commits'>
 	^ MooseSpecializedGroup withAll: self commits asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHRepository >> project [
 	"Relation named: #project type: #GLHProject opposite: #repository"
 
@@ -108,14 +106,14 @@ GLHRepository >> project [
 	^ project
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHRepository >> project: anObject [
 
 	<generated>
 	project := anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHRepository >> projectGroup [
 	<generated>
 	<navigation: 'Project'>
diff --git a/src/GitLabHealth-Model/GLHTEntityCreator.trait.st b/src/GitLabHealth-Model/GLHTEntityCreator.trait.st
index c296417..3d7bb53 100644
--- a/src/GitLabHealth-Model/GLHTEntityCreator.trait.st
+++ b/src/GitLabHealth-Model/GLHTEntityCreator.trait.st
@@ -5,13 +5,11 @@ It provides an API for creating entities and adding them to the model.
 
 "
 Trait {
-	#name : 'GLHTEntityCreator',
-	#category : 'GitLabHealth-Model-Model',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Model'
+	#name : #GLHTEntityCreator,
+	#category : 'GitLabHealth-Model-Model'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHTEntityCreator classSide >> annotation [
 
 	<FMClass: #TEntityCreator super: #Object>
@@ -20,182 +18,182 @@ GLHTEntityCreator classSide >> annotation [
 	^ self
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newAddition [
 
 	<generated>
 	^ self add: GLHAddition new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newBranch [
 
 	<generated>
 	^ self add: GLHBranch new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newChange [
 
 	<generated>
 	^ self add: GLHChange new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newChangeNamed: aName [
 
 	<generated>
 	^ self add: (GLHChange named: aName)
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newCommit [
 
 	<generated>
 	^ self add: GLHCommit new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newCommitNamed: aName [
 
 	<generated>
 	^ self add: (GLHCommit named: aName)
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newDeletion [
 
 	<generated>
 	^ self add: GLHDeletion new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newDiff [
 
 	<generated>
 	^ self add: GLHDiff new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newDiffNamed: aName [
 
 	<generated>
 	^ self add: (GLHDiff named: aName)
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newDiffRange [
 
 	<generated>
 	^ self add: GLHDiffRange new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newFile [
 
 	<generated>
 	^ self add: GLHFile new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newFileBlob [
 
 	<generated>
 	^ self add: GLHFileBlob new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newFileDirectory [
 
 	<generated>
 	^ self add: GLHFileDirectory new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newGroup [
 
 	<generated>
 	^ self add: GLHGroup new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newGroupNamed: aName [
 
 	<generated>
 	^ self add: (GLHGroup named: aName)
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newJob [
 
 	<generated>
 	^ self add: GLHJob new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newJobNamed: aName [
 
 	<generated>
 	^ self add: (GLHJob named: aName)
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newLineOfCode [
 
 	<generated>
 	^ self add: GLHLineOfCode new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newMergeRequest [
 
 	<generated>
 	^ self add: GLHMergeRequest new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newMergeRequestNamed: aName [
 
 	<generated>
 	^ self add: (GLHMergeRequest named: aName)
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newPipeline [
 
 	<generated>
 	^ self add: GLHPipeline new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newProject [
 
 	<generated>
 	^ self add: GLHProject new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newProjectNamed: aName [
 
 	<generated>
 	^ self add: (GLHProject named: aName)
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newRepository [
 
 	<generated>
 	^ self add: GLHRepository new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newUser [
 
 	<generated>
 	^ self add: GLHUser new
 ]
 
-{ #category : 'entity creation' }
+{ #category : #'entity creation' }
 GLHTEntityCreator >> newUserNamed: aName [
 
 	<generated>
diff --git a/src/GitLabHealth-Model/GLHUser.class.st b/src/GitLabHealth-Model/GLHUser.class.st
index 6b25046..ef69614 100644
--- a/src/GitLabHealth-Model/GLHUser.class.st
+++ b/src/GitLabHealth-Model/GLHUser.class.st
@@ -33,15 +33,17 @@ A GitLab User
 | `avatar_url` | `String` | nil | |
 | `bio` | `String` | nil | |
 | `bot` | `String` | nil | |
+| `commit_email` | `String` | nil | |
 | `created_at` | `String` | nil | |
+| `email` | `String` | nil | |
 | `followers` | `String` | nil | |
 | `following` | `String` | nil | |
 | `id` | `Number` | nil | |
 | `job_title` | `String` | nil | |
 | `linkedin` | `String` | nil | |
 | `location` | `String` | nil | |
-| `name` | `String` | nil | Basic name of the entity, not full reference.|
 | `name` | `String` | nil | |
+| `name` | `String` | nil | Basic name of the entity, not full reference.|
 | `organization` | `String` | nil | |
 | `pronouns` | `String` | nil | |
 | `public_email` | `String` | nil | |
@@ -55,8 +57,8 @@ A GitLab User
 
 "
 Class {
-	#name : 'GLHUser',
-	#superclass : 'GLHEntity',
+	#name : #GLHUser,
+	#superclass : #GLHEntity,
 	#traits : 'FamixTNamedEntity',
 	#classTraits : 'FamixTNamedEntity classTrait',
 	#instVars : [
@@ -66,12 +68,14 @@ Class {
 		'#bio => FMProperty',
 		'#bot => FMProperty',
 		'#closedMergeRequests => FMMany type: #GLHMergeRequest opposite: #closed_by',
+		'#commit_email => FMProperty',
 		'#commits => FMMany type: #GLHCommit opposite: #commitCreator',
 		'#contributedProjects => FMMany type: #GLHProject opposite: #contributors',
 		'#createdMergeRequests => FMMany type: #GLHMergeRequest opposite: #author',
 		'#createdProjects => FMMany type: #GLHProject opposite: #creator',
 		'#created_at => FMProperty',
 		'#currentlyAssignedMergeRequest => FMMany type: #GLHMergeRequest opposite: #assignee',
+		'#email => FMProperty',
 		'#followers => FMProperty',
 		'#following => FMProperty',
 		'#id => FMProperty',
@@ -94,12 +98,10 @@ Class {
 		'#website_url => FMProperty',
 		'#work_information => FMProperty'
 	],
-	#category : 'GitLabHealth-Model-Entities',
-	#package : 'GitLabHealth-Model',
-	#tag : 'Entities'
+	#category : #'GitLabHealth-Model-Entities'
 }
 
-{ #category : 'meta' }
+{ #category : #meta }
 GLHUser class >> annotation [
 
 	<FMClass: #User super: #GLHEntity>
@@ -108,79 +110,79 @@ GLHUser class >> annotation [
 	^ self
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addApprocheMergeRequest: anObject [
 	<generated>
 	^ self approcheMergeRequests add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addAssignedMergeRequest: anObject [
 	<generated>
 	^ self assignedMergeRequests add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addClosedMergeRequest: anObject [
 	<generated>
 	^ self closedMergeRequests add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addCommit: anObject [
 	<generated>
 	^ self commits add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addContributedProject: anObject [
 	<generated>
 	^ self contributedProjects add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addCreatedMergeRequest: anObject [
 	<generated>
 	^ self createdMergeRequests add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addCreatedProject: anObject [
 	<generated>
 	^ self createdProjects add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addCurrentlyAssignedMergeRequest: anObject [
 	<generated>
 	^ self currentlyAssignedMergeRequest add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addJob: anObject [
 	<generated>
 	^ self jobs add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addMergerOfMergeRequest: anObject [
 	<generated>
 	^ self mergerOfMergeRequests add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addReviewedMergeResquest: anObject [
 	<generated>
 	^ self reviewedMergeResquest add: anObject
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 GLHUser >> addUsedMerge: anObject [
 	<generated>
 	^ self usedMerges add: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> approcheMergeRequests [
 	"Relation named: #approcheMergeRequests type: #GLHMergeRequest opposite: #approved_by"
 
@@ -188,14 +190,14 @@ GLHUser >> approcheMergeRequests [
 	^ approcheMergeRequests
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> approcheMergeRequests: anObject [
 
 	<generated>
 	approcheMergeRequests value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> assignedMergeRequests [
 	"Relation named: #assignedMergeRequests type: #GLHMergeRequest opposite: #assignees"
 
@@ -203,14 +205,14 @@ GLHUser >> assignedMergeRequests [
 	^ assignedMergeRequests
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> assignedMergeRequests: anObject [
 
 	<generated>
 	assignedMergeRequests value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> avatar_url [
 
 	<FMProperty: #avatar_url type: #String>
@@ -218,13 +220,13 @@ GLHUser >> avatar_url [
 	^ avatar_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> avatar_url: anObject [
 	<generated>
 	avatar_url := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> bio [
 
 	<FMProperty: #bio type: #String>
@@ -232,13 +234,13 @@ GLHUser >> bio [
 	^ bio
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> bio: anObject [
 	<generated>
 	bio := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> bot [
 
 	<FMProperty: #bot type: #String>
@@ -246,13 +248,13 @@ GLHUser >> bot [
 	^ bot
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> bot: anObject [
 	<generated>
 	bot := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> closedMergeRequests [
 	"Relation named: #closedMergeRequests type: #GLHMergeRequest opposite: #closed_by"
 
@@ -261,14 +263,28 @@ GLHUser >> closedMergeRequests [
 	^ closedMergeRequests
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> closedMergeRequests: anObject [
 
 	<generated>
 	closedMergeRequests value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
+GLHUser >> commit_email [
+
+	<FMProperty: #commit_email type: #String>
+	<generated>
+	^ commit_email
+]
+
+{ #category : #accessing }
+GLHUser >> commit_email: anObject [
+	<generated>
+	commit_email := anObject
+]
+
+{ #category : #accessing }
 GLHUser >> commits [
 	"Relation named: #commits type: #GLHCommit opposite: #commitCreator"
 
@@ -277,21 +293,21 @@ GLHUser >> commits [
 	^ commits
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> commits: anObject [
 
 	<generated>
 	commits value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHUser >> commitsGroup [
 	<generated>
 	<navigation: 'Commits'>
 	^ MooseSpecializedGroup withAll: self commits asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> contributedProjects [
 	"Relation named: #contributedProjects type: #GLHProject opposite: #contributors"
 
@@ -299,14 +315,14 @@ GLHUser >> contributedProjects [
 	^ contributedProjects
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> contributedProjects: anObject [
 
 	<generated>
 	contributedProjects value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> createdMergeRequests [
 	"Relation named: #createdMergeRequests type: #GLHMergeRequest opposite: #author"
 
@@ -315,14 +331,14 @@ GLHUser >> createdMergeRequests [
 	^ createdMergeRequests
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> createdMergeRequests: anObject [
 
 	<generated>
 	createdMergeRequests value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> createdProjects [
 	"Relation named: #createdProjects type: #GLHProject opposite: #creator"
 
@@ -331,14 +347,14 @@ GLHUser >> createdProjects [
 	^ createdProjects
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> createdProjects: anObject [
 
 	<generated>
 	createdProjects value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> created_at [
 
 	<FMProperty: #created_at type: #String>
@@ -346,13 +362,13 @@ GLHUser >> created_at [
 	^ created_at
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> created_at: anObject [
 	<generated>
 	created_at := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> currentlyAssignedMergeRequest [
 	"Relation named: #currentlyAssignedMergeRequest type: #GLHMergeRequest opposite: #assignee"
 
@@ -361,14 +377,28 @@ GLHUser >> currentlyAssignedMergeRequest [
 	^ currentlyAssignedMergeRequest
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> currentlyAssignedMergeRequest: anObject [
 
 	<generated>
 	currentlyAssignedMergeRequest value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
+GLHUser >> email [
+
+	<FMProperty: #email type: #String>
+	<generated>
+	^ email
+]
+
+{ #category : #accessing }
+GLHUser >> email: anObject [
+	<generated>
+	email := anObject
+]
+
+{ #category : #accessing }
 GLHUser >> followers [
 
 	<FMProperty: #followers type: #String>
@@ -376,13 +406,13 @@ GLHUser >> followers [
 	^ followers
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> followers: anObject [
 	<generated>
 	followers := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> following [
 
 	<FMProperty: #following type: #String>
@@ -390,13 +420,13 @@ GLHUser >> following [
 	^ following
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> following: anObject [
 	<generated>
 	following := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> id [
 
 	<FMProperty: #id type: #Number>
@@ -404,13 +434,13 @@ GLHUser >> id [
 	^ id
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> id: anObject [
 	<generated>
 	id := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> job_title [
 
 	<FMProperty: #job_title type: #String>
@@ -418,13 +448,13 @@ GLHUser >> job_title [
 	^ job_title
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> job_title: anObject [
 	<generated>
 	job_title := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> jobs [
 	"Relation named: #jobs type: #GLHJob opposite: #user"
 
@@ -433,21 +463,21 @@ GLHUser >> jobs [
 	^ jobs
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> jobs: anObject [
 
 	<generated>
 	jobs value: anObject
 ]
 
-{ #category : 'navigation' }
+{ #category : #navigation }
 GLHUser >> jobsGroup [
 	<generated>
 	<navigation: 'Jobs'>
 	^ MooseSpecializedGroup withAll: self jobs asSet
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> linkedin [
 
 	<FMProperty: #linkedin type: #String>
@@ -455,13 +485,13 @@ GLHUser >> linkedin [
 	^ linkedin
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> linkedin: anObject [
 	<generated>
 	linkedin := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> location [
 
 	<FMProperty: #location type: #String>
@@ -469,13 +499,13 @@ GLHUser >> location [
 	^ location
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> location: anObject [
 	<generated>
 	location := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> mergerOfMergeRequests [
 	"Relation named: #mergerOfMergeRequests type: #GLHMergeRequest opposite: #merged_by"
 
@@ -484,14 +514,14 @@ GLHUser >> mergerOfMergeRequests [
 	^ mergerOfMergeRequests
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> mergerOfMergeRequests: anObject [
 
 	<generated>
 	mergerOfMergeRequests value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> name [
 
 	<FMProperty: #name type: #String>
@@ -499,13 +529,13 @@ GLHUser >> name [
 	^ name
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> name: anObject [
 	<generated>
 	name := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> organization [
 
 	<FMProperty: #organization type: #String>
@@ -513,13 +543,13 @@ GLHUser >> organization [
 	^ organization
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> organization: anObject [
 	<generated>
 	organization := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> pronouns [
 
 	<FMProperty: #pronouns type: #String>
@@ -527,13 +557,13 @@ GLHUser >> pronouns [
 	^ pronouns
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> pronouns: anObject [
 	<generated>
 	pronouns := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> public_email [
 
 	<FMProperty: #public_email type: #String>
@@ -541,13 +571,13 @@ GLHUser >> public_email [
 	^ public_email
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> public_email: anObject [
 	<generated>
 	public_email := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> reviewedMergeResquest [
 	"Relation named: #reviewedMergeResquest type: #GLHMergeRequest opposite: #reviewers"
 
@@ -555,14 +585,14 @@ GLHUser >> reviewedMergeResquest [
 	^ reviewedMergeResquest
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> reviewedMergeResquest: anObject [
 
 	<generated>
 	reviewedMergeResquest value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> skype [
 
 	<FMProperty: #skype type: #String>
@@ -570,13 +600,13 @@ GLHUser >> skype [
 	^ skype
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> skype: anObject [
 	<generated>
 	skype := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> state [
 
 	<FMProperty: #state type: #String>
@@ -584,13 +614,13 @@ GLHUser >> state [
 	^ state
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> state: anObject [
 	<generated>
 	state := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> twitter [
 
 	<FMProperty: #twitter type: #String>
@@ -598,13 +628,13 @@ GLHUser >> twitter [
 	^ twitter
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> twitter: anObject [
 	<generated>
 	twitter := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> usedMerges [
 	"Relation named: #usedMerges type: #GLHMergeRequest opposite: #merge_user"
 
@@ -613,14 +643,14 @@ GLHUser >> usedMerges [
 	^ usedMerges
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> usedMerges: anObject [
 
 	<generated>
 	usedMerges value: anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> username [
 
 	<FMProperty: #username type: #String>
@@ -628,13 +658,13 @@ GLHUser >> username [
 	^ username
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> username: anObject [
 	<generated>
 	username := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> web_url [
 
 	<FMProperty: #web_url type: #String>
@@ -642,13 +672,13 @@ GLHUser >> web_url [
 	^ web_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> web_url: anObject [
 	<generated>
 	web_url := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> website_url [
 
 	<FMProperty: #website_url type: #String>
@@ -656,13 +686,13 @@ GLHUser >> website_url [
 	^ website_url
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> website_url: anObject [
 	<generated>
 	website_url := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> work_information [
 
 	<FMProperty: #work_information type: #String>
@@ -670,7 +700,7 @@ GLHUser >> work_information [
 	^ work_information
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 GLHUser >> work_information: anObject [
 	<generated>
 	work_information := anObject
diff --git a/src/GitLabHealth-Model/package.st b/src/GitLabHealth-Model/package.st
index c2a3d0c..6a6caf2 100644
--- a/src/GitLabHealth-Model/package.st
+++ b/src/GitLabHealth-Model/package.st
@@ -1 +1 @@
-Package { #name : 'GitLabHealth-Model' }
+Package { #name : #'GitLabHealth-Model' }