me/guix
Archived
1
0
Fork 0
Code Activity

services: configuration: Format a list of packages by their names.

Browse source 
* gnu/services/configuration.scm
(generate-documentation): Format a list of packages by their names.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Bruno Victal 2023-01-13 21:34:57 +00:00 • committed by Maxim Cournoyer
parent 640d27c2d6
commit a5f473db6f
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/services/configuration.scm
View file

@ -34,6 +34,7 @@
#:autoload (texinfo) (texi-fragment->stexi) #:autoload (texinfo) (texi-fragment->stexi)
#:autoload (texinfo serialize) (stexi->texi) #:autoload (texinfo serialize) (stexi->texi)
#:use-module (ice-9 curried-definitions) #:use-module (ice-9 curried-definitions)
#:use-module (ice-9 format)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-34) #:use-module (srfi srfi-34)
@ -370,6 +371,8 @@ DEFAULT."
(cond (cond
((package? val) ((package? val)
(symbol->string (package->symbol val))) (symbol->string (package->symbol val)))
(((list-of package?) val)
(format #f "(~{~a~^ ~})" (map package->symbol val)))
(else (str val)))) (else (str val))))
`(entry (% (heading `(entry (% (heading