scripts: describe: Support 'channels-sans-intro' format for local checkouts.
* guix/scripts/describe.scm (%display-checkout-info): Support 'channels-sans-intro' format. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
6cca8f0694
commit
f8e0e5274f
1 changed files with 2 additions and 0 deletions
|
@ -168,6 +168,8 @@ string is ~a.~%")
|
||||||
(format #t (G_ " commit: ~a~%") (channel-commit channel)))
|
(format #t (G_ " commit: ~a~%") (channel-commit channel)))
|
||||||
('channels
|
('channels
|
||||||
(pretty-print `(list ,(channel->code channel))))
|
(pretty-print `(list ,(channel->code channel))))
|
||||||
|
('channels-sans-intro
|
||||||
|
(pretty-print `(list ,(channel->code channel #:include-introduction? #f))))
|
||||||
('json
|
('json
|
||||||
(display (channel->json channel))
|
(display (channel->json channel))
|
||||||
(newline))
|
(newline))
|
||||||
|
|
Reference in a new issue