branch: elpa/hyperdrive
commit 9de6b7b0bfebeab2dceb806008d6c86a8dbea687
Author: Adam Porter <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: Rename functions, remove TODO
---
hyperdrive-lib.el | 4 ++--
hyperdrive-vars.el | 5 ++---
2 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 3eb8943d74..509a5ac3c1 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -197,7 +197,7 @@ make the request."
;; We pass only the `plz-error' struct to the ELSE* function.
(funcall else* (caddr err))))))
-(defun h//check-gateway-version ()
+(defun h/check-gateway-version ()
"Warn if gateway is at not at the expected version.
Unconditionally sets `h/gateway-version-checked-p' to t. The
caller should ensure that the gateway is running before calling
@@ -1444,7 +1444,7 @@ Default function; see variable
`h/gateway-start-function'."
;; twice in close succession.
(h/message "Starting gateway...")))
-(defun h//gateway-after-start-announce ()
+(defun h/gateway-after-start-announce ()
"Announce that the gateway is ready."
;; TODO: Update hyperdrive-menu to indicate "gateway ready".
(h/message "Gateway ready."))
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 89dc33e22c..760b91de75 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -367,7 +367,7 @@ values are alists mapping version range starts to plists
with
(defvar h/gateway-version-checked-p nil
"Non-nil if the gateway's version has been checked.
If the version was unexpected,
-`hyperdrive--check-gateway-version' displayed a warning.")
+`hyperdrive-check-gateway-version' displayed a warning.")
(defvar h/gateway-process nil
"Hyper-gateway-ushin process.")
@@ -424,9 +424,8 @@ gateway process."
"Predicate function which returns non-nil if the gateway process is live."
:type 'function)
-;; TODO: Consider having a private hook as well as a public one.
(defcustom h/gateway-ready-hook
- '(h//check-gateway-version h//gateway-after-start-announce)
+ '(h/check-gateway-version h/gateway-after-start-announce)
"Hook called when gateway is ready after starting it.
This hook is called by `hyperdrive--gateway-wait-for-ready' after
`hyperdrive-start'."
