[nongnu] elpa/hyperdrive d9ee63a3f9 03/10: Add: (hyperdrive-menu-bar-mode)

[ELPA Syncer]

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

    Add: (hyperdrive-menu-bar-mode)
---
 hyperdrive.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index bb4e18d7cc..f7b3568eca 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -808,7 +808,6 @@ The return value of this function is the retrieval buffer."
 
 ;;;;; `easy-menu' integration
 
-;;;###autoload
 (defvar hyperdrive-menu-bar-menu
   '("Hyperdrive"
     ("Gateway"
@@ -1116,13 +1115,17 @@ The return value of this function is the retrieval 
buffer."
     ["User Manual" hyperdrive-info-manual
      :help "Open hyperdrive.el info manual"]))
 
-;;;###autoload
-(easy-menu-add-item menu-bar-tools-menu nil hyperdrive-menu-bar-menu
-                    "Read Net News")
-
 (easy-menu-define hyperdrive-easy-menu hyperdrive-mode-map
   "Menu with all Hyperdrive commands." hyperdrive-menu-bar-menu)
 
+;;;###autoload
+(define-minor-mode hyperdrive-menu-bar-mode "Show hyperdrive in global menu 
bar."
+  :global t :group 'hyperdrive
+  (if hyperdrive-menu-bar-mode
+      (easy-menu-add-item menu-bar-tools-menu nil hyperdrive-menu-bar-menu
+                          "Read Net News")
+    (easy-menu-remove-item menu-bar-tools-menu nil "Hyperdrive")))
+
 ;;;;; Miscellaneous commands
 
 ;;;###autoload