diff options
author | zimoun <zimon.toutoune@gmail.com> | 2022-11-17 21:28:19 +0100 |
---|---|---|
committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-29 14:52:21 -0400 |
commit | c4fec3b480d07d3433b293aac87ab4228ca923af (patch) | |
tree | d24e94f0c9ff9bede5bf341fa571534e847a840b | |
parent | 60dc07a461f3582a7ca24008a00b6e9da579fe58 (diff) | |
download | guix-patches-c4fec3b480d07d3433b293aac87ab4228ca923af.tar guix-patches-c4fec3b480d07d3433b293aac87ab4228ca923af.tar.gz |
etc: teams: Itemize 'scope' field.
* etc/teams.scm.in (list-teams): Itemize the 'scope' field.
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
-rw-r--r-- | etc/teams.scm.in | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/etc/teams.scm.in b/etc/teams.scm.in index b53eb63399..98288945a1 100644 --- a/etc/teams.scm.in +++ b/etc/teams.scm.in @@ -682,19 +682,19 @@ name: ~a description: ~a ~amembers: " - (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))) + (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:~%~{+ ~a~^~%~}~%" scope)))) + (list-members team #:prefix "+ ") + (newline)) (define (sort-teams teams) "Sort TEAMS, a list of <team> record objects." |