add user email

moosetechnology · Nov 4, 2024 · a303ad5 · a303ad5
1 parent 3fc9bdb
commit a303ad5
Show file tree

Hide file tree

Showing 25 changed files with 632 additions and 642 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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,35 +89,35 @@ 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>
 	<generated>
 	^ 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'>