diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2018-12-07 14:04:25 +0900 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-17 14:04:26 +0100 |
| commit | bf304dbceadf89c2722168be97d9673f94608aa6 (patch) | |
| tree | f9ac12121124e26294f0d9654485a861d316533a /gnu/installer.scm | |
| parent | 71cd8a5870d11dc5f74c7e9b38db03d6cc633794 (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.scm | 2 |
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 |
