diff mbox series

[bug#68669,1/1] scripts: describe: Support 'channels-sans-intro' format for local checkouts.

Message ID 514e0727e1c14fef2c700d380534bf9d9db74f7d.1705994127.git.sarg@sarg.org.ru
State New
Headers show
Series scripts: describe: Support 'channels-sans-intro' format for local checkouts. | expand

Commit Message

Sergey Trofimov Jan. 23, 2024, 7:25 a.m. UTC 
* guix/scripts/describe.scm (%display-checkout-info):
Support 'channels-sans-intro' format.
---
 guix/scripts/describe.scm | 2 ++
 1 file changed, 2 insertions(+)

Comments

Ludovic Courtès Jan. 24, 2024, 10:11 p.m. UTC | #1 
Sergey Trofimov <sarg@sarg.org.ru> skribis:

> * guix/scripts/describe.scm (%display-checkout-info):
> Support 'channels-sans-intro' format.

Applied, thanks!
diff mbox series

Patch

diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm
index 6d451dc902..449ab4b252 100644
--- a/guix/scripts/describe.scm
+++ b/guix/scripts/describe.scm
@@ -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))