diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-11-20 22:56:23 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-11-20 23:20:31 +0100 |
| commit | 8c7ea71344b91c2c36dfbf6f2bc6daf559b1c696 (patch) | |
| tree | 7edf0a1fb469d3d9ca0c2d7b6bc3f6b66a545de9 /gnu | |
| parent | 82bde985f47a84b9b05a2adc26c2f2cee278b1f5 (diff) | |
| download | guix-8c7ea71344b91c2c36dfbf6f2bc6daf559b1c696.tar.gz guix-8c7ea71344b91c2c36dfbf6f2bc6daf559b1c696.zip | |
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'.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/installer/services.scm | 21 |
1 files 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? |