Variable: hui-menu-options

hui-menu-options is a variable defined in hui-menu.el.

Value

Large value
(["All-Hyperbole-Options" (customize-browse 'hyperbole) t] "----"
 ["Hyperbole-on-Menubar"
  (cond
   ((and (boundp 'menubar-configuration)
	 (not (memq 'Hyperbole menubar-configuration)))
    (hyperb:init-menubar))
   ((global-key-binding [menu-bar Hyperbole])
    (hui-menu-remove Hyperbole))
   (t (hyperb:init-menubar)))
  :style toggle :selected
  (cond
   ((boundp 'menubar-configuration)
    (memq 'Hyperbole menubar-configuration))
   (t (and (global-key-binding [menu-bar Hyperbole]) t)))]
 "----"
 ["Find-File-Accepts-URLs" hpath:find-file-urls-mode :style toggle
  :selected hpath:find-file-urls-mode]
 "----" ("Change-Key-Bindings" :filter hui-menu-key-bindings) "----"
 ("Display-Referents-in"
  ["This-Window" (setq hpath:display-where 'this-window) :style radio
   :selected (eq hpath:display-where 'this-window)]
  ["Other-Window" (setq hpath:display-where 'other-window) :style
   radio :selected (eq hpath:display-where 'other-window)]
  ["One-Window" (setq hpath:display-where 'one-window) :style radio
   :selected (eq hpath:display-where 'one-window)]
  ["New-Frame" (setq hpath:display-where 'new-frame) :style radio
   :selected (eq hpath:display-where 'new-frame)]
  ["Other-Frame" (setq hpath:display-where 'other-frame) :style radio
   :selected (eq hpath:display-where 'other-frame)]
  ["Other-Frame-One-Window"
   (setq hpath:display-where 'other-frame-one-window) :style radio
   :selected (eq hpath:display-where 'other-frame-one-window)])
 "----"
 ("Display-URLs-in"
  ["Chrome (Google)"
   (setq browse-url-browser-function #'browse-url-chrome) :style radio
   :selected (eq browse-url-browser-function #'browse-url-chrome)]
  ["Chromium" (setq browse-url-browser-function #'browse-url-chromium)
   :style radio :selected
   (eq browse-url-browser-function #'browse-url-chromium)]
  ["Default (System wide)"
   (setq browse-url-browser-function #'browse-url-default-browser)
   :style radio :selected
   (eq browse-url-browser-function #'browse-url-default-browser)]
  ["EWW (Emacs)" (setq browse-url-browser-function #'eww-browse-url)
   :style radio :selected
   (eq browse-url-browser-function #'eww-browse-url)]
  ["Emacs Text Browser"
   (setq browse-url-browser-function #'browse-url-text-emacs) :style
   radio :selected
   (eq browse-url-browser-function #'browse-url-text-emacs)]
  ["Firefox" (setq browse-url-browser-function #'browse-url-firefox)
   :style radio :selected
   (eq browse-url-browser-function #'browse-url-firefox)]
  ["KDE" (setq browse-url-browser-function #'browse-url-kde) :style
   radio :selected (eq browse-url-browser-function #'browse-url-kde)]
  ["XTerm Text Browser"
   (setq browse-url-browser-function #'browse-url-text-xterm) :style
   radio :selected
   (eq browse-url-browser-function #'browse-text-xterm)]
  "----"
  ["Toggle-URLs-in-New-Window"
   (setq browse-url-new-window-flag (not browse-url-new-window-flag))
   :style toggle :selected browse-url-new-window-flag])
 "----"
 ("Display-Web-Searches-in"
  ["Chrome (Google)"
   (setq hyperbole-web-search-browser-function #'browse-url-chrome)
   :style radio :selected
   (eq hyperbole-web-search-browser-function #'browse-url-chrome)]
  ["Chromium"
   (setq hyperbole-web-search-browser-function #'browse-url-chromium)
   :style radio :selected
   (eq hyperbole-web-search-browser-function #'browse-url-chromium)]
  ["Default (System wide)"
   (setq hyperbole-web-search-browser-function
	 #'browse-url-default-browser)
   :style radio :selected
   (eq hyperbole-web-search-browser-function
       #'browse-url-default-browser)]
  ["EWW (Emacs)"
   (setq hyperbole-web-search-browser-function #'eww-browse-url)
   :style radio :selected
   (eq hyperbole-web-search-browser-function #'eww-browse-url)]
  ["Emacs Text Browser"
   (setq hyperbole-web-search-browser-function #'browse-url-text-emacs)
   :style radio :selected
   (eq hyperbole-web-search-browser-function #'browse-url-text-emacs)]
  ["Firefox"
   (setq hyperbole-web-search-browser-function #'browse-url-firefox)
   :style radio :selected
   (eq hyperbole-web-search-browser-function #'browse-url-firefox)]
  ["KDE" (setq hyperbole-web-search-browser-function #'browse-url-kde)
   :style radio :selected
   (eq hyperbole-web-search-browser-function #'browse-url-kde)]
  ["XTerm Text Browser"
   (setq hyperbole-web-search-browser-function #'browse-url-text-xterm)
   :style radio :selected
   (eq hyperbole-web-search-browser-function #'browse-text-xterm)]
  "----"
  ["Toggle-URLs-in-New-Window"
   (setq browse-url-new-window-flag (not browse-url-new-window-flag))
   :style toggle :selected browse-url-new-window-flag])
 "----"
 ("Org M-RET Overrides" "----" "----"
  ["All-Hyperbole-Contexts"
   (customize-save-variable 'hsys-org-enable-smart-keys t) :style
   radio :selected
   (when (boundp 'hsys-org-enable-smart-keys)
     (eq hsys-org-enable-smart-keys t))]
  ["Hyperbole-Buttons-Only"
   (customize-save-variable 'hsys-org-enable-smart-keys :buttons)
   :style radio :selected
   (when (boundp 'hsys-org-enable-smart-keys)
     (memq hsys-org-enable-smart-keys '(:buttons buttons)))]
  ["None" (customize-save-variable 'hsys-org-enable-smart-keys nil)
   :style radio :selected
   (when (boundp 'hsys-org-enable-smart-keys)
     (eq hsys-org-enable-smart-keys nil))])
 "----"
 ("Smart-Key-Press-at-Eol" "----" "----"
  ["Scrolls-a-Windowful" (setq smart-scroll-proportional nil) :style
   radio :selected
   (when (boundp 'smart-scroll-proportional)
     (null smart-scroll-proportional))]
  ["Scrolls-Proportionally" (setq smart-scroll-proportional t) :style
   radio :selected
   (when (boundp 'smart-scroll-proportional)
     smart-scroll-proportional)])
 "----"
 ["Toggle-Isearch-Invisible-Text" hypb:toggle-isearch-invisible
  :visible (boundp 'isearch-invisible) :style toggle :selected
  (when (boundp 'isearch-invisible) isearch-invisible)]
 ["Toggle-Messaging-Explicit-Buttons" hyperbole-toggle-messaging
  :style toggle :selected (not inhibit-hyperbole-messaging)]
 ["Toggle-Rolo-Dates" hyrolo-toggle-datestamps :style toggle :selected
  (and (boundp 'hyrolo-add-hook) (listp hyrolo-add-hook)
       (memq 'hyrolo-set-date hyrolo-add-hook))]
 ["Toggle-Smart-Key-Debug (HyDebug)" hkey-toggle-debug :style toggle
  :selected hkey-debug])

Documentation

Untitled menu of Hyperbole options.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hui-menu.el
(defconst hui-menu-options
  (append '(["All-Hyperbole-Options" (customize-browse 'hyperbole) t]
	     "----"
	    ["Hyperbole-on-Menubar"
	     (cond ((and (boundp 'menubar-configuration)
			 (not (memq 'Hyperbole menubar-configuration)))
		    ;; Hyperbole may be included as part of the menubar but
		    ;; may be invisible due to a menubar configuration
		    ;; setting.  Invoking this item should then make it
		    ;; visible.
		    (hyperb:init-menubar))
		   ((global-key-binding [menu-bar Hyperbole])
		    ;; Already on the menubar, remove it.
		    (hui-menu-remove Hyperbole))
		   (t;; Add it.
		    (hyperb:init-menubar)))
	     :style toggle
	     :selected
	      (cond ((boundp 'menubar-configuration)
		     (memq 'Hyperbole menubar-configuration))
		    (t
		     (and (global-key-binding [menu-bar Hyperbole]) t)))]
	    "----"
	    ["Find-File-Accepts-URLs"
	     hpath:find-file-urls-mode
	     :style toggle
	     :selected hpath:find-file-urls-mode]
	    "----")
	  '(("Change-Key-Bindings" :filter hui-menu-key-bindings))
	  '("----")
	  (list (cons "Display-Referents-in"
		      (mapcar (lambda (sym)
				(vector
				 (capitalize (symbol-name sym))
				 `(setq hpath:display-where ',sym)
				 :style 'radio
				 :selected `(eq hpath:display-where ',sym)))
			      (mapcar #'car hpath:display-where-alist))))
	  '("----")
	  (hui-menu-browser "Display-URLs-in" browse-url-browser-function)
	  '("----")
	  (hui-menu-browser "Display-Web-Searches-in" hyperbole-web-search-browser-function)
	  '("----")
	  (list hui-menu-org-meta-return-options)
	  '("----")
	  '(("Smart-Key-Press-at-Eol"
	     "----"
	     "----"
	     ;; This menu may be loaded by InfoDock before hsettings.el has
	     ;; defined `smart-scroll-proportional'.  Handle that case
	     ;; with a conditional.
	     ["Scrolls-a-Windowful"
	      (setq smart-scroll-proportional nil)
	      :style radio :selected (when (boundp 'smart-scroll-proportional)
				       (null smart-scroll-proportional))]
	     ["Scrolls-Proportionally"
	      (setq smart-scroll-proportional t)
	      :style radio :selected (when (boundp 'smart-scroll-proportional)
				       smart-scroll-proportional)]))
	  '("----"
	    ["Toggle-Isearch-Invisible-Text" hypb:toggle-isearch-invisible
	     :visible (boundp 'isearch-invisible)
	     :style toggle :selected (when (boundp 'isearch-invisible)
				       isearch-invisible)]
	    ["Toggle-Messaging-Explicit-Buttons" hyperbole-toggle-messaging
	     :style toggle :selected (not inhibit-hyperbole-messaging)]
	    ["Toggle-Rolo-Dates" hyrolo-toggle-datestamps
	     :style toggle :selected (and (boundp 'hyrolo-add-hook)
					  (listp hyrolo-add-hook)
					  (memq 'hyrolo-set-date hyrolo-add-hook))]
	    ["Toggle-Smart-Key-Debug (HyDebug)" hkey-toggle-debug
	     :style toggle :selected hkey-debug]))
  "Untitled menu of Hyperbole options.")