branch: elpa/hyperdrive
commit e8f72edbdda88e371902cf8203b4e3b4c073b501
Author: Adam Porter <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (hyperdrive-start) Error and suggest to install if not found
---
hyperdrive.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index 081c93b740..4214ea50fb 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -114,6 +114,11 @@ which see."
;; "live". This probably should never happen, but if it were to, this
;; distinct message might help us understand what's going on.
(h/message "Gateway appears to be starting."))
+ ((not (h//hyper-gateway-ushin-path))
+ ;; Gateway appears to not be installed: suggest to install it.
+ (error "Hyperdrive: %s"
+ (substitute-command-keys
+ "Gateway not installed; try \\[hyperdrive-install]")))
(t (funcall h/gateway-start-function)))
(h//gateway-wait-for-ready))
