From 8c7ea71344b91c2c36dfbf6f2bc6daf559b1c696 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 20 Nov 2022 22:56:23 +0100 Subject: installer: Add comment above the 'packages' field. * gnu/installer/services.scm (system-services->configuration): Add heading above the 'packages' field. Rename 'heading' to 'service-heading'. --- gnu/installer/services.scm | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) (limited to 'gnu/installer') diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm index 6c5f49622f..d08bab47fd 100644 --- a/gnu/installer/services.scm +++ b/gnu/installer/services.scm @@ -159,25 +159,32 @@ (base (if desktop? '%desktop-services '%base-services)) - (heading (list (vertical-space 1) - (comment (G_ "\ + (service-heading (list (vertical-space 1) + (comment (G_ "\ ;; Below is the list of system services. To search for available -;; services, run 'guix system search KEYWORD' in a terminal.\n"))))) +;; services, run 'guix system search KEYWORD' in a terminal.\n")))) + (package-heading (list (vertical-space 1) + (comment (G_ "\ +;; Packages installed system-wide. Users can also install packages +;; under their own account: use 'guix search KEYWORD' to search +;; for packages and 'guix install PACKAGE' to install a package.\n"))))) (if (null? snippets) `(,@(if (null? packages) '() - `((packages (append (list ,@packages) + `(,@package-heading + (packages (append (list ,@packages) %base-packages)))) - ,@heading + ,@service-heading (services ,base)) `(,@(if (null? packages) '() - `((packages (append (list ,@packages) + `(,@package-heading + (packages (append (list ,@packages) %base-packages)))) - ,@heading + ,@service-heading (services (append (list ,@snippets ,@(if desktop? -- cgit 1.4.1