[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
66/197: installer: Add option to final page to reboot the system.
From: |
Danny Milosavljevic |
Subject: |
66/197: installer: Add option to final page to reboot the system. |
Date: |
Mon, 3 Jul 2017 20:37:01 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit a98e865653ad89badd2bd93d79cf0b0371403e39
Author: John Darrington <address@hidden>
Date: Mon Jan 2 11:05:45 2017 +0100
installer: Add option to final page to reboot the system.
* gnu/system/installer/install.scm (install-page-key-handler): Add
option to reboot.
---
gnu/system/installer/install.scm | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/gnu/system/installer/install.scm b/gnu/system/installer/install.scm
index 65e7520..4e97548 100644
--- a/gnu/system/installer/install.scm
+++ b/gnu/system/installer/install.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.
;;;
@@ -42,6 +42,7 @@
(define my-buttons `((continue ,(N_ "_Continue") #t)
+ (reboot ,(N_ "_Reboot") #t)
(back ,(N_ "_Back") #t)))
(define (install-page-key-handler page ch)
@@ -73,6 +74,9 @@
(delwin (inner (page-wwin page)))
(set! page-stack (cdr page-stack)))
+ ((buttons-key-matches-symbol? nav ch 'reboot)
+ (system* "reboot"))
+
((buttons-key-matches-symbol? nav ch 'continue)
(let ((target "/target")
(window-port (make-window-port config-window))
@@ -99,7 +103,7 @@
target))
(display (gettext
- "Installation is complete. You should reboot now.")
+ "Installation is complete. You should remove the
device containing the installer image and reboot now.")
window-port)))
(lambda (key . args)
#f)
@@ -130,7 +134,7 @@
3 (getmaxx (inner pr))
0 0
#:panel #f))
-
+
(bwin (derwin (inner pr)
3 (getmaxx (inner pr))
(- (getmaxy (inner pr)) 3) 0
@@ -161,4 +165,4 @@
(refresh (outer pr))
(refresh text-window)
(refresh bwin)))
-
+
- 24/197: installer: Add a new menu to configure wireless interfaces., (continued)
- 24/197: installer: Add a new menu to configure wireless interfaces., Danny Milosavljevic, 2017/07/03
- 49/197: installer: Replace spawned mount command with the mount syscall., Danny Milosavljevic, 2017/07/03
- 44/197: installer: Use consistent window heights., Danny Milosavljevic, 2017/07/03
- 52/197: installer: Prevent the user specifying the same mount point twice., Danny Milosavljevic, 2017/07/03
- 51/197: installer: Allow users to remove mount points during configuration., Danny Milosavljevic, 2017/07/03
- 14/197: installer: Add procedures to replace car/cdr since these are frounded upon by Guile gurus., Danny Milosavljevic, 2017/07/03
- 55/197: installer: Use global variable instead of string literal for "/gnu"., Danny Milosavljevic, 2017/07/03
- 54/197: installer: Change the order of the filesystem task conditions., Danny Milosavljevic, 2017/07/03
- 60/197: installer: Do not allow forms to set the cursor visibility., Danny Milosavljevic, 2017/07/03
- 56/197: installer: Do not use /tmp for holding the configuration., Danny Milosavljevic, 2017/07/03
- 66/197: installer: Add option to final page to reboot the system.,
Danny Milosavljevic <=
- 71/197: installer: Add confidence indicator., Danny Milosavljevic, 2017/07/03
- 67/197: installer: Add predicate for the network task., Danny Milosavljevic, 2017/07/03
- 74/197: installer: Remove explicit calls to curs-set from pages., Danny Milosavljevic, 2017/07/03
- 64/197: installer: Make setting up of the network a prerequisite., Danny Milosavljevic, 2017/07/03
- 80/197: installer: Ignore case in button accelerators., Danny Milosavljevic, 2017/07/03
- 86/197: installer: slurp: Ignore blank lines in output., Danny Milosavljevic, 2017/07/03
- 76/197: installer: New procedure "page-leave"., Danny Milosavljevic, 2017/07/03
- 84/197: installer: Use guix build syscalls module for network interrogation., Danny Milosavljevic, 2017/07/03
- 94/197: installer: Add the notion of uuids to prospective filesystems., Danny Milosavljevic, 2017/07/03
- 89/197: installer: Make the network menu more reliable., Danny Milosavljevic, 2017/07/03