diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-23 15:19:26 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-23 16:40:16 -0700 |
commit | f5eac9a5df47008debef2a4124b7877dd6adb101 (patch) | |
tree | ef167f5221449eb2dda263a0514b5c58b76cc17a | |
parent | b8ca88da57e0eaa8f9c789c5fc630586b983e4fd (diff) | |
download | consfigurator-f5eac9a5df47008debef2a4124b7877dd6adb101.tar.gz |
INSTALLER:CHROOT-INSTALLED-TO-VOLUMES-FOR: add LEAVE-OPEN parameter
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property/installer.lisp | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/property/installer.lisp b/src/property/installer.lisp index 175e31e..b70e2a1 100644 --- a/src/property/installer.lisp +++ b/src/property/installer.lisp @@ -89,10 +89,13 @@ BOOTLOADER-TYPE to VOLUME.")) (strcat (unix-namestring chroot) "/") (strcat (unix-namestring target) "/")))) -(defpropspec chroot-installed-to-volumes-for :lisp (host chroot volumes) +(defpropspec chroot-installed-to-volumes-for :lisp + (host chroot volumes &key leave-open) "Where CHROOT contains the root filesystem of HOST and VOLUMES is a list of volumes, recursively open the volumes and rsync in the contents of CHROOT. -Also update the fstab and crypttab, and try to install bootloader(s)." +Also update the fstab and crypttab, and try to install bootloader(s). + +LEAVE-OPEN is passed on to DISK:WITH-OPENED-VOLUMES, which see." (:desc #?"${chroot} installed to volumes") (let ((target (ensure-directory-pathname @@ -100,7 +103,8 @@ Also update the fstab and crypttab, and try to install bootloader(s)." (drop-trailing-slash (unix-namestring (ensure-directory-pathname chroot))) ".target")))) - `(with-opened-volumes (,volumes :mount-below ,target) + `(with-opened-volumes + (,volumes :mount-below ,target :leave-open ,leave-open) (%update-target-from-chroot ,chroot ,target) (chroot:deploys-these ,target ,host |