branch: elpa/hyperdrive
commit fd20de0f66a2b97f67235f6273ab131dd993dbd2
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (h/menu) Don't display "Install" suffix when installed
---
hyperdrive-menu.el | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index a987c75850..6c51c6ffcc 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -230,14 +230,13 @@
:inapt-if-not (lambda () (h//gateway-ready-p)))
("G i" "Install" h/install
:description
- (lambda () (cond ((and (h//gateway-ready-p)
- (not (equal h/gateway-version-expected
- (h//gateway-version))))
- "Upgrade")
- ((h/gateway-installed-p) "Reinstall")
- (t "Install")))
+ (lambda () (if (and (h//gateway-ready-p)
+ (not (equal h/gateway-version-expected
+ (h//gateway-version))))
+ "Upgrade"
+ "Install"))
:transient t
- :if-not h/gateway-installing-p)
+ :if-not (lambda () (or (h/gateway-installing-p) (h/gateway-installed-p))))
("G c" "Cancel install" h/cancel-install
:transient t
:if h/gateway-installing-p)]
