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

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit a5f473db6f8682350b61e2c04b7580544eea0ea3
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Fri Jan 13 21:34:57 2023 +0000

    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>
---
 gnu/services/configuration.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index 6b0291dc00..02d1aa1796 100644
--- a/gnu/services/configuration.scm
+++ b/gnu/services/configuration.scm
@@ -34,6 +34,7 @@
   #: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 @@ DEFAULT."
                      (cond
                       ((package? val)
                        (symbol->string (package->symbol val)))
+                      (((list-of package?) val)
+                       (format #f "(~{~a~^ ~})" (map package->symbol val)))
                       (else (str val))))
 
                    `(entry (% (heading