Source

hyperbole / hinit.el

Diff from to

File hinit.el

   ;;
   (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.