summaryrefslogtreecommitdiff
path: root/etc
diff options
context:
space:
mode:
authorzimoun <zimon.toutoune@gmail.com>2022-11-17 21:28:18 +0100
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2023-08-29 14:52:21 -0400
commit60dc07a461f3582a7ca24008a00b6e9da579fe58 (patch)
tree4d0b9023ce9fee87602560e5abf57a8e9a235400 /etc
parentee4a429d4905fbe05f5f642fae6249747b43f0dd (diff)
etc: teams: Add 'show' subcommand and sort teams.
* etc/teams.scm.in: Add 'show' subcommand. Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Diffstat (limited to 'etc')
-rw-r--r--etc/teams.scm.in15
1 files changed, 11 insertions, 4 deletions
diff --git a/etc/teams.scm.in b/etc/teams.scm.in
index 3630044ca6..b53eb63399 100644
--- a/etc/teams.scm.in
+++ b/etc/teams.scm.in
@@ -6,6 +6,7 @@
;;; Copyright © 2022, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2022 Mathieu Othacehe <othacehe@gnu.org>
;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2022 Simon Tournier <zimon.toutoune@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -702,11 +703,13 @@ description: ~a
(string<? (symbol->string (team-id team1))
(symbol->string (team-id team2))))))
-(define* (list-teams)
+(define* (list-teams #:optional team-names)
"Print all teams, their scope and their members."
(for-each print-team
- (sort-teams (hash-map->list
- (lambda (_ value) value) %teams))))
+ (sort-teams
+ (if team-names
+ (map find-team team-names)
+ (hash-map->list (lambda (_ value) value) %teams)))))
(define (diff-revisions rev-start rev-end)
@@ -786,6 +789,8 @@ and REV-END, two git revision strings."
(lambda (team-name)
(list-members (find-team team-name)))
team-names))
+ (("show" . team-names)
+ (list-teams team-names))
(anything
(format (current-error-port)
"Usage: etc/teams.scm <command> [<args>]
@@ -804,6 +809,8 @@ Commands:
list-members <team-name>
list members belonging to <team-name>
get-maintainer <patch>
- compatibility mode with Linux get_maintainer.pl~%"))))
+ compatibility mode with Linux get_maintainer.pl
+ show <team-name>
+ display <team-name> properties~%"))))
(apply main (cdr (command-line)))