installer: welcome: Put "Graphical installer" ahead.

* gnu/installer/newt/welcome.scm (run-welcome-page): Propose "Graphical
  install" before shell based install.
This commit is contained in:
Mathieu Othacehe 2019-01-06 11:06:51 +01:00 committed by Ludovic Courtès
parent ebb36deccc
commit a8c4b68288
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 4 deletions

View File

@ -100,16 +100,16 @@ development, so you might want to prefer using the shell based process. \
The documentation is accessible at any time by pressing CTRL-ALT-F2.")
logo
#:listbox-items
`((,(G_ "Install using the shell based process")
`((,(G_ "Graphical install using a terminal based interface")
.
,(const #t))
(,(G_ "Install using the shell based process")
.
,(lambda ()
;; Switch to TTY3, where a root shell is available for shell based
;; install. The other root TTY's would have been ok too.
(system* "chvt" "3")
(run-welcome-page logo)))
(,(G_ "Graphical install using a terminal based interface")
.
,(const #t))
(,(G_ "Reboot")
.
,(lambda ()