diff options
Diffstat (limited to 'src/property/fstab.lisp')
| -rw-r--r-- | src/property/fstab.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/property/fstab.lisp b/src/property/fstab.lisp index fb23767..68bce6a 100644 --- a/src/property/fstab.lisp +++ b/src/property/fstab.lisp @@ -111,3 +111,15 @@ DISK:HAS-VOLUMES." (mapcar #'volume->entry (mapcan (curry #'subvolumes-of-type 'filesystem) (get-hostattrs :volumes)))))) + +(defprop entries-for-opened-volumes :posix () + "Add or update entries in /etc/fstab for currently open volumes. + +This is used when building disk images and installing operating systems." + (:desc "fstab entries for opened volumes") + (:hostattrs (os:required 'os:linux)) + (:apply + (apply #'entries + (mapcar #'volume->entry + (mapcan (curry #'subvolumes-of-type 'mounted-filesystem) + (get-connattr :opened-volumes)))))) |