59/67: installer: welcome: Put "Graphical installer" ahead.

[guix-commits]

civodul pushed a commit to branch wip-newt-installer
in repository guix.

commit 0fdb66db8812b0333d760e512151e2f443a33362
Author: Mathieu Othacehe <address@hidden>
Date:   Sun Jan 6 11:06:51 2019 +0100

    installer: welcome: Put "Graphical installer" ahead.
    
    * gnu/installer/newt/welcome.scm (run-welcome-page): Propose "Graphical
      install" before shell based install.
---
 gnu/installer/newt/welcome.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/installer/newt/welcome.scm b/gnu/installer/newt/welcome.scm
index 658f7ba..eec98e2 100644
--- a/gnu/installer/newt/welcome.scm
+++ b/gnu/installer/newt/welcome.scm
@@ -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 ()