Message ID | 20221020132814.1549436-4-zimon.toutoune@gmail.com |
---|---|
State | New |
Headers | show |
Series | [bug#58660,1/4] etc: teams: Improve scope display. | expand |
Context | Check | Description |
---|---|---|
cbaines/comparison | success | View comparision |
cbaines/git-branch | success | View Git branch |
cbaines/applying patch | success | |
cbaines/issue | success | View issue |
cbaines/comparison | success | View comparision |
cbaines/git-branch | success | View Git branch |
cbaines/applying patch | success | View Laminar job |
cbaines/issue | success | View issue |
diff --git a/etc/teams.scm.in b/etc/teams.scm.in index 3d4c7319c2..790eb17131 100644 --- a/etc/teams.scm.in +++ b/etc/teams.scm.in @@ -556,15 +556,16 @@ (define (list-teams) "Print all teams, their scope and their members." (define port* (current-output-port)) (define width* (%text-width)) - (for-each - (lambda (team) + (fold + (lambda (team id-number) (format port* "\ -id: ~a +id: (~d) ~a name: ~a description: ~a ~amembers: " + id-number (team-id team) (team-name team) (or (and=> (team-description team) @@ -583,7 +584,9 @@ (define width* (%text-width)) scope) string<=?))))) (list-members team port* "+ ") - (newline)) + (newline) + (1+ id-number)) + 0 (sort (hash-map->list (lambda (key value) value) %teams) (lambda (team1 team2)