diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-14 20:04:34 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-14 20:04:34 -0700 |
commit | 873fd4aee8d40c8c0e31759211b1dc78bd46b824 (patch) | |
tree | 5fdef35c4d4aa0f7fbe9f47c6322d07938b2f31c /src/property/chroot.lisp | |
parent | e1bd644c000555ad662d3c24a4a88d2d6b52ffb8 (diff) | |
download | consfigurator-873fd4aee8d40c8c0e31759211b1dc78bd46b824.tar.gz |
add CHROOT:OS-BOOTSTRAPPED-FOR
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/chroot.lisp')
-rw-r--r-- | src/property/chroot.lisp | 19 |
1 files changed, 13 insertions, 6 deletions
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))) |