me/guix
Archived
1
0
Fork 0
Code Activity

etc: teams: List teams sorted by id.

Browse source 
* etc/teams.scm.in (list-teams): Sort teams by id.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
zimoun 2022-10-20 15:28:13 +02:00 • committed by Mathieu Othacehe
parent ab9e6597f6
commit 18fb7c0f30
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
etc/teams.scm.in
View file

@ -538,8 +538,8 @@ TEAMS when a patch is received by Debbugs."
"Print all teams, their scope and their members." "Print all teams, their scope and their members."
(define port* (current-output-port)) (define port* (current-output-port))
(define width* (%text-width)) (define width* (%text-width))
(hash-for-each (for-each
(lambda (key team) (lambda (team)
(format port* (format port*
"\ "\
id: ~a id: ~a
@ -560,7 +560,11 @@ description: ~a
(scope (format #f "scope: ~{~s ~}~%" scope)))) (scope (format #f "scope: ~{~s ~}~%" scope))))
(list-members team port* "+ ") (list-members team port* "+ ")
(newline)) (newline))
%teams)) (sort
(hash-map->list (lambda (key value) value) %teams)
(lambda (team1 team2)
(string<? (symbol->string (team-id team1))
(symbol->string (team-id team2)))))))
(define (diff-revisions rev-start rev-end) (define (diff-revisions rev-start rev-end)