Skip to content
Snippets Groups Projects
Unverified Commit d09831fe authored by Tobias Geerinckx-Rice's avatar Tobias Geerinckx-Rice
Browse files

installer: Edit desktop selection prompt.

* gnu/installer/newt/services.scm (run-desktop-environments-cbt-page):
Fix and clarify the #:info-text.
parent 232a10f0
No related branches found
No related tags found
No related merge requests found
...@@ -2,6 +2,7 @@ ...@@ -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) ...@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment