summary refs log tree commit diff
path: root/gnu/installer/newt/welcome.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-12-05 14:50:16 +0900
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:23 +0100
commit6aa625c2f82332f8987247958fc18955bd8078f3 (patch)
tree498915d4c9b9b48c2d7cc7e6d0e2d9d914838410 /gnu/installer/newt/welcome.scm
parent29d8d9196bcf7a87eeb891bfb35eb2447836bbeb (diff)
downloadguix-6aa625c2f82332f8987247958fc18955bd8078f3.tar.gz
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.
Diffstat (limited to 'gnu/installer/newt/welcome.scm')
-rw-r--r--gnu/installer/newt/welcome.scm16
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/installer/newt/welcome.scm b/gnu/installer/newt/welcome.scm
index 3a0e45e198..658f7bae40 100644
--- a/gnu/installer/newt/welcome.scm
+++ b/gnu/installer/newt/welcome.scm
@@ -96,18 +96,18 @@ installation and reboot."
    (G_ "Welcome to GNU GuixSD installer!
 
 Please note that the present graphical installer is still under heavy \
-development, so you might want to fallback to the classical installer by \
-pressing CTRL-ALT-F3.")
+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 unguided shell based process")
+   `((,(G_ "Install using the shell based process")
       .
       ,(lambda ()
-         (clear-screen)
-         (newt-suspend)
-         (system* "bash" "-l")
-         (newt-resume)))
-     (,(G_ "Graphical install using a guided terminal based interface")
+         ;; 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")