[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
139/197: installer: Allow file system specifications to be removed.
From: |
Danny Milosavljevic |
Subject: |
139/197: installer: Allow file system specifications to be removed. |
Date: |
Mon, 3 Jul 2017 20:37:14 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit a6bbba8d89f70a48f02dc02b78ccb22acc5a7b60
Author: John Darrington <address@hidden>
Date: Tue Jan 24 17:01:41 2017 +0100
installer: Allow file system specifications to be removed.
* gnu/system/installer/mount-point.scm (mount-point-page-key-handler): Call
assoc-remove! on entries which are #f
---
gnu/system/installer/mount-point.scm | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/gnu/system/installer/mount-point.scm
b/gnu/system/installer/mount-point.scm
index 794ec9f..b4b83aa 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -60,10 +60,11 @@
(form-get-value form 'mount-point)
(form-get-value form 'label)
(form-get-value form 'fs-type))))
- (when fss
- (set! mount-points
- (assoc-set! mount-points dev fss))))
- (page-leave))
+ (set! mount-points
+ (if fss
+ (assoc-set! mount-points dev fss)
+ (assoc-remove! mount-points dev)))
+ (page-leave)))
((buttons-key-matches-symbol? nav ch 'cancel)
;; Close the menu and return
- 187/197: installer: Add procudure for starting a wireless interface., (continued)
- 187/197: installer: Add procudure for starting a wireless interface., Danny Milosavljevic, 2017/07/03
- 192/197: installer: Only build if guile-ncurses is available., Danny Milosavljevic, 2017/07/03
- 68/197: installer: Add new page to set the system role., Danny Milosavljevic, 2017/07/03
- 117/197: installer: Remove unnecessary "begin"., Danny Milosavljevic, 2017/07/03
- 113/197: installer: Explicitly set the #:panel parameter for window creation procedures., Danny Milosavljevic, 2017/07/03
- 122/197: gurses: Populate the choices box in forms., Danny Milosavljevic, 2017/07/03
- 128/197: installer: Remove redundant list of file system types., Danny Milosavljevic, 2017/07/03
- 115/197: installer: New procedure refresh*., Danny Milosavljevic, 2017/07/03
- 153/197: installer: Add optional arguments to addstr*., Danny Milosavljevic, 2017/07/03
- 97/197: installer: Whitespace changes only, Danny Milosavljevic, 2017/07/03
- 139/197: installer: Allow file system specifications to be removed.,
Danny Milosavljevic <=
- 136/197: installer: No passphrase is needed for clear networks., Danny Milosavljevic, 2017/07/03
- 138/197: installer: Clear the mount point field for swap file systems., Danny Milosavljevic, 2017/07/03
- 135/197: installer: Use a "hard" method of rebooting. Do not rely on shepherd., Danny Milosavljevic, 2017/07/03
- 148/197: installer: Support WEP encrypted wireless., Danny Milosavljevic, 2017/07/03
- 176/197: installer: Fix incorrect symbol in generated config file., Danny Milosavljevic, 2017/07/03
- 177/197: installer: Remove non-existant supplementary group., Danny Milosavljevic, 2017/07/03
- 182/197: installer: Kill old dhclient instance before starting new one., Danny Milosavljevic, 2017/07/03
- 189/197: installer: Fix buglet where keys were sometimes ignored in users page., Danny Milosavljevic, 2017/07/03
- 179/197: installer: Mount all partitions instead of just the root., Danny Milosavljevic, 2017/07/03
- 190/197: gurses: forms: Minor refactor., Danny Milosavljevic, 2017/07/03