[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
112/197: gurses: form: Use match instead of car, cdr etc.
From: |
Danny Milosavljevic |
Subject: |
112/197: gurses: form: Use match instead of car, cdr etc. |
Date: |
Mon, 3 Jul 2017 20:37:09 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 44f271c632cac872c99365b4ec28a04006bf3651
Author: John Darrington <address@hidden>
Date: Tue Jan 17 13:30:07 2017 +0100
gurses: form: Use match instead of car, cdr etc.
* gurses/form.scm (make-form) : Replace car, cdr and cadr with match.
---
gurses/form.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/gurses/form.scm b/gurses/form.scm
index 58b0e4b..b2161b6 100644
--- a/gurses/form.scm
+++ b/gurses/form.scm
@@ -33,6 +33,7 @@
#:export (get-current-field)
#:use-module (ncurses curses)
+ #:use-module (ice-9 match)
#:use-module (srfi srfi-9))
(define-record-type <field>
@@ -112,7 +113,10 @@ label eq? to N"
(form-set-items! form
(list->array
1 (map-in-order
- (lambda (x) (make-field (car x) (cadr x) (caddr x) ""
0))
+ (lambda (x)
+ (match x
+ ((symbol label size)
+ (make-field symbol label size "" 0))))
items)))
form))
- 184/197: installer: Create dedicated module to maintainer the page stack., (continued)
- 184/197: installer: Create dedicated module to maintainer the page stack., Danny Milosavljevic, 2017/07/03
- 126/197: installer: mount-points page: Enlarge the forms window., Danny Milosavljevic, 2017/07/03
- 96/197: installer: Changed N_ to M_ since N_ is used for another purpose in guix/ui.scm, Danny Milosavljevic, 2017/07/03
- 142/197: gurses: xchar->char: New procedure., Danny Milosavljevic, 2017/07/03
- 85/197: installer: Use "lspci -mm" instead of "lspci -m"., Danny Milosavljevic, 2017/07/03
- 88/197: installer: Use a cleaner method of detecting wireless capability for ethernet interfaces., Danny Milosavljevic, 2017/07/03
- 93/197: installer: Add a dedicated make to format filesystems., Danny Milosavljevic, 2017/07/03
- 100/197: installer: Do not perform tasks more than once., Danny Milosavljevic, 2017/07/03
- 106/197: installer: Properly handle swap partitions when generating the configuration., Danny Milosavljevic, 2017/07/03
- 114/197: installer: Check that swap spaces have not been assigned mount points, Danny Milosavljevic, 2017/07/03
- 112/197: gurses: form: Use match instead of car, cdr etc.,
Danny Milosavljevic <=
- 125/197: installer: Do not assume the root file system is of type "ext4"., Danny Milosavljevic, 2017/07/03
- 130/197: installer: Delete unused procedure "justify"., Danny Milosavljevic, 2017/07/03
- 134/197: installer: Tolerate an undefined system role in config generation., Danny Milosavljevic, 2017/07/03
- 137/197: installer: Prepare for new wireless network features., Danny Milosavljevic, 2017/07/03
- 140/197: installer: Fix the key map option., Danny Milosavljevic, 2017/07/03
- 132/197: installer: Add new procedure to check file system specifications., Danny Milosavljevic, 2017/07/03
- 145/197: gurses: Avoid yet another use of car and cdr., Danny Milosavljevic, 2017/07/03
- 129/197: installer: Emphasise that writing filesystems destroys existing data., Danny Milosavljevic, 2017/07/03
- 150/197: gurses: Reimplement pad-complex-string., Danny Milosavljevic, 2017/07/03
- 159/197: installer: Fix i18n in dialogs., Danny Milosavljevic, 2017/07/03