branch: elpa/hyperdrive
commit ea60263bb26d70f814534868d762ed45ceaa0eeb
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (h/menu) Gateway suffix: "Upgrade", "Reinstall", "Install"
---
hyperdrive-menu.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index a5652fdaf3..6c07145ef4 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -230,6 +230,13 @@
:inapt-if-not (lambda () (h//gateway-ready-p)))
;; TODO: Replace with "Cancel install"
("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")))
:transient t
:inapt-if-non-nil hyperdrive-install-in-progress-p)]
["Bookmark"
