mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-11 13:49:23 -05:00
services: configuration: Format a list of packages by their names.
* 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:
parent
640d27c2d6
commit
a5f473db6f
1 changed files with 3 additions and 0 deletions
|
@ -34,6 +34,7 @@ (define-module (gnu services configuration)
|
|||
#:autoload (texinfo) (texi-fragment->stexi)
|
||||
#:autoload (texinfo serialize) (stexi->texi)
|
||||
#:use-module (ice-9 curried-definitions)
|
||||
#:use-module (ice-9 format)
|
||||
#:use-module (ice-9 match)
|
||||
#:use-module (srfi srfi-1)
|
||||
#:use-module (srfi srfi-34)
|
||||
|
@ -370,6 +371,8 @@ (define (show-default val)
|
|||
(cond
|
||||
((package? val)
|
||||
(symbol->string (package->symbol val)))
|
||||
(((list-of package?) val)
|
||||
(format #f "(~{~a~^ ~})" (map package->symbol val)))
|
||||
(else (str val))))
|
||||
|
||||
`(entry (% (heading
|
||||
|
|
Loading…
Reference in a new issue