[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
77/80: installer: Remove "continue" button from host name page.
From: |
John Darrington |
Subject: |
77/80: installer: Remove "continue" button from host name page. |
Date: |
Tue, 3 Jan 2017 15:49:46 +0000 (UTC) |
jmd pushed a commit to branch wip-installer
in repository guix.
commit 9cb7fa1dc5c33d65be936abcccefa285030bebde
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))
- 53/80: installer: Replace "%temporary-configuration-file-port" with "config-file"., (continued)
- 53/80: installer: Replace "%temporary-configuration-file-port" with "config-file"., John Darrington, 2017/01/03
- 51/80: installer: Use consistent window heights., John Darrington, 2017/01/03
- 15/80: installer: Add procedures to replace car/cdr since these are frounded upon by Guile gurus., John Darrington, 2017/01/03
- 65/80: installer: Add flags to indicate network interface status., John Darrington, 2017/01/03
- 66/80: installer: Format configuration to fix width of window., John Darrington, 2017/01/03
- 80/80: installer: Use --fallback when installing., John Darrington, 2017/01/03
- 69/80: installer: Add page with which the wifi password can be entered., John Darrington, 2017/01/03
- 60/80: installer: Change N_ from a procedure to a macro., John Darrington, 2017/01/03
- 67/80: installer: Do not allow forms to set the cursor visibility., John Darrington, 2017/01/03
- 74/80: installer: Add option to final page to reboot the system., John Darrington, 2017/01/03
- 77/80: installer: Remove "continue" button from host name page.,
John Darrington <=
- 76/80: installer: Add new page to set the system role., John Darrington, 2017/01/03
- 79/80: installer: Add confidence indicator., John Darrington, 2017/01/03
- 73/80: Merge remote-tracking branch 'origin/master' into wip-installer, John Darrington, 2017/01/03
- 68/80: installer: Indicate which wireless access points are encrypted., John Darrington, 2017/01/03
- 01/80: gnu: Add graphical installer, John Darrington, 2017/01/03