[nongnu] elpa/hyperdrive 6740906e5f 07/33: Change: (hyperdrive--easy-menu-contents) Move "Gateway" to top

[ELPA Syncer]

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

    Change: (hyperdrive--easy-menu-contents) Move "Gateway" to top
---
 hyperdrive.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index a37ea06740..145d990872 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -800,6 +800,16 @@ The return value of this function is the retrieval buffer."
 
 (defvar hyperdrive--easy-menu-contents
   '("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"])
+    "---"
     ["New Drive" hyperdrive-new
      :help "Create a new hyperdrive"]
     ("Current Drive"
@@ -833,15 +843,6 @@ The return value of this function is the retrieval buffer."
      ["Purge" hyperdrive-purge
       :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"])
     ("Upload"
      ["Upload File" hyperdrive-upload-file
       :help "Upload a file to a hyperdrive"]