me
/
guix
Archived
1
0
Fork 0
Code

etc: teams: Refactor list-teams. 

* etc/teams.scm.in (print-team, sort-teams): New procedures.
(list-teams): Use them.
Maxim Cournoyer 2023-08-29 13:53:49 -04:00
parent c0dad02e9f
commit ee4a429d49
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 30 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
etc/teams.scm.in
View File

@ -672,37 +672,41 @@ TEAMS when a patch is received by Debbugs."
(format #t "~a~a~%" prefix (member->string member)))
(sort-members (team-members team))))
(define (list-teams)
"Print all teams, their scope and their members."
(define port* (current-output-port))
(define width* (%text-width))
(for-each
(lambda (team)
(format port*
"\
(define (print-team team)
"Print TEAM, a <team> record object."
(format #t
"\
id: ~a
name: ~a
description: ~a
~amembers:
"
(team-id team)
(team-name team)
(or (and=> (team-description team)
(lambda (text)
(string->recutils
(fill-paragraph text width*
(string-length "description: ")))))
"<none>")
(match (team-scope team)
(() "")
(scope (format #f "scope: ~{~s ~}~%" scope))))
(list-members team #:prefix "+ ")
(newline))
(sort
(hash-map->list (lambda (key value) value) %teams)
(lambda (team1 team2)
(string<? (symbol->string (team-id team1))
(symbol->string (team-id team2)))))))
(team-id team)
(team-name team)
(or (and=> (team-description team)
(lambda (text)
(string->recutils
(fill-paragraph text (%text-width)
(string-length "description: ")))))
"<none>")
(match (team-scope team)
(() "")
(scope (format #f "scope: ~{~s ~}~%" scope))))
(list-members team #:prefix "+ ")
(newline)))
(define (sort-teams teams)
"Sort TEAMS, a list of <team> record objects."
(sort teams
(lambda (team1 team2)
(string<? (symbol->string (team-id team1))
(symbol->string (team-id team2))))))
(define* (list-teams)
"Print all teams, their scope and their members."
(for-each print-team
(sort-teams (hash-map->list
(lambda (_ value) value) %teams))))
(define (diff-revisions rev-start rev-end)