Commits

matsl  committed 304043a

(hyperbole-on-menubar): Visibility is customizable.
(hyperb:init): Use hyperbole-on-menubar.

  • Participants
  • Parent commits ad5534f

Comments (0)

Files changed (1)

   ;;
   (var:append 'write-file-hooks '(hattr:save))
   ;;
-  (hyperb:init-menubar))
+  (if hyperbole-on-menubar (hyperb:init-menubar)))
 
 ;;;###autoload
 (defun hyperb:init-menubar ()
        ;; menubar.
        (hyperbole-menubar-menu)))
 
+(defcustom hyperbole-on-menubar t
+  "Whether the hyperbole menu should be on the menubar."
+  :group 'hyperbole
+  :type 'boolean
+  :set (lambda (symb val) 
+	 (set symb val)
+	 (if (null val)
+	     (hui-menu-remove)
+	   (hyperb:init-menubar)))
+  :require 'hui-menu)
+
 (defun hyperb:act-set ()
   "COORDINATION IS NOT YET OPERATIONAL.  hui-coord.el IS NOT INCLUDED.
 Sets Hyperbole action command to uncoordinated or coordinated operation.