From f8e0e5274fcf9c966b3938d32922b569f48de524 Mon Sep 17 00:00:00 2001 From: Sergey Trofimov 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 --- guix/scripts/describe.scm | 2 ++ 1 file changed, 2 insertions(+) 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 @@ 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)) -- cgit v1.2.3