diff mbox series

[bug#60582,v2,1/2] services: configuration: Format a list of packages by their names.

Message ID d69bf7f2df9b730ebb735bf670aafef33b1bfb4a.1673014203.git.mirai@makinata.eu
State New
Headers
Series [bug#60582,v2,1/2] services: configuration: Format a list of packages by their names. |

Commit Message

Bruno Victal Jan. 6, 2023, 2:10 p.m. UTC 
* gnu/services/configuration.scm
(generate-documentation): Format a list of packages by their names.
---
 gnu/services/configuration.scm | 4 ++++
 1 file changed, 4 insertions(+)


base-commit: a768b0433e0b79c5a32910ce5515086b92725e84
diff mbox series

Patch

diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index 6b0291dc00..482b49aae4 100644
--- a/gnu/services/configuration.scm
+++ b/gnu/services/configuration.scm
@@ -35,6 +35,7 @@  (define-module (gnu services configuration)
   #:autoload   (texinfo serialize) (stexi->texi)
   #:use-module (ice-9 curried-definitions)
   #:use-module (ice-9 match)
+  #:use-module (ice-9 format)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-34)
   #:use-module (srfi srfi-35)
@@ -370,6 +371,9 @@  (define (show-default val)
                      (cond
                       ((package? val)
                        (symbol->string (package->symbol val)))
+                      ((and ((list-of package?) val) (not (null? val)))
+                       (format #f "(~{~a~^ ~})"
+                        (map package->symbol val)))
                       (else (str val))))
 
                    `(entry (% (heading