diff options
author | zimoun <zimon.toutoune@gmail.com> | 2022-11-17 21:28:18 +0100 |
---|---|---|
committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-29 14:52:21 -0400 |
commit | 60dc07a461f3582a7ca24008a00b6e9da579fe58 (patch) | |
tree | 4d0b9023ce9fee87602560e5abf57a8e9a235400 /etc/teams.scm.in | |
parent | ee4a429d4905fbe05f5f642fae6249747b43f0dd (diff) | |
download | guix-60dc07a461f3582a7ca24008a00b6e9da579fe58.tar.gz guix-60dc07a461f3582a7ca24008a00b6e9da579fe58.zip |
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/teams.scm.in')
-rw-r--r-- | etc/teams.scm.in | 15 |
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))) |