From c4fec3b480d07d3433b293aac87ab4228ca923af Mon Sep 17 00:00:00 2001 From: zimoun Date: Thu, 17 Nov 2022 21:28:19 +0100 Subject: etc: teams: Itemize 'scope' field. * etc/teams.scm.in (list-teams): Itemize the 'scope' field. Signed-off-by: Maxim Cournoyer Modified-by: Maxim Cournoyer --- etc/teams.scm.in | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'etc/teams.scm.in') 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: "))))) - "") - (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: "))))) + "") + (match (team-scope team) + (() "") + (scope (format #f "scope:~%~{+ ~a~^~%~}~%" scope)))) + (list-members team #:prefix "+ ") + (newline)) (define (sort-teams teams) "Sort TEAMS, a list of record objects." -- cgit v1.2.3