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>master
parent
6cca8f0694
commit
f8e0e5274f
|
@ -168,6 +168,8 @@ string is ~a.~%")
|
|||
(format #t (G_ " commit: ~a~%") (channel-commit channel)))
|
||||
('channels
|
||||
(pretty-print `(list ,(channel->code channel))))
|
||||
('channels-sans-intro
|
||||
(pretty-print `(list ,(channel->code channel #:include-introduction? #f))))
|
||||
('json
|
||||
(display (channel->json channel))
|
||||
(newline))
|
||||
|
|
Reference in New Issue