Function: infodock-hyperbole-menu
infodock-hyperbole-menu is a byte-compiled function defined in
hui-menu.el.
Signature
(infodock-hyperbole-menu &optional REBUILD-FLAG)
Documentation
Return the Hyperbole menu for the global InfoDock menubar.
Uses any non-nil existing value of the menu unless optional REBUILD-FLAG is non-nil, in which case the menu is rebuilt.
Source Code
;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hui-menu.el
;;; Don't change this name; doing so will break the way InfoDock
;;; initializes the Hyperbole menu.
(defun infodock-hyperbole-menu (&optional rebuild-flag)
"Return the Hyperbole menu for the global InfoDock menubar.
Uses any non-nil existing value of the menu unless optional
REBUILD-FLAG is non-nil, in which case the menu is rebuilt."
(when (or rebuild-flag (null infodock-hyperbole-menu))
(setq infodock-hyperbole-menu
(delq nil
(list
"Hyperbole"
:config 'Hyperbole
hui-menu-about
["Demonstration" hyperbole-demo t]
;; Comment InfoDock manual reference out until
;; InfoDock is modernized for Emacs 25.
;; (if (and (boundp 'infodock-version) infodock-version)
;; ["Manual" (id-info "(infodock)Hyperbole Menu") t]
;; ["Manual" (id-info "(hyperbole)Top") t])
["Manual" (id-info "(hyperbole)Top") t]
["What-is-New?" (hypb:display-file-with-logo "HY-NEWS") t]
["Why-Use?" (find-file
(expand-file-name "HY-WHY.kotl" hyperb:dir)) t]
"----"
["Remove-This-Menu"
(progn
;; Delete Hyperbole menu from all menubars.
(hui-menu-remove Hyperbole)
;;
;; Remove Hyperbole button comment from future outgoing mail.
(when (boundp 'smail:comment) (setq smail:comment nil)))
t]
"----"
["Activate-Button-in-Buffer" hui:hbut-act t]
["Back-to-Prior-Location" hhist:pop
(and (boundp '*hhist*) *hhist*)]
'("Button-File"
["Manual" (id-info "(hyperbole)Button Files") t]
"----"
["Edit-Per-Directory-File" (find-file hbmap:filename) t]
["Edit-Personal-File" (find-file
(expand-file-name
hbmap:filename hbmap:dir-user)) t])
(cons "Customize" hui-menu-options)
'("Documentation"
["Manual" (id-info "(hyperbole)Top") t]
"----"
["About" (hypb:display-file-with-logo "HY-ABOUT") t]
["Concepts" (find-file (expand-file-name
"HY-CONCEPTS.kotl" hyperb:dir)) t]
["Demonstration" hyperbole-demo t]
["Files" (hypb:display-file-with-logo "MANIFEST") t]
["Glossary" (id-info "(hyperbole)Glossary") t]
["New-Features" (hypb:display-file-with-logo "HY-NEWS") t]
["Smart-Key-Summary" (id-browse-file (hypb:hkey-help-file)) t]
("Types"
["Action-Types-Manual"
(id-info "(hyperbole)Action Types") t]
["Implicit-Button-Types-Manual"
(id-info "(hyperbole)Implicit Buttons") t]
"----"
["Show-Action-Types"
(hui:htype-help-current-window 'actypes) t]
["Show-Implicit-Button-Types"
(hui:htype-help-current-window 'ibtypes 'no-sort) t])
["WhyUse" (find-file (expand-file-name "HY-WHY.kotl" hyperb:dir)) t])
'("Explicit-Button"
:filter hui-menu-explicit-buttons
["Activate" hui:ebut-act t]
["Create" hui:ebut-create t]
["Delete" hui:ebut-delete t]
["Edit" hui:ebut-edit t]
("Help"
["Manual" (id-info "(hyperbole)Location") t]
"----"
["Buffer-Buttons" (hui:hbut-report -1) t]
["Current-Button" (hui:hbut-report) t]
["Ordered-Buttons" (hui:hbut-report 1) t])
["Link" hui:ebut-link-directly t]
["Rename" hui:ebut-rename t]
["Search" hui:ebut-search t]
["Types"
(hui:htype-help-current-window 'actypes) t])
(append
'("Find"
["Manual" (id-info-item "menu, Find") t]
"----"
;; Show numbered line matches in all specified files.
["Grep-Files" hui-select-rgrep t]
;; Show numbered line matches for regexp in all file-based buffers.
["Locate-Files" locate t]
;; Show numbered line matches for regexp in all file-based buffers.
["Match-File-Buffers" moccur t]
;; Show numbered line matches for regexp from this buffer.
["Occur-Here" occur t]
;; Following point, remove all lines that match regexp.
["Remove-Lines-Here" hypb:remove-lines t]
;; Following point, keep only lines that match regexp.
["Save-Lines-Here" hypb:save-lines t]
"----"
"Web-Search:")
(hui-menu-web-search))
'("Global-Button"
:filter hui-menu-global-buttons
["Create" hui:gbut-create t]
["Delete" hui:gbut-delete t]
["Edit" hui:gbut-edit t]
["Help" gbut:help t]
["Link" hui:gbut-link-directly t]
["Rename" hui:gbut-rename t])
(cons "HyWiki" hui-menu-hywiki)
'("Implicit-Button"
["Manual" (id-info "(hyperbole)Implicit Buttons") t]
"----"
["Activate" hui:ibut-act t]
["Create" hui:ibut-create t]
["Delete-Type" (hui:htype-delete 'ibtypes) t]
["Edit" hui:ibut-edit t]
["Help" hkey-help t]
["Link" hui:ibut-link-directly t]
["Name" hui:ibut-label-create t]
["Rename" hui:ibut-rename t]
["Types" (hui:htype-help 'ibtypes 'no-sort) t])
'("Koutliner"
["Manual" (id-info "(hyperbole)Koutliner") t]
["Example" kotl-mode:example t]
"----"
["Create-File" kfile:find t]
["View-File" kfile:view t]
"----"
["Collapse-Tree" (progn (kotl-mode:is-p)
(kotl-mode:hide-tree
(kcell-view:label)))
(eq major-mode 'kotl-mode)]
["Create-Link" klink:create
(eq major-mode 'kotl-mode)]
["Expand-All-Trees" kotl-mode:show-all
(eq major-mode 'kotl-mode)]
["Expand-Tree" (progn (kotl-mode:is-p)
(kotl-mode:show-tree
(kcell-view:label)))
(eq major-mode 'kotl-mode)]
["Show-Top-Level-Only" kotl-mode:hide-body
(eq major-mode 'kotl-mode)])
'("Mail-Lists"
["Manual" (id-info "(hyperbole)Suggestion or Bug Reporting")
t]
"----"
["Mail-to-Hyperbole-Users-List"
(hmail:compose "hyperbole-users@gnu.org" '(hact 'hyp-config)) t]
["Mail-to-Hyperbole-Bug-Report-List"
(hmail:compose "bug-hyperbole@gnu.org" '(hact 'hyp-config)) t]
"----"
["Join-Hyperbole-Users-List"
(hmail:compose "hyperbole-users-join@gnu.org" nil
"Just send the message; subject and body are ignored.") t]
["Join-Hyperbole-Bug-Report-List"
(hmail:compose "bug-hyperbole-join@gnu.org" nil
"Just send the message; subject and body are ignored.") t]
"----"
["Leave-Hyperbole-Users-List"
(hmail:compose "hyperbole-users-leave@gnu.org" nil
"Just send the message; subject and body are ignored.") t]
["Leave-Hyperbole-Bug-Report-List"
(hmail:compose "bug-hyperbole-leave@gnu.org" nil
"Just send the message; subject and body are ignored.") t])
infodock-hyrolo-menu
'("Screen (HyControl)" :filter hui-menu-screen)
hui-menu-hywconfig)))))