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:
Sergey Trofimov 2024-01-23 08:25:44 +01:00 committed by Ludovic Courtès
parent 6cca8f0694
commit f8e0e5274f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -168,6 +168,8 @@ (define (display-checkout-info fmt)
(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))