diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-29 13:52:01 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-29 13:52:01 -0700 |
commit | fb89c160bad4fff16e54812b60ddc74f3c957fef (patch) | |
tree | 5be6e644f3a902527e4bef49cd9db1afb27c5249 /src/property/libvirt.lisp | |
parent | a0f514ded6a2e53c1cb12ede4cf394aaa15cf025 (diff) | |
download | consfigurator-fb89c160bad4fff16e54812b60ddc74f3c957fef.tar.gz |
add descriptions to some recently added properties
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/libvirt.lisp')
-rw-r--r-- | src/property/libvirt.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/property/libvirt.lisp b/src/property/libvirt.lisp index 9c15625..d2de264 100644 --- a/src/property/libvirt.lisp +++ b/src/property/libvirt.lisp @@ -26,6 +26,7 @@ "libvirt-daemon" "libvirt-daemon-system")))) (defprop %default-network-started :posix () + (:desc "libvirt's default network started") (:check (member "default" (mapcar #'car (virsh-get-columns "net-list")) :test #'string=)) @@ -33,6 +34,7 @@ (mrun "virsh" "net-start" "default"))) (defprop %default-network-autostarted :posix () + (:desc "libvirt's default network marked for autostart") (:check (remote-exists-p "/etc/libvirt/qemu/networks/autostart/default.xml")) (:apply @@ -47,6 +49,7 @@ (defproplist default-network-autostarted :posix () "Ensure that the default libvirt network is set to autostart, and start it. On Debian, it is not started by default after installation of libvirt." + (:desc "libvirt's default network started & marked for autostart") (installed) (%default-network-autostarted) (%default-network-started)) @@ -73,6 +76,7 @@ or use virt-xml(1) to perform a modification. Unapplying this property when the domain is running will use the 'undefine' subcommand of virsh(1) to convert the running domain into a transient domain." + (:desc "libvirt domain XML defined") (:check (declare (ignore arguments)) (remote-exists-p (merge-pathnames (strcat (get-hostname host) ".xml") "/etc/libvirt/qemu/"))) |