Subject: [bug#78568] [PATCH 4/5] teams: Add Codeberg accounts to <person> records.

From: Ludovic Courtès <[email-masked]>
Date: Fri, 23 May 2025 21:55:08 +0200

Based on the committer accounts given in the thread at
<https://lists.gnu.org/archive/html/guix-devel/2025-05/msg00072.html>.

* etc/teams.scm (<person>)[account]: Add field.
(person): Add ‘account’ parameter.
<top level>: Add known Codeberg account names.

Change-Id: Iad3b10c328b0df5d3c68d98ffee7f7c8ec4c8e23
---
 etc/teams.scm | 95 +++++++++++++++++++++++++++++++++------------------
 1 file changed, 62 insertions(+), 33 deletions(-)

diff --git a/etc/teams.scm b/etc/teams.scm
index 4b06d3a937..e881e916ab 100755
--- a/etc/teams.scm
+++ b/etc/teams.scm
@@ -75,13 +75,14 @@ (define-record-type <team>
   (scope       team-scope))
 
 (define-record-type <person>
-  (make-person name email)
+  (make-person name email account)
   person?
   (name    person-name)
-  (email   person-email))
+  (email   person-email)
+  (account person-codeberg-account))
 
-(define* (person name #:optional email)
-  (make-person name email))
+(define* (person name #:optional email account)
+  (make-person name email account))
 
 (define* (team id #:key name description (members '())
                (scope '()))
@@ -672,24 +673,29 @@ (define-team zig
 
 
 (define-member (person "Eric Bavier"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "bavier")
   science)
 
 (define-member (person "Lars-Dominik Braun"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "ldb")
   python haskell)
 
 (define-member (person "Jonathan Brielmaier"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "jonsger")
   mozilla)
 
 (define-member (person "Ludovic Courtès"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "civodul")
   core home bootstrap core-packages installer
   documentation mentors)
 
 (define-member (person "Andreas Enge"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "enge")
   bootstrap core-packages lxqt science tex)
 
 (define-member (person "Tanguy Le Carrour"
@@ -701,15 +707,18 @@ (define-member (person "Tobias Geerinckx-Rice"
   core mentors)
 
 (define-member (person "Steve George"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "futurile")
   rust)
 
 (define-member (person "Leo Famulari"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "lfam")
   kernel)
 
 (define-member (person "Efraim Flashner"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "efraim")
   embedded bootstrap rust)
 
 (define-member (person "jgart"
@@ -717,11 +726,13 @@ (define-member (person "jgart"
   lisp mentors)
 
 (define-member (person "Guillaume Le Vaillant"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "glv")
   lisp)
 
 (define-member (person "Julien Lepiller"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "roptat")
   java ocaml translations)
 
 (define-member (person "Philip McGrath"
@@ -729,23 +740,28 @@ (define-member (person "Philip McGrath"
   racket)
 
 (define-member (person "Mathieu Othacehe"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "mothacehe")
   core installer mentors)
 
 (define-member (person "Florian Pelz"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "pelzflorian")
   translations)
 
 (define-member (person "Liliana Marie Prikler"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "lilyp")
   emacs games gnome)
 
 (define-member (person "Ricardo Wurmus"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "rekado")
   r sugar)
 
 (define-member (person "Christopher Baines"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "cbaines")
   core mentors ruby)
 
 (define-member (person "Andrew Tropin"
@@ -769,19 +785,22 @@ (define-member (person "Simon Tournier"
   julia core mentors r)
 
 (define-member (person "宋文武"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "iyzsong")
   games localization lxqt qt xfce)
 
 (define-member (person "Vagrant Cascadian"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "vagrantc")
   embedded)
 
-(define-member (person "Vagrant Cascadian"
+(define-member (person "Vagrant Cascadian"        ;XXX: duplicate
                        "[email-masked]")
   reproduciblebuilds)
 
 (define-member (person "Maxim Cournoyer"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "apteryx")
   documentation gnome qt telephony electronics)
 
 (define-member (person "Katherine Cox-Buday"
@@ -797,7 +816,8 @@ (define-member (person "Gabriel Wicki"
   audio documentation electronics embedded)
 
 (define-member (person "Ekaitz Zarraga"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "ekaitz-zarraga")
   bootstrap zig electronics)
 
 (define-member (person "Divya Ranjan Pattanaik"
@@ -805,7 +825,8 @@ (define-member (person "Divya Ranjan Pattanaik"
   emacs rust haskell)
 
 (define-member (person "Clément Lassieur"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "snape")
   mozilla)
 
 (define-member (person "Sharlatan Hellseher"
@@ -817,7 +838,8 @@ (define-member (person "Vivien Kraus"
   gnome)
 
 (define-member (person "Mark H Weaver"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "mhw")
   mozilla)
 
 (define-member (person "Adam Faiz"
@@ -829,7 +851,8 @@ (define-member (person "Laurent Gatto"
   r)
 
 (define-member (person "Nicolas Goaziou"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "ngz")
   tex)
 
 (define-member (person "André Batista"
@@ -837,15 +860,18 @@ (define-member (person "André Batista"
   mozilla)
 
 (define-member (person "Janneke Nieuwenhuizen"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "janneke")
   bootstrap core-packages home hurd installer)
 
 (define-member (person "Ian Eure"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "ieure")
   mozilla emacs)
 
 (define-member (person "Zheng Junjie"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "z572")
   core-packages qt kde)
 
 (define-member (person "Sughosha"
@@ -853,7 +879,8 @@ (define-member (person "Sughosha"
   kde)
 
 (define-member (person "Jelle Licht"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "jlicht")
   javascript)
 
 (define-member (person "Cayetano Santos"
@@ -861,11 +888,13 @@ (define-member (person "Cayetano Santos"
   emacs electronics)
 
 (define-member (person "Greg Hogan"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "greghogan")
   c++)
 
 (define-member (person "Hilton Chain"
-                       "[email-masked]")
+                       "[email-masked]"
+                       "hako")
   emacs home localization mozilla rust zig)
 
 (define-member (person "Noé Lopez"
-- 
2.49.0