diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-01 17:31:33 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-01 17:31:33 -0700 |
commit | 1eafa3b6486c2abe56e093e14cfdc4941cfbf282 (patch) | |
tree | 7842bc755ac02fee166a3ff830235730eb3189bc /src/property/crypttab.lisp | |
parent | 6d5c8b2d399a949fca10afcba88a1a5a68917221 (diff) | |
download | consfigurator-1eafa3b6486c2abe56e093e14cfdc4941cfbf282.tar.gz |
FSTAB & CRYPTTAB: prepend HAS- to names of exported properties
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/crypttab.lisp')
-rw-r--r-- | src/property/crypttab.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/property/crypttab.lisp b/src/property/crypttab.lisp index 28bcaf7..744361b 100644 --- a/src/property/crypttab.lisp +++ b/src/property/crypttab.lisp @@ -62,7 +62,7 @@ ;;;; Properties -(defprop entries :posix (&rest entries) +(defprop has-entries :posix (&rest entries) "Ensure that /etc/crypttab contains each of ENTRIES, using a simple merge procedure: existing lines of the crypttab with the same mapped device name as any of ENTRIES are updated to match the corresponding members of ENTRIES, @@ -74,14 +74,14 @@ existing field value." (format nil "crypttab entr~@P for ~{~A~^, ~}" (length it) it))) (:apply (file:update-unix-table #P"/etc/crypttab" 1 0 entries))) -(defprop entries-for-opened-volumes :posix () +(defprop has-entries-for-opened-volumes :posix () "Add or update entries in /etc/crypttab for currently open volumes. This is used when building disk images and installing operating systems." (:desc "crypttab entries for opened volumes") (:hostattrs (os:required 'os:linux)) (:apply - (apply #'entries + (apply #'has-entries (mapcar #'volume->entry (mapcan (curry #'subvolumes-of-type 'opened-luks-container) (get-connattr :opened-volumes)))))) |