diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-22 13:52:08 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-22 13:52:08 -0700 |
commit | 5e7547f8b732c5c3e7b222e61600d79c123774d4 (patch) | |
tree | 0dc005ed8e9c072e5af24e62a26a389e5c1a581f | |
parent | 04386010f11cfb37eb64d785875051b3afd67036 (diff) | |
download | consfigurator-5e7547f8b732c5c3e7b222e61600d79c123774d4.tar.gz |
add support for passing --cipher to cryptsetup luksFormat
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property/disk.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index 6806bab..40f7809 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -611,6 +611,7 @@ possible. Ignored if VOLUME-SIZE is also bound.")) "The value of the --type parameter to cryptsetup luksFormat. Note that GRUB2 older than 2.06 cannot open the default LUKS2 format, so specify \"luks1\" if this is needed.") + (luks-cipher :type string :initarg :luks-cipher :accessor luks-cipher) (crypttab-options :type list :initform '("luks" "discard" "initramfs") :initarg :crypttab-options :accessor crypttab-options) @@ -638,6 +639,8 @@ specify \"luks1\" if this is needed.") "cryptsetup" "--type" luks-type (and (member luks-type '("luks" "luks2") :test #'string=) `("--label" ,volume-label)) + (and (slot-boundp volume 'luks-cipher) + `("--cipher" ,(luks-cipher volume))) "luksFormat" file "-"))) (defmethod close-volume ((volume opened-luks-container)) |