diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-04 11:36:12 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-06 12:23:51 -0700 |
commit | 9940b342a9e054632ac7aff6186d760ef94ec090 (patch) | |
tree | 260ec842a500d843caa5b931787601062a3c2dd5 /src/property/fstab.lisp | |
parent | 44b9b68c78ee6e4e83262888f2cf9d60196b9326 (diff) | |
download | consfigurator-9940b342a9e054632ac7aff6186d760ef94ec090.tar.gz |
fix :DESC for FSTAB:ENTRIES
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/fstab.lisp')
-rw-r--r-- | src/property/fstab.lisp | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/property/fstab.lisp b/src/property/fstab.lisp index 7be61a4..540efc4 100644 --- a/src/property/fstab.lisp +++ b/src/property/fstab.lisp @@ -73,8 +73,13 @@ member of ENTRIES is \"none\", or \"PLACEHOLDER\", use the existing field value. This makes it easy to update mount options without having to specify the partition or filesystem UUID in your consfig." - (:desc (format nil "fstab entries for ~{~A~^, ~}" - (mapcar #'entry->mountpoint entries))) + (:desc + (let ((mount-points + (loop for entry in entries + collect (cadr + (remove "" (split-string entry) :test #'string=))))) + (format nil "fstab entr~@P for ~{~A~^, ~}" + (length mount-points) mount-points))) (:apply (file:update-unix-table #P"/etc/fstab" 0 1 entries))) (defprop entries-for-volumes :posix () |