branch: elpa/hyperdrive
commit 515cd88120765b4db7e69daddd7f38e68748cdaf
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@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)))
