[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
17/197: installer: Add completion predicate for disk task.
From: |
Danny Milosavljevic |
Subject: |
17/197: installer: Add completion predicate for disk task. |
Date: |
Mon, 3 Jul 2017 20:36:52 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 4cfb89841beb309d57daf367299c8346979b48e3
Author: John Darrington <address@hidden>
Date: Thu Dec 22 19:14:24 2016 +0100
installer: Add completion predicate for disk task.
* gnu/system/installer/new.scm (size-of-largest-disk): New procedure, and
use it to make completion predicate for disk task.
---
gnu/system/installer/new.scm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/gnu/system/installer/new.scm b/gnu/system/installer/new.scm
index 5d37e58..aa393b8 100644
--- a/gnu/system/installer/new.scm
+++ b/gnu/system/installer/new.scm
@@ -39,6 +39,7 @@
(ice-9 format)
(ice-9 match)
(ice-9 pretty-print)
+ (srfi srfi-1)
(srfi srfi-9))
@@ -56,11 +57,15 @@
(define timezone-menu-title (N_ "Set the time zone"))
(define hostname-menu-title (N_ "Set the host name"))
+(define (size-of-largest-disk)
+ (fold (lambda (disk prev) (max (disk-size disk) prev))
+ 0 (volumes)))
+
(define main-options
`(
(disk . ,(make-task partition-menu-title
'()
- (lambda () #f)
+ (lambda () (< 12000 (size-of-largest-disk)))
(lambda (page)
(make-disk-page
page
- 08/197: installer: Add IETF contraints for hostname in entry form., (continued)
- 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, 2017/07/03
- 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 <=
- 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
- 03/197: installer: Remove obsolete procedures/variables, Danny Milosavljevic, 2017/07/03
- 10/197: installer: Perform a task's dependencies prior to the task itself., Danny Milosavljevic, 2017/07/03
- 22/197: installer: Make "interfaces" return an alist., Danny Milosavljevic, 2017/07/03
- 26/197: installer: Let the kernel know about (possibly) changed partitions., Danny Milosavljevic, 2017/07/03
- 27/197: installer: Deal with partition tables which are (partially) corrupt., Danny Milosavljevic, 2017/07/03
- 28/197: installer: Add a variable to represent the minimum recommended store size., Danny Milosavljevic, 2017/07/03
- 32/197: installer: Remove ad-hoc completed predicate and use standard one., Danny Milosavljevic, 2017/07/03