branch: elpa/hyperdrive
commit e196edcacda3ced2e5ee3ccb9f3dda24a46f725f
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (hyperdrive-menu) Make gateway commands sometimes inapt
---
hyperdrive-menu.el | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index ce6f7ad13b..62d372fc08 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -216,11 +216,18 @@
(t "off"))
'face 'transient-value)))
("G s" "Start" h/start
- :transient t)
+ :transient t
+ :inapt-if (lambda ()
+ (and (equal h/gateway-start-function
+ (eval (car (get 'h/gateway-start-function
+ 'standard-value))))
+ (not (h//hyper-gateway-ushin-path)))))
("G S" "Stop" h/stop
- :transient t)
+ :transient t
+ :inapt-if-not (lambda () (or (h/gateway-live-p) (h//gateway-ready-p))))
("G v" "Version" h/gateway-version
- :transient t)]
+ :transient t
+ :inapt-if-not (lambda () (h//gateway-ready-p)))]
["Bookmark"
("b j" "Jump" h/bookmark-jump)
("b l" "List" h/bookmark-list)
