03/03: installer: Set up timeout so we can update status displays.

[Danny Milosavljevic]

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit 2f6d77c7d3d7b0f9755f6f4a558669bb16f16588
Author: Danny Milosavljevic <address@hidden>
Date:   Wed Jul 5 11:07:10 2017 +0200

    installer: Set up timeout so we can update status displays.
    
    * gnu/system/installer/guixsd-installer.scm (guixsd-installer): Modify.
---
 gnu/system/installer/guixsd-installer.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/gnu/system/installer/guixsd-installer.scm 
b/gnu/system/installer/guixsd-installer.scm
index a00a6ae..85a9975 100644
--- a/gnu/system/installer/guixsd-installer.scm
+++ b/gnu/system/installer/guixsd-installer.scm
@@ -292,6 +292,9 @@
           (system* "dmesg" "--console-off")
           (initscr)))
 
+      ;; Set up timeout for getch so that we can update status displays.
+      (timeout! stdscr 500) ; 500 ms
+
       ;; Set up mouse
       (mousemask (logior BUTTON1_CLICKED BUTTON1_PRESSED BUTTON1_RELEASED))
 
@@ -327,8 +330,9 @@
                    (when (eq? ret 'cancelled)
                      (page-ppop))
                    (base-page-key-handler current-page ch)))
-            (let ((current-page (page-top))) ; Not necessarily the same.
-              ((page-refresh current-page) current-page)))
+            (if ch ; not #f
+              (let ((current-page (page-top))) ; Not necessarily the same.
+                ((page-refresh current-page) current-page))))
           (loop (getch stdscr)))
 
         (endwin)))