diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-29 10:59:00 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-29 10:59:00 -0700 |
commit | 826a73478801195abb7e4d15391f3c25123f8ccc (patch) | |
tree | 1981863869ad4549ee3b4f8fb72f11fdb9ee9c07 /src/property/disk.lisp | |
parent | 42f113be07e749896aadef36f37d6bd7263bb2b6 (diff) | |
download | consfigurator-826a73478801195abb7e4d15391f3c25123f8ccc.tar.gz |
add DISK:HOST-VOLUMES-CREATED
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/disk.lisp')
-rw-r--r-- | src/property/disk.lisp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/property/disk.lisp b/src/property/disk.lisp index c395e0e..1f9a8cb 100644 --- a/src/property/disk.lisp +++ b/src/property/disk.lisp @@ -722,6 +722,17 @@ filesystems will be incrementally updated when other properties change." ;; TODO install bootloader (%update-image-from-chroot ,chroot ,opened))))) +(defprop host-volumes-created :lisp () + "Recursively create the volumes as specified by DISK:HAS-VOLUMES. + +**THIS PROPERTY UNCONDITIONALLY FORMATS DISKS, POTENTIALLY DESTROYING DATA, + EACH TIME IT IS APPLIED.** + +Do not apply in DEFHOST. Apply with DEPLOY-THESE/HOSTDEPLOY-THESE." + (:desc "Host volumes created") + (:apply + (mapc (rcurry #'create-volume-and-contents nil) (get-hostattrs :volumes)))) + ;;;; Utilities |