guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

69/197: installer: Remove "continue" button from host name page.


From: Danny Milosavljevic
Subject: 69/197: installer: Remove "continue" button from host name page.
Date: Mon, 3 Jul 2017 20:37:02 -0400 (EDT)

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

commit 8210877b496b2a8c09f34c385f54a8f99946def3
Author: John Darrington <address@hidden>
Date:   Tue Jan 3 11:20:15 2017 +0100

    installer: Remove "continue" button from host name page.
    
    * gnu/system/installer/hostname.scm (host-name-key-handler): Add handler
    for the select key.
---
 gnu/system/installer/hostname.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/gnu/system/installer/hostname.scm 
b/gnu/system/installer/hostname.scm
index aecc327..be5181f 100644
--- a/gnu/system/installer/hostname.scm
+++ b/gnu/system/installer/hostname.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016 John Darrington <address@hidden>
+;;; Copyright © 2016, 2017 John Darrington <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -68,7 +68,11 @@
        (dev   (page-datum page 'device)))
 
     (cond
-     ((buttons-key-matches-symbol? nav ch 'continue)
+     ((buttons-key-matches-symbol? nav ch 'back)
+      (set! page-stack (cdr page-stack))
+      ((page-refresh (car page-stack)) (car page-stack)))
+
+     ((select-key? ch)
       (set! host-name (form-get-value form 0))
       (set! page-stack (cdr page-stack))
       ((page-refresh (car page-stack)) (car page-stack)))
@@ -107,7 +111,7 @@
       (form-enter form ch)))
     #f))
 
-(define my-buttons `((continue ,(N_ "Continue") #f)))
+(define my-buttons `((back ,(N_ "Back") #f)))
 
 (define (host-name-init p)
   (let* ((s (page-surface p))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]