branch: elpa/hyperdrive
commit 4c55ef206b6bb7e7ec2e86af2bfbf126a0a3907d
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (hyperdrive-menu) Add "starting" gateway indicator
---
hyperdrive-lib.el | 1 -
hyperdrive-menu.el | 7 +++++--
2 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 9408496e1e..38d6723375 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1456,7 +1456,6 @@ Default function; see variable
`h/gateway-start-function'."
(split-string-and-unquote h/gateway-command-args))
:connection-type 'pipe))
(h/message "Starting gateway...")
- ;; TODO: Update hyperdrive-menu to indicate "gateway starting...".
(h//gateway-wait-for-ready)))
(defun h//gateway-after-start-announce ()
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index fa529e2455..5de6c155d5 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -205,8 +205,11 @@
:description
(lambda ()
(concat (propertize "Gateway: " 'face 'transient-heading)
- (propertize (if (h//gateway-ready-p) "on" "off")
- 'face 'transient-value)))
+ (propertize
+ (cond ((h//gateway-ready-p) "on")
+ ((h//gateway-live-p) "starting")
+ (t "off"))
+ 'face 'transient-value)))
("G s" "Start" h/start
:transient t)
("G S" "Stop" h/stop
