guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 647e345b66017a576d92018654e3ec84d7fe2e95
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Fri May 23 14:45:51 2025 +0200

    teams: Add Codeberg accounts to <person> records.
    
    Based on the committer accounts given in the thread at
    <https://lists.gnu.org/archive/html/guix-devel/2025-05/msg00072.html>
    and additional team member accounts given in the thread at
    <https://lists.gnu.org/archive/html/guix-devel/2025-05/msg00322.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 | 110 ++++++++++++++++++++++++++++++++++++++--------------------
 1 file changed, 72 insertions(+), 38 deletions(-)

diff --git a/etc/teams.scm b/etc/teams.scm
index 4b06d3a937..668eb8d595 100755
--- a/etc/teams.scm
+++ b/etc/teams.scm
@@ -75,13 +75,14 @@ exec $pre_inst_env_maybe guix repl -- "$0" "$@"
   (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 @@ the \"texlive\" importer."
 
 
 (define-member (person "Eric Bavier"
-                       "bav...@posteo.net")
+                       "bav...@posteo.net"
+                       "bavier")
   science)
 
 (define-member (person "Lars-Dominik Braun"
-                       "l...@6xq.net")
+                       "l...@6xq.net"
+                       "ldb")
   python haskell)
 
 (define-member (person "Jonathan Brielmaier"
-                       "jonathan.brielma...@web.de")
+                       "jonathan.brielma...@web.de"
+                       "jonsger")
   mozilla)
 
 (define-member (person "Ludovic Courtès"
-                       "l...@gnu.org")
+                       "l...@gnu.org"
+                       "civodul")
   core home bootstrap core-packages installer
   documentation mentors)
 
 (define-member (person "Andreas Enge"
-                       "andr...@enge.fr")
+                       "andr...@enge.fr"
+                       "enge")
   bootstrap core-packages lxqt science tex)
 
 (define-member (person "Tanguy Le Carrour"
@@ -701,15 +707,18 @@ the \"texlive\" importer."
   core mentors)
 
 (define-member (person "Steve George"
-                       "st...@futurile.net")
+                       "st...@futurile.net"
+                       "futurile")
   rust)
 
 (define-member (person "Leo Famulari"
-                       "l...@famulari.name")
+                       "l...@famulari.name"
+                       "lfam")
   kernel)
 
 (define-member (person "Efraim Flashner"
-                       "efr...@flashner.co.il")
+                       "efr...@flashner.co.il"
+                       "efraim")
   embedded bootstrap rust)
 
 (define-member (person "jgart"
@@ -717,11 +726,13 @@ the \"texlive\" importer."
   lisp mentors)
 
 (define-member (person "Guillaume Le Vaillant"
-                       "g...@posteo.net")
+                       "g...@posteo.net"
+                       "glv")
   lisp)
 
 (define-member (person "Julien Lepiller"
-                       "jul...@lepiller.eu")
+                       "jul...@lepiller.eu"
+                       "roptat")
   java ocaml translations)
 
 (define-member (person "Philip McGrath"
@@ -729,27 +740,33 @@ the \"texlive\" importer."
   racket)
 
 (define-member (person "Mathieu Othacehe"
-                       "othac...@gnu.org")
+                       "othac...@gnu.org"
+                       "mothacehe")
   core installer mentors)
 
 (define-member (person "Florian Pelz"
-                       "pelzflor...@pelzflorian.de")
+                       "pelzflor...@pelzflorian.de"
+                       "pelzflorian")
   translations)
 
 (define-member (person "Liliana Marie Prikler"
-                       "liliana.prik...@gmail.com")
+                       "liliana.prik...@gmail.com"
+                       "lilyp")
   emacs games gnome)
 
 (define-member (person "Ricardo Wurmus"
-                       "rek...@elephly.net")
+                       "rek...@elephly.net"
+                       "rekado")
   r sugar)
 
 (define-member (person "Christopher Baines"
-                       "g...@cbaines.net")
+                       "g...@cbaines.net"
+                       "cbaines")
   core mentors ruby)
 
 (define-member (person "Andrew Tropin"
-                       "and...@trop.in")
+                       "and...@trop.in"
+                       "abcdw")
   home emacs)
 
 (define-member (person "pukkamustard"
@@ -769,19 +786,22 @@ the \"texlive\" importer."
   julia core mentors r)
 
 (define-member (person "宋文武"
-                       "iyzs...@envs.net")
+                       "iyzs...@envs.net"
+                       "iyzsong")
   games localization lxqt qt xfce)
 
 (define-member (person "Vagrant Cascadian"
-                       "vagr...@debian.org")
+                       "vagr...@debian.org"
+                       "vagrantc")
   embedded)
 
-(define-member (person "Vagrant Cascadian"
+(define-member (person "Vagrant Cascadian"        ;XXX: duplicate
                        "vagr...@reproducible-builds.org")
   reproduciblebuilds)
 
 (define-member (person "Maxim Cournoyer"
-                       "maxim.courno...@gmail.com")
+                       "maxim.courno...@gmail.com"
+                       "apteryx")
   documentation gnome qt telephony electronics)
 
 (define-member (person "Katherine Cox-Buday"
@@ -797,19 +817,23 @@ the \"texlive\" importer."
   audio documentation electronics embedded)
 
 (define-member (person "Ekaitz Zarraga"
-                       "eka...@elenq.tech")
+                       "eka...@elenq.tech"
+                       "ekaitz-zarraga")
   bootstrap zig electronics)
 
 (define-member (person "Divya Ranjan Pattanaik"
-                       "di...@subvertising.org")
+                       "di...@subvertising.org"
+                       "divyaranjan")
   emacs rust haskell)
 
 (define-member (person "Clément Lassieur"
-                       "clem...@lassieur.org")
+                       "clem...@lassieur.org"
+                       "snape")
   mozilla)
 
 (define-member (person "Sharlatan Hellseher"
-                       "sharlata...@gmail.com")
+                       "sharlata...@gmail.com"
+                       "Hellseher")
   go lisp python science sysadmin)
 
 (define-member (person "Vivien Kraus"
@@ -817,7 +841,8 @@ the \"texlive\" importer."
   gnome)
 
 (define-member (person "Mark H Weaver"
-                       "m...@netris.org")
+                       "m...@netris.org"
+                       "mhw")
   mozilla)
 
 (define-member (person "Adam Faiz"
@@ -829,23 +854,28 @@ the \"texlive\" importer."
   r)
 
 (define-member (person "Nicolas Goaziou"
-                       "g...@nicolasgoaziou.fr")
+                       "g...@nicolasgoaziou.fr"
+                       "ngz")
   tex)
 
 (define-member (person "André Batista"
-                       "nan...@riseup.net")
+                       "nan...@riseup.net"
+                       "madage")
   mozilla)
 
 (define-member (person "Janneke Nieuwenhuizen"
-                       "jann...@gnu.org")
+                       "jann...@gnu.org"
+                       "janneke")
   bootstrap core-packages home hurd installer)
 
 (define-member (person "Ian Eure"
-                       "i...@retrospec.tv")
+                       "i...@retrospec.tv"
+                       "ieure")
   mozilla emacs)
 
 (define-member (person "Zheng Junjie"
-                       "z572@z572.online")
+                       "z572@z572.online"
+                       "z572")
   core-packages qt kde)
 
 (define-member (person "Sughosha"
@@ -853,7 +883,8 @@ the \"texlive\" importer."
   kde)
 
 (define-member (person "Jelle Licht"
-                       "jli...@fsfe.org")
+                       "jli...@fsfe.org"
+                       "jlicht")
   javascript)
 
 (define-member (person "Cayetano Santos"
@@ -861,15 +892,18 @@ the \"texlive\" importer."
   emacs electronics)
 
 (define-member (person "Greg Hogan"
-                       "c...@greghogan.com")
+                       "c...@greghogan.com"
+                       "greghogan")
   c++)
 
 (define-member (person "Hilton Chain"
-                       "hako@ultrarare.space")
+                       "hako@ultrarare.space"
+                       "hako")
   emacs home localization mozilla rust zig)
 
 (define-member (person "Noé Lopez"
-                       "noelo...@free.fr")
+                       "noelo...@free.fr"
+                       "Baleine")
   gnome)
 
 (define-member (person "Ashvith Shetty"

Reply via email to