[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
170/197: installer: Remove unused procedure.
From: |
Danny Milosavljevic |
Subject: |
170/197: installer: Remove unused procedure. |
Date: |
Mon, 3 Jul 2017 20:37:20 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit dae3ce6586948f7de5ba395a741689c90270de86
Author: John Darrington <address@hidden>
Date: Mon Feb 6 17:55:45 2017 +0100
installer: Remove unused procedure.
* gnu/system/installer/utils.scm (new-nav-form): Remove procedure.
---
gnu/system/installer/utils.scm | 21 ---------------------
1 file changed, 21 deletions(-)
diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index 082dcc7..ceedcec 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -28,7 +28,6 @@
pop-cursor
make-window-port
- new-nav-form
standard-menu-keystrokes
make-boxed-window
@@ -235,26 +234,6 @@ which will process each string before returning it."
-(define (new-nav-form button-fields)
- (new-form (let usr ((ef button-fields)
- (xpos 0)
- (acc '()))
- (if (null? ef)
- (reverse acc)
- (let* ((ff (cdr (car ef)))
- (label (car ff))
- (nf (new-field 1 (string-length label) 1 xpos 0 0)))
- (list-set! ff 1 nf)
- (set-field-buffer! nf 0 label)
- (field-opts-off! nf O_EDIT)
- (usr (cdr ef)
- (+ xpos (string-length label) 1)
- (cons nf acc)))))))
-
-
-
-
-
(define (inner boxed-window)
(match boxed-window
((inside . _)
- 121/197: installer: Note which types of file system are supported., (continued)
- 121/197: installer: Note which types of file system are supported., Danny Milosavljevic, 2017/07/03
- 141/197: gurses: Avoid one usage of car and cdr., Danny Milosavljevic, 2017/07/03
- 151/197: installer: Avoid wpa_supplicant's output causing screen damage., Danny Milosavljevic, 2017/07/03
- 99/197: installer: Exit the format page after all partitions are successfully formatted., Danny Milosavljevic, 2017/07/03
- 101/197: installer: Replace one usage of car with match., Danny Milosavljevic, 2017/07/03
- 109/197: installer: Fix bug where the selected item of main page was not indicated., Danny Milosavljevic, 2017/07/03
- 104/197: installer: Support btrfs, Danny Milosavljevic, 2017/07/03
- 111/197: gurses: Change highlighting from bold to inverse., Danny Milosavljevic, 2017/07/03
- 108/197: installer: Do not add file systems which are invalid., Danny Milosavljevic, 2017/07/03
- 164/197: gurses: Use match instead of car., Danny Milosavljevic, 2017/07/03
- 170/197: installer: Remove unused procedure.,
Danny Milosavljevic <=
- 152/197: installer: New file i18n.scm., Danny Milosavljevic, 2017/07/03
- 110/197: installer: Add an explanatory text to the main page., Danny Milosavljevic, 2017/07/03
- 120/197: gurses: Mini refactor., Danny Milosavljevic, 2017/07/03
- 124/197: gurses: Populate dropdown boxes in forms using a menu., Danny Milosavljevic, 2017/07/03
- 131/197: gurses: Use inverse instead of underline for field value area., Danny Milosavljevic, 2017/07/03
- 133/197: installer: Change livery., Danny Milosavljevic, 2017/07/03
- 146/197: gurses: Use match instead of car/cdr in line-split., Danny Milosavljevic, 2017/07/03
- 147/197: gurses: In paragraph-format avoid use of car and cdr., Danny Milosavljevic, 2017/07/03
- 144/197: gurses: Avoid one more use of car and cdr., Danny Milosavljevic, 2017/07/03
- 143/197: gurses: Add predicate to test if a complex char is blank., Danny Milosavljevic, 2017/07/03