[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
16/197: installer: Add new procedure to get the list of volumes.
From: |
Danny Milosavljevic |
Subject: |
16/197: installer: Add new procedure to get the list of volumes. |
Date: |
Mon, 3 Jul 2017 20:36:52 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit d5614639684b443020f89aa7ab2c8303c4f9f517
Author: John Darrington <address@hidden>
Date: Thu Dec 22 18:05:16 2016 +0100
installer: Add new procedure to get the list of volumes.
* gnu/system/installer/partition-reader.scm (volumes): New procedure.
---
gnu/system/installer/partition-reader.scm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/gnu/system/installer/partition-reader.scm
b/gnu/system/installer/partition-reader.scm
index 65c7107..c0db6a7 100644
--- a/gnu/system/installer/partition-reader.scm
+++ b/gnu/system/installer/partition-reader.scm
@@ -36,7 +36,7 @@
find-partition
- disk-volumes)
+ volumes)
#:use-module (ice-9 rdelim)
#:use-module (ice-9 match)
@@ -178,6 +178,11 @@ number of Megabytes"
"Return a list of disk volumes on the current machine"
(assemble-partitions (read-partition-info) '() '()))
+(define (volumes)
+ "Return a list of disk volumes on the current machine, excluding mappers"
+ (filter (lambda (v) (not (equal? "dm" (disk-type v))))
+ (disk-volumes)))
+
(define (device-id pr)
- branch wip-installer-2 created (now ff63588), Danny Milosavljevic, 2017/07/03
- 04/197: installer: Fix broken timezone menu., Danny Milosavljevic, 2017/07/03
- 05/197: installer: fix warning in usage of "format"., Danny Milosavljevic, 2017/07/03
- 02/197: installer: Fix broken keymap change option., Danny Milosavljevic, 2017/07/03
- 07/197: installer: Use ice-9 match., Danny Milosavljevic, 2017/07/03
- 12/197: installer: Use call-with-temporary-output-file., Danny Milosavljevic, 2017/07/03
- 08/197: installer: Add IETF contraints for hostname in entry form., Danny Milosavljevic, 2017/07/03
- 06/197: installer: use ice-9 format everywhere., Danny Milosavljevic, 2017/07/03
- 11/197: installer: Change "interfaces" from a variable to a procedure., Danny Milosavljevic, 2017/07/03
- 16/197: installer: Add new procedure to get the list of volumes.,
Danny Milosavljevic <=
- 15/197: installer: Use %default-subsitute-urls instead of our own variable., Danny Milosavljevic, 2017/07/03
- 19/197: installer: Remove unused procedure., Danny Milosavljevic, 2017/07/03
- 18/197: installer: Handle the 'back' action in the filesystems task., Danny Milosavljevic, 2017/07/03
- 13/197: installer: Add alternate method of finding TZDIR., Danny Milosavljevic, 2017/07/03
- 31/197: installer: Make minumum-store-size variable global., Danny Milosavljevic, 2017/07/03
- 33/197: installer: Improve dependencies on the final task., Danny Milosavljevic, 2017/07/03
- 17/197: installer: Add completion predicate for disk task., Danny Milosavljevic, 2017/07/03
- 21/197: installer: Fix incorrect host in ping task., Danny Milosavljevic, 2017/07/03
- 20/197: installer: Return slurped lines in their correct order., Danny Milosavljevic, 2017/07/03
- 25/197: installer: Connect ethernet interfaces on selection., Danny Milosavljevic, 2017/07/03