ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 06:06:53 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Add comment above the 'packages' field.

Browse source 
* gnu/installer/services.scm (system-services->configuration): Add
heading above the 'packages' field.  Rename 'heading' to
'service-heading'.
This commit is contained in:
Ludovic Courtès 2022-11-20 22:56:23 +01:00
parent 82bde985f4
commit 8c7ea71344
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/installer/services.scm
View file

@ -159,25 +159,32 @@ (define (system-services->configuration services)
(base (if desktop? (base (if desktop?
'%desktop-services '%desktop-services
'%base-services)) '%base-services))
(heading (list (vertical-space 1) (service-heading (list (vertical-space 1)
(comment (G_ "\ (comment (G_ "\
;; Below is the list of system services. To search for available ;; 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? snippets)
`(,@(if (null? packages) `(,@(if (null? packages)
'() '()
`((packages (append (list ,@packages) `(,@package-heading
(packages (append (list ,@packages)
%base-packages)))) %base-packages))))
,@heading ,@service-heading
(services ,base)) (services ,base))
`(,@(if (null? packages) `(,@(if (null? packages)
'() '()
`((packages (append (list ,@packages) `(,@package-heading
(packages (append (list ,@packages)
%base-packages)))) %base-packages))))
,@heading ,@service-heading
(services (append (list ,@snippets (services (append (list ,@snippets
,@(if desktop? ,@(if desktop?