02/03: installer: Add comment above the 'packages' field.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8c7ea71344b91c2c36dfbf6f2bc6daf559b1c696
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Nov 20 22:56:23 2022 +0100

    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(-)

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?