2 files changed, 9 insertions(+), 5 deletions(-)

M CHANGELOG.org
M hyperdrive.el

@@ 8,6 8,7 @@ This project adheres to [[https://semver.org/spec/v2.0.0.html][Semantic Versioni
 ** Added
 
 - ~hyperdrive-menu~ is the new control panel. Bind it a convenient key!
+- ~hyperdrive-menu-bar-mode~ enables the "Hyperdrive" menu bar inside "Tools"
 - ~org-insert-link~ automatically inserts relative links to hyperdrive
   files within the same drive
 - ~yank-media~ support (on Emacs 29 or later)

@@ 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 \"Tools\" 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