branch: elpa/hyperdrive
commit 00803933848a47dea47b8a0a17709922fd013e42
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (h/menu-bar-menu) Add :active to menu bar stop/version
---
hyperdrive.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index d8af087c86..4512e76d03 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -833,9 +833,11 @@ The return value of this function is the retrieval buffer."
:help "Restart the gateway"
:visible (or (h/gateway-live-p) (h//gateway-ready-p))]
["Stop Gateway" h/stop
- :help "Stop the gateway"]
+ :help "Stop the gateway"
+ :active (or (h/gateway-live-p) (h//gateway-ready-p))]
["Gateway Version" h/gateway-version
- :help "Say gateway version"]
+ :help "Say gateway version"
+ :active (h//gateway-ready-p)]
["Install Gateway" h/install
:label (if (h/gateway-needs-upgrade-p) "Upgrade" "Install")
:visible (and (not (h/gateway-installing-p))
