diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-03 10:25:41 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-03 13:17:18 -0700 |
commit | ab33bb1607fd69899e5982bcca4119917daa4e44 (patch) | |
tree | 36b343a5c97753437d5b7ad12053609b042e5504 | |
parent | a6dfb56eac6e7b6b64f09df59b6ceaa1e03e3264 (diff) | |
download | consfigurator-ab33bb1607fd69899e5982bcca4119917daa4e44.tar.gz |
FSTAB:ENTRIES-FOR-VOLUMES: accept a list of volumes
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property/fstab.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/property/fstab.lisp b/src/property/fstab.lisp index 5daf5c8..643e54e 100644 --- a/src/property/fstab.lisp +++ b/src/property/fstab.lisp @@ -91,17 +91,17 @@ partition or filesystem UUID in your consfig." (length mount-points) mount-points))) (:apply (file:update-unix-table #P"/etc/fstab" 0 1 entries))) -(defprop entries-for-volumes :posix () - "Add or update entries in /etc/fstab for the host's volumes, as specified with -DISK:HAS-VOLUMES." - (:desc "fstab entries for host's volumes") +(defprop entries-for-volumes :posix (&optional volumes) + "Add or update entries in /etc/fstab for VOLUMES, or the host's volumes, as +specified with DISK:HAS-VOLUMES." + (:desc (format nil "fstab entries for ~:[~;host's ~]volumes" volumes)) (:hostattrs (os:required 'os:linux)) (:apply (apply #'entries (apply #'mapcar #'volume->entry (multiple-value-list (multiple-value-mapcan (curry #'subvolumes-of-type 'filesystem) - (get-hostattrs :volumes))))))) + (or volumes (get-hostattrs :volumes)))))))) (defprop entries-for-opened-volumes :posix () "Add or update entries in /etc/fstab for currently open volumes. |