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 | |
| parent | a0f514ded6a2e53c1cb12ede4cf394aaa15cf025 (diff) | |
| download | consfigurator-fb89c160bad4fff16e54812b60ddc74f3c957fef.tar.gz | |
add descriptions to some recently added properties
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property/hostname.lisp | 1 | ||||
| -rw-r--r-- | src/property/libvirt.lisp | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/property/hostname.lisp b/src/property/hostname.lisp index 5a93431..0ff8828 100644 --- a/src/property/hostname.lisp +++ b/src/property/hostname.lisp @@ -25,6 +25,7 @@ "Specify that the hostname of this host is HOSTNAME. Useful for hosts implicitly defined inline using dotted propapp notation. Unlikely to be useful for hosts defined using DEFHOST." + (:desc #?"Hostname is ${hostname}") (:hostattrs (push-hostattrs :hostname hostname))) (defpropspec configured :posix 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/"))) |