ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 06:06:53 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

channels: Add 'channel->code'.

Browse source 
* guix/channels.scm (channel->code): New procedure, taken from...
* guix/scripts/describe.scm (channel->sexp): ... here.
Adjust callers accordingly.
This commit is contained in:
Ludovic Courtès 2021-01-10 21:51:18 +01:00
parent 1b88b7bad2
commit 60d72f5364
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 22 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
guix/channels.scm
View file

@ -92,6 +92,7 @@ (define-module (guix channels)
profile-channels
manifest-entry-channel
channel->code
channel-news-entry?
channel-news-entry-commit
@ -957,6 +958,24 @@ (define (profile-channels profile)
(reverse
(manifest-entries (profile-manifest profile)))))
(define* (channel->code channel #:key (include-introduction? #t))
"Return code (an sexp) to build CHANNEL. When INCLUDE-INTRODUCTION? is
true, include its introduction, if any."
(let ((intro (and include-introduction?
(channel-introduction channel))))
`(channel
(name ',(channel-name channel))
(url ,(channel-url channel))
(commit ,(channel-commit channel))
,@(if intro
`((introduction (make-channel-introduction
,(channel-introduction-first-signed-commit intro)
(openpgp-fingerprint
,(openpgp-format-fingerprint
(channel-introduction-first-commit-signer
intro))))))
'()))))
;;;
;;; News.

22
guix/scripts/describe.scm
View file

@ -113,22 +113,6 @@ (define (display-package-search-path fmt)
(_
(warning (G_ "'GUIX_PACKAGE_PATH' is set but it is not captured~%")))))))
(define* (channel->sexp channel #:key (include-introduction? #t))
(let ((intro (and include-introduction?
(channel-introduction channel))))
`(channel
(name ',(channel-name channel))
(url ,(channel-url channel))
(commit ,(channel-commit channel))
,@(if intro
`((introduction (make-channel-introduction
,(channel-introduction-first-signed-commit intro)
(openpgp-fingerprint
,(openpgp-format-fingerprint
(channel-introduction-first-commit-signer
intro))))))
'()))))
(define (channel->json channel)
(scm->json-string
(let ((intro (channel-introduction channel)))
@ -183,7 +167,7 @@ (define (display-checkout-info fmt)
(format #t (G_ " branch: ~a~%") (reference-shorthand head))
(format #t (G_ " commit: ~a~%") commit))
('channels
(pretty-print `(list ,(channel->sexp (channel (name 'guix)
(pretty-print `(list ,(channel->code (channel (name 'guix)
(url (dirname directory))
(commit commit))))))
('json
@ -213,9 +197,9 @@ (define channels
('human
(display-profile-content profile number))
('channels
(pretty-print `(list ,@(map channel->sexp channels))))
(pretty-print `(list ,@(map channel->code channels))))
('channels-sans-intro
(pretty-print `(list ,@(map (cut channel->sexp <>
(pretty-print `(list ,@(map (cut channel->code <>
#:include-introduction? #f)
channels))))
('json