branch: elpa/hyperdrive
commit 51d878455af57250d5feed820b080a44a700495a
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (h/menu) Add "installing" gateway indicator
Also refresh the menu when h/install completes installation.
---
hyperdrive-menu.el | 5 +++++
hyperdrive.el | 1 +
2 files changed, 6 insertions(+)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 7d1120e416..acee95ce6a 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -208,6 +208,11 @@
(propertize
(cond ((h//gateway-ready-p) "on")
((h/gateway-live-p) "starting")
+ ((and (equal h/gateway-start-function
+ (eval (car (get 'h/gateway-start-function
+ 'standard-value))))
+ h/install-in-progress-p)
+ "installing")
((and (equal h/gateway-start-function
(eval (car (get 'h/gateway-start-function
'standard-value))))
diff --git a/hyperdrive.el b/hyperdrive.el
index 705f68921d..bd87ce059b 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1338,6 +1338,7 @@ If FORCEP, don't prompt for confirmation before
downloading."
(rename-file file-name destination-name)
(chmod destination-name #o755))
(setf h/install-in-progress-p nil)
+ (h/menu-refresh)
(h/message "Gateway installed. Try \\[%s]"
(if (h//gateway-ready-p)
"hyperdrive-restart"
