[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
78/80: installer: Rename "file-browser" -> "time-zone".
From: |
John Darrington |
Subject: |
78/80: installer: Rename "file-browser" -> "time-zone". |
Date: |
Tue, 3 Jan 2017 15:49:46 +0000 (UTC) |
jmd pushed a commit to branch wip-installer
in repository guix.
commit 395722b5e21dc69a7bc93a4016dc598a4a2eed58
Author: John Darrington <address@hidden>
Date: Tue Jan 3 11:28:29 2017 +0100
installer: Rename "file-browser" -> "time-zone".
* gnu/system/installer/time-zone.scm (file-browser-page-refresh,
file-browser-page-key-handler): Remove. (time-zone-page-refresh,
time-zone-page-key-handler): New procedures.
---
gnu/system/installer/time-zone.scm | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/gnu/system/installer/time-zone.scm
b/gnu/system/installer/time-zone.scm
index 3a31a45..f8876f8 100644
--- a/gnu/system/installer/time-zone.scm
+++ b/gnu/system/installer/time-zone.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.
;;;
@@ -29,8 +29,8 @@
(define* (make-tz-browser parent directory #:optional (exit-point #f))
(let ((page (make-page (page-surface parent)
(gettext "Time Zone")
- file-browser-page-refresh
- file-browser-page-key-handler)))
+ time-zone-page-refresh
+ time-zone-page-key-handler)))
(page-set-datum! page 'directory directory)
(if exit-point
(page-set-datum! page 'exit-point exit-point)
@@ -40,7 +40,7 @@
(define my-buttons `((back ,(N_ "_Back") #t)))
-(define (file-browser-page-key-handler page ch)
+(define (time-zone-page-key-handler page ch)
(let ((nav (page-datum page 'navigation))
(menu (page-datum page 'menu))
(directory (page-datum page 'directory)))
@@ -87,16 +87,16 @@
#f))
-(define (file-browser-page-refresh page)
+(define (time-zone-page-refresh page)
(when (not (page-initialised? page))
- (file-browser-page-init page)
+ (time-zone-page-init page)
(page-set-initialised! page #t))
(touchwin (outer (page-wwin page)))
(refresh (outer (page-wwin page)))
(refresh (inner (page-wwin page)))
(menu-refresh (page-datum page 'menu)))
-(define (file-browser-page-init p)
+(define (time-zone-page-init p)
(let* ((s (page-surface p))
(frame (make-boxed-window #f
(- (getmaxy s) 4) (- (getmaxx s) 2)
- 38/80: installer: Replace some instances of "car"., (continued)
- 38/80: installer: Replace some instances of "car"., John Darrington, 2017/01/03
- 26/80: installer: Add a new menu to configure wireless interfaces., John Darrington, 2017/01/03
- 59/80: installer: Prevent the user specifying the same mount point twice., John Darrington, 2017/01/03
- 57/80: installer: Issue message to user on failure of filesystems task., John Darrington, 2017/01/03
- 64/80: installer: Add a console-keymap service., John Darrington, 2017/01/03
- 71/80: installer: Make setting up of the network a prerequisite., John Darrington, 2017/01/03
- 55/80: installer: Close unused ports in pipe-cmd., John Darrington, 2017/01/03
- 72/80: installer: Ensure that all mount points are absolute paths., John Darrington, 2017/01/03
- 70/80: installer: Change essid --> wireless., John Darrington, 2017/01/03
- 52/80: installer: Fix bug where window-pipe did not return the proper exit status., John Darrington, 2017/01/03
- 78/80: installer: Rename "file-browser" -> "time-zone".,
John Darrington <=
- 75/80: installer: Add predicate for the network task., John Darrington, 2017/01/03
- 50/80: installer: Rename module "new" to "guixsd-installer"., John Darrington, 2017/01/03
- 54/80: installer: Improve install page., John Darrington, 2017/01/03
- 62/80: installer: Use global variable instead of string literal for "/gnu"., John Darrington, 2017/01/03
- 63/80: installer: Do not use /tmp for holding the configuration., John Darrington, 2017/01/03
- 56/80: installer: Replace spawned mount command with the mount syscall., John Darrington, 2017/01/03
- 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