[nongnu] elpa/hyperdrive 1e439d827a 006/163: Change: (hyperdrive-hyper-gateway-ushin-version) Return version

[ELPA Syncer]

branch: elpa/hyperdrive
commit 1e439d827a33374d202adbb3795fd1f273e1b8ae
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive-hyper-gateway-ushin-version) Return version
---
 hyperdrive.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 7ccd14aa85..5cf588e95e 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -114,10 +114,11 @@ Customize behavior with 
`hyperdrive-gateway-process-type', which see."
 Gateway must be running."
   (interactive)
   (condition-case err
-      (let ((url (format "http://localhost:%d/"; h/hyper-gateway-ushin-port)))
-        ;; TODO: Make this also return the version.
-        (h/message "hyper-gateway-ushin version %s"
-                   (alist-get 'version (plz 'get url :as #'json-read))))
+      (let* ((url (format "http://localhost:%d/"; h/hyper-gateway-ushin-port))
+             (version (alist-get 'version (plz 'get url :as #'json-read))))
+        (when (called-interactively-p 'any)
+          (h/message "hyper-gateway-ushin version %s" version))
+        version)
     (plz-error (h/api-default-else nil (caddr err)))))
 
 ;;;###autoload