[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/12: installer: Add the notion of uuids to prospective filesystems.
From: |
John Darrington |
Subject: |
04/12: installer: Add the notion of uuids to prospective filesystems. |
Date: |
Sun, 15 Jan 2017 15:45:39 +0000 (UTC) |
jmd pushed a commit to branch wip-installer
in repository guix.
commit 23bc1ec1582e14935a6b534bafc5ae26570d9eda
Author: John Darrington <address@hidden>
Date: Sun Jan 15 12:47:34 2017 +0100
installer: Add the notion of uuids to prospective filesystems.
* gnu/system/installer/filesystems.scm (<file-system-spec>) : Add uuid
member.
---
gnu/system/installer/filesystems.scm | 16 ++++++++++++----
1 file changed, 12 insertions(+), 4 deletions(-)
diff --git a/gnu/system/installer/filesystems.scm
b/gnu/system/installer/filesystems.scm
index cba8333..0f65d44 100644
--- a/gnu/system/installer/filesystems.scm
+++ b/gnu/system/installer/filesystems.scm
@@ -34,9 +34,11 @@
#:export (make-file-system-spec)
#:export (<file-system-spec>)
+ #:export (file-system-spec?)
#:export (file-system-spec-mount-point)
#:export (file-system-spec-label)
#:export (file-system-spec-type)
+ #:export (file-system-spec-uuid)
#:export (minimum-store-size)
#:export (filesystem-task-complete?)
@@ -45,11 +47,17 @@
;; File system spec declaration.
(define-record-type <file-system-spec>
- (make-file-system-spec mount-point label type)
+ (make-file-system-spec' mount-point label type uuid)
file-system-spec?
- (mount-point file-system-spec-mount-point) ; string
- (label file-system-spec-label) ; string
- (type file-system-spec-type)) ; symbol
+ (mount-point file-system-spec-mount-point)
+ (label file-system-spec-label)
+ (type file-system-spec-type)
+ (uuid file-system-spec-uuid))
+
+(define (make-file-system-spec mount-point label type)
+ (let ((uuid (slurp "uuidgen" identity)))
+ (make-file-system-spec' mount-point label type (car uuid))))
+
(define minimum-store-size 7000)
- branch wip-installer updated (3673cd8 -> ac6599d), John Darrington, 2017/01/15
- 08/12: installer: Correct bug detecting a wireless interface., John Darrington, 2017/01/15
- 01/12: installer: Add callback parameter for forms., John Darrington, 2017/01/15
- 04/12: installer: Add the notion of uuids to prospective filesystems.,
John Darrington <=
- 05/12: installer: Add a predicate to ensure the partitions have been formatted., John Darrington, 2017/01/15
- 09/12: installer: Exit the format page after all partitions are successfully formatted., John Darrington, 2017/01/15
- 11/12: installer: Replace one usage of car with match., John Darrington, 2017/01/15
- 10/12: installer: Do not perform tasks more than once., John Darrington, 2017/01/15
- 12/12: installer: Correct bug where the timezone page returned to the wrong page., John Darrington, 2017/01/15
- 02/12: installer: Remove mkfs capability from mount points page., John Darrington, 2017/01/15
- 06/12: installer: Changed N_ to M_ since N_ is used for another purpose in guix/ui.scm, John Darrington, 2017/01/15
- 07/12: installer: Whitespace changes only, John Darrington, 2017/01/15
- 03/12: installer: Add a dedicated make to format filesystems., John Darrington, 2017/01/15