summaryrefslogtreecommitdiff
path: root/gnu/installer.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-12-07 14:04:25 +0900
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:26 +0100
commitbf304dbceadf89c2722168be97d9673f94608aa6 (patch)
treef9ac12121124e26294f0d9654485a861d316533a /gnu/installer.scm
parent71cd8a5870d11dc5f74c7e9b38db03d6cc633794 (diff)
installer: partionment: Add encryption support.
* gnu/installer.scm (set-installer-path): Add cryptsetup. * gnu/installer/newt/partition.scm (prompt-luks-passwords): New procedure, (run-partioning-page): Add the possibility to set encryption to "On" on a partition and choose a label, add a new partition scheme: "Guided - using the entire disk with encryption", prompt for encryption passwords before proceeding to formating. * gnu/installer/parted.scm (<user-partition>)[crypt-label], [crypt-password]: New fields, (partition-description): add the encryption label, (user-partition-description): add an encryption field, (auto-partition): add two partitioning schemes: entire-crypted-root and entire-crypted-root-home, (call-with-luks-key-file): new procedure, (user-partition-upper-path): new procedure, (luks-format-and-open): new procedure, (luks-close): new procedure, (format-user-partitions): format and open luks partitions before creating file-system. (mount-user-partitions): use the path returned by user-partition-upper-path, (umount-user-partitions): close the luks partitions, (user-partition->file-system): set device field to label for luks partitions and to uuid for the rest, (user-partition->mapped-device): new procedure, (user-partitions->configuration): add mapped-devices field.
Diffstat (limited to 'gnu/installer.scm')
-rw-r--r--gnu/installer.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/gnu/installer.scm b/gnu/installer.scm
index 2f01d39d1a8..fd66359cbeb 100644
--- a/gnu/installer.scm
+++ b/gnu/installer.scm
@@ -28,6 +28,7 @@
28 #:use-module (gnu packages base) 28 #:use-module (gnu packages base)
29 #:use-module (gnu packages bash) 29 #:use-module (gnu packages bash)
30 #:use-module (gnu packages connman) 30 #:use-module (gnu packages connman)
31 #:use-module (gnu packages cryptsetup)
31 #:use-module (gnu packages disk) 32 #:use-module (gnu packages disk)
32 #:use-module (gnu packages guile) 33 #:use-module (gnu packages guile)
33 #:autoload (gnu packages gnupg) (guile-gcrypt) 34 #:autoload (gnu packages gnupg) (guile-gcrypt)
@@ -272,6 +273,7 @@ selected keymap."
272 #~(let* ((inputs 273 #~(let* ((inputs
273 '#$(append (list bash ;start subshells 274 '#$(append (list bash ;start subshells
274 connman ;call connmanctl 275 connman ;call connmanctl
276 cryptsetup
275 dosfstools ;mkfs.fat 277 dosfstools ;mkfs.fat
276 e2fsprogs ;mkfs.ext4 278 e2fsprogs ;mkfs.ext4
277 kbd ;chvt 279 kbd ;chvt