mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Edit desktop selection prompt.

Browse source 
* gnu/installer/newt/services.scm (run-desktop-environments-cbt-page):
Fix and clarify the #:info-text.
This commit is contained in:
Tobias Geerinckx-Rice 2021-01-31 16:58:27 +01:00
parent 232a10f006
commit d09831fe52
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/installer/newt/services.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -34,9 +35,9 @@ (define (run-desktop-environments-cbt-page)
environments." environments."
(let ((items (filter desktop-system-service? %system-services))) (let ((items (filter desktop-system-service? %system-services)))
(run-checkbox-tree-page (run-checkbox-tree-page
#:info-text (G_ "Please select the desktop(s) environment(s) you wish to \ #:info-text (G_ "Please select the desktop environment(s) you wish to \
install. If you select multiple desktops environments, you will be able to \ install. If you select multiple desktop environments here, you will be able \
choose the one to use on the log-in screen.") to choose from them later when you log in.")
#:title (G_ "Desktop environment") #:title (G_ "Desktop environment")
#:items items #:items items
#:selection (map system-service-recommended? items) #:selection (map system-service-recommended? items)