installer: Redirect to TTY3 root shell for unguided install.
* gnu/installer/newt/welcome.scm (run-welcome-page): Switch to TTY3 for unguided shell based install.
This commit is contained in:
parent
29d8d9196b
commit
6aa625c2f8
|
@ -96,18 +96,18 @@ installation and reboot."
|
||||||
(G_ "Welcome to GNU GuixSD installer!
|
(G_ "Welcome to GNU GuixSD installer!
|
||||||
|
|
||||||
Please note that the present graphical installer is still under heavy \
|
Please note that the present graphical installer is still under heavy \
|
||||||
development, so you might want to fallback to the classical installer by \
|
development, so you might want to prefer using the shell based process. \
|
||||||
pressing CTRL-ALT-F3.")
|
The documentation is accessible at any time by pressing CTRL-ALT-F2.")
|
||||||
logo
|
logo
|
||||||
#:listbox-items
|
#:listbox-items
|
||||||
`((,(G_ "Install using the unguided shell based process")
|
`((,(G_ "Install using the shell based process")
|
||||||
.
|
.
|
||||||
,(lambda ()
|
,(lambda ()
|
||||||
(clear-screen)
|
;; Switch to TTY3, where a root shell is available for shell based
|
||||||
(newt-suspend)
|
;; install. The other root TTY's would have been ok too.
|
||||||
(system* "bash" "-l")
|
(system* "chvt" "3")
|
||||||
(newt-resume)))
|
(run-welcome-page logo)))
|
||||||
(,(G_ "Graphical install using a guided terminal based interface")
|
(,(G_ "Graphical install using a terminal based interface")
|
||||||
.
|
.
|
||||||
,(const #t))
|
,(const #t))
|
||||||
(,(G_ "Reboot")
|
(,(G_ "Reboot")
|
||||||
|
|
Loading…
Reference in New Issue