aboutsummaryrefslogtreecommitdiff
path: root/etc
diff options
context:
space:
mode:
authorzimoun <zimon.toutoune@gmail.com>2022-11-17 21:28:19 +0100
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-08-29 14:52:21 -0400
commitc4fec3b480d07d3433b293aac87ab4228ca923af (patch)
treed24e94f0c9ff9bede5bf341fa571534e847a840b /etc
parent60dc07a461f3582a7ca24008a00b6e9da579fe58 (diff)
downloadguix-c4fec3b480d07d3433b293aac87ab4228ca923af.tar.gz
guix-c4fec3b480d07d3433b293aac87ab4228ca923af.zip
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>
Diffstat (limited to 'etc')
-rw-r--r--etc/teams.scm.in26
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."