add CHROOT:OS-BOOTSTRAPPED-FOR

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

2 files changed, 14 insertions, 6 deletions

diff --git a/src/package.lisp b/src/package.lisp
index 78b6094..64871bc 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -346,6 +346,7 @@
                     (#:os        #:consfigurator.property.os)
                     (#:file      #:consfigurator.property.file))
   (:export #:make-child-host-for-chroot-deploy
+           #:os-bootstrapped-for
            #:os-bootstrapped
            #:os-bootstrapped.))
 
diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp
index e75b1e7..d981811 100644
--- a/src/property/chroot.lisp
+++ b/src/property/chroot.lisp
@@ -69,13 +69,20 @@ services."
                :propspec `(service:without-starting-services
                               ,(propspec-props propspec))))))
 
-(defproplist os-bootstrapped :lisp
-    (options root properties
-             &aux (host (make-child-host-for-chroot-deploy properties)))
-  "Bootstrap an OS into ROOT and apply PROPERTIES.
+(defproplist os-bootstrapped-for :lisp (options root host)
+  "Bootstrap an OS for HOST into ROOT and apply the properties of HOST.
 OPTIONS is a plist of values to pass to the OS-specific bootstrapping property."
-  (:desc (declare (ignore options properties))
-         #?"Built chroot @ ${root}")
+  (:desc
+   (declare (ignore options))
+   #?"Built chroot for ${(car (getf (hostattrs host) :hostname))} @ ${root}")
   (%os-bootstrapper-installed host)
   (%os-bootstrapped options root host)
   (deploys `((:chroot :into ,root)) host))
+
+(defproplist os-bootstrapped :lisp (options root properties)
+  "Bootstrap an OS into ROOT and apply PROPERTIES.
+OPTIONS is a plist of values to pass to the OS-specific bootstrapping property."
+  (:desc (declare (ignore options properties))
+         #?"Built chroot @ ${root}")
+  (os-bootstrapped-for
+   options root (make-child-host-for-chroot-deploy properties)))