[nongnu] elpa/hyperdrive bfa91f271b 04/33: Change: (hyperdrive--easy-menu-contents) Add "Gateway" submenu

[ELPA Syncer]

branch: elpa/hyperdrive
commit bfa91f271be203c912d6af10d74b9741d5d79a16
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive--easy-menu-contents) Add "Gateway" submenu
---
 hyperdrive.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index a259018923..cbb1f84bf0 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -831,7 +831,17 @@ The return value of this function is the retrieval buffer."
      ["Describe" hyperdrive-describe-hyperdrive
       :help "Display information about hyperdrive"]
      ["Purge" hyperdrive-purge
-      :help "Purge all local data about hyperdrive"]))
+      :help "Purge all local data about hyperdrive"])
+    "---"
+    ("Gateway"
+     :label
+     (concat "Gateway: " (if (hyperdrive-status) "on" "off"))
+     ["Start Gateway" hyperdrive-start
+      :help "Start hyper-gateway"]
+     ["Stop Gateway" hyperdrive-stop
+      :help "Stop hyper-gateway"]
+     ["Gateway version" hyperdrive-hyper-gateway-version
+      :help "Say hyper-gateway version"]))
   "Contents of the Hyperdrive menu.")
 
 (easy-menu-define hyperdrive-global-easy-menu global-map