[nongnu] elpa/hyperdrive 515cd88120 9/9: Change: (-menu-hyperdrive) Use hyperdrive faces for petname/nickname

[ELPA Syncer]

branch: elpa/hyperdrive
commit 515cd88120765b4db7e69daddd7f38e68748cdaf
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (-menu-hyperdrive) Use hyperdrive faces for petname/nickname
---
 hyperdrive-menu.el | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 7153ecd3c2..64d81d46c5 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -253,12 +253,11 @@
     :transient t
     :description (lambda ()
                    (format "Petname: %s"
-                           (pcase (hyperdrive-petname
-                                   (oref transient--prefix scope))
-                             (`nil (propertize "none"
-                                               'face 
'transient-inactive-value))
-                             (it (propertize it
-                                             'face 'transient-value))))))
+                           (if-let ((petname (hyperdrive-petname
+                                              (oref transient--prefix scope))))
+                               (propertize petname
+                                           'face 'hyperdrive-petname)
+                             ""))))
    ("n" "set nickname" hyperdrive-menu-set-nickname
     :transient t
     :inapt-if-not (lambda ()
@@ -266,13 +265,12 @@
     :description (lambda ()
                    (format "Nickname: %s"
                            ;; TODO: Hyperdrive-metadata accessor (and maybe gv 
setter).
-                           (pcase (alist-get 'name
-                                             (hyperdrive-metadata
-                                              (oref transient--prefix scope)))
-                             ('nil (propertize "none"
-                                               'face 
'transient-inactive-value))
-                             (it (propertize it
-                                             'face 'transient-value))))))
+                           (if-let ((nickname (alist-get 'name
+                                                         (hyperdrive-metadata
+                                                          (oref 
transient--prefix scope)))))
+                               (propertize nickname
+                                           'face 'hyperdrive-nickname)
+                             ""))))
    ("" "Domain" ignore
     :description (lambda ()
                    (concat "Domain: " (hyperdrive--format-host (oref 
transient--prefix scope) :format 'domain)))