From f8e0e5274fcf9c966b3938d32922b569f48de524 Mon Sep 17 00:00:00 2001
From: Sergey Trofimov <sarg@sarg.org.ru>
Date: Tue, 23 Jan 2024 08:25:44 +0100
Subject: scripts: describe: Support 'channels-sans-intro' format for local
 checkouts.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/scripts/describe.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'guix/scripts/describe.scm')

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))
-- 
cgit v1.2.3