[nongnu] elpa/hyperdrive 456257e607 020/102: Change: (hyperdrive-mirror-set-target) Propertize values

[ELPA Syncer]

branch: elpa/hyperdrive
commit 456257e60793dc1a956b4debd828c562c45a84b9
Author: Joseph Turner <joseph@ushin.org>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Change: (hyperdrive-mirror-set-target) Propertize values
    
    Also say "Mirror all" when hyperdrive-mirror-variable is nil.
---
 hyperdrive-menu.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 95d0551b0a..49070d590b 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -323,6 +323,13 @@
 (transient-define-infix hyperdrive-mirror-set-filter ()
   :class 'hyperdrive-mirror-variable
   :variable 'hyperdrive-mirror-filter
+  :format-value (lambda (obj)
+                  (pcase-exhaustive (oref obj value)
+                    ('nil (propertize "Mirror all" 'face 
'hyperdrive-file-name))
+                    ((and (pred stringp) it) (propertize it 'face 
'font-lock-regexp-face))
+                    ((and (pred symbolp) it) (propertize (symbol-name it) 
'face 'font-lock-function-name-face))
+                    ;; TODO: Fontify the whole lambda.
+                    ((and (pred consp) it) (propertize (prin1-to-string it) 
'face 'default))))
   :reader (lambda (_prompt _default _history)
             (hyperdrive-mirror-read-predicate)))