[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/05: scripts: describe: Support 'channels-sans-intro' format for local
From: |
guix-commits |
Subject: |
04/05: scripts: describe: Support 'channels-sans-intro' format for local checkouts. |
Date: |
Wed, 24 Jan 2024 17:29:32 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit f8e0e5274fcf9c966b3938d32922b569f48de524
Author: Sergey Trofimov <sarg@sarg.org.ru>
AuthorDate: Tue Jan 23 08:25:44 2024 +0100
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>
---
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))