branch: elpa/hyperdrive
commit a2d564f821a541b2b52242068d2ad889e2c61916
Author: Adam Porter <[email protected]>
Commit: Joseph Turner <[email protected]>
Add: (h/restart)
---
hyperdrive.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index af4eaa484c..751465988f 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1341,6 +1341,17 @@ version."
(h/message "hyper-gateway-ushin installed.")))
(setf install-in-progress-p nil))))
+(defun h/restart ()
+ "Restart the gateway."
+ (interactive)
+ (h/message "Restarting gateway...")
+ (hyperdrive-stop)
+ (with-timeout (5 (h/message "Timed out waiting for gateway to stop"))
+ (cl-loop while (h//gateway-running-p)
+ do (sleep-for 0.2)))
+ (hyperdrive-start)
+ (h/message "Gateway restarted."))
+
;;;; Footer
(provide 'hyperdrive)
