[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
51/197: installer: Allow users to remove mount points during configurati
From: |
Danny Milosavljevic |
Subject: |
51/197: installer: Allow users to remove mount points during configuration. |
Date: |
Mon, 3 Jul 2017 20:36:59 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit befb0f18a992ff7a768d0d7910c9feadf101bf13
Author: John Darrington <address@hidden>
Date: Fri Dec 30 14:28:47 2016 +0100
installer: Allow users to remove mount points during configuration.
* gnu/system/installer/mount-point.scm (mount-point-page-key-handler):
Remove mount-point from alist if it is the null string.
---
gnu/system/installer/mount-point.scm | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/gnu/system/installer/mount-point.scm
b/gnu/system/installer/mount-point.scm
index 5ea0235..61649ac 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -63,9 +63,14 @@
(eq? ch #\nl))
(cond
((buttons-key-matches-symbol? nav ch 'continue)
- (set! mount-points (assoc-set! mount-points
- dev
- (form-get-value form
'mount-point)))
+ (let ((mp (form-get-value form 'mount-point)))
+ (if (equal? "" mp)
+ (set! mount-points
+ (assoc-remove! mount-points dev))
+
+ (set! mount-points (assoc-set! mount-points
+ dev mp))))
+
(set! page-stack (cdr page-stack))
((page-refresh (car page-stack)) (car page-stack)))
- 23/197: installer: Use a cleaner way of generating the lspci information., (continued)
- 23/197: installer: Use a cleaner way of generating the lspci information., Danny Milosavljevic, 2017/07/03
- 35/197: installer: New predicate valid-hostname?, Danny Milosavljevic, 2017/07/03
- 36/197: installer: Ensure that all mount-points have a file system., Danny Milosavljevic, 2017/07/03
- 39/197: installer: Replace an instance of cdr with match., Danny Milosavljevic, 2017/07/03
- 46/197: installer: Replace "%temporary-configuration-file-port" with "config-file"., Danny Milosavljevic, 2017/07/03
- 30/197: installer: Write the configuration to a temporary file., Danny Milosavljevic, 2017/07/03
- 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 <=
- 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, 2017/07/03
- 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