01/01: installer: Set the default button on the "format" page to "Cancel".

[Danny Milosavljevic]

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

commit 439792acae76c19caba56e8fe5996a4e7ad8fab0
Author: Danny Milosavljevic <address@hidden>
Date:   Sun Jul 9 18:09:49 2017 +0200

    installer: Set the default button on the "format" page to "Cancel".
    
    * gnu/system/installer/format.scm (format-page-init): Set the default button
    to "Cancel".
---
 gnu/system/installer/format.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/system/installer/format.scm b/gnu/system/installer/format.scm
index 12a30e9..ff5a743 100644
--- a/gnu/system/installer/format.scm
+++ b/gnu/system/installer/format.scm
@@ -139,7 +139,7 @@ match those uuids read from the respective partitions"
                     mount-points)))
      #:markup-table installer-texinfo-markup))
     ; TODO refresh inner config-window
-  )
+)
 
 (define (format-page-init p)
   (let* ((s (page-surface p))
@@ -167,4 +167,5 @@ match those uuids read from the respective partitions"
     (page-set-datum! p 'navigation buttons)
     (page-set-datum! p 'text-window text-window)
     (page-set-datum! p 'config-window config-window)
-    (buttons-post buttons bwin)))
+    (buttons-post buttons bwin)
+    (buttons-select-by-symbol buttons 'cancel)))