aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-11-20 22:56:23 +0100
committerLudovic Courtès <ludo@gnu.org>2022-11-20 23:20:31 +0100
commit8c7ea71344b91c2c36dfbf6f2bc6daf559b1c696 (patch)
tree7edf0a1fb469d3d9ca0c2d7b6bc3f6b66a545de9
parent82bde985f47a84b9b05a2adc26c2f2cee278b1f5 (diff)
downloadguix-8c7ea71344b91c2c36dfbf6f2bc6daf559b1c696.tar
guix-8c7ea71344b91c2c36dfbf6f2bc6daf559b1c696.tar.gz
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'.
-rw-r--r--gnu/installer/services.scm21
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?