Function: hui-menu-explicit-buttons

hui-menu-explicit-buttons is a byte-compiled function defined in hui-menu.el.

Signature

(hui-menu-explicit-buttons REST-OF-MENU)

Documentation

Explicit button menu to go before REST-OF-MENU.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hui-menu.el
;; List explicit buttons in the current buffer for menu activation.
(defun hui-menu-explicit-buttons (rest-of-menu)
  "Explicit button menu to go before REST-OF-MENU."
  (delq nil
	(append
	 '(["Manual"   (id-info "(hyperbole)Explicit Buttons") t]
	   "----")
	 (let ((labels (ebut:list))
	       (cutoff))
	   (if labels
	       (progn
		 ;; Cutoff list if too long.
		 (if (setq cutoff (nthcdr (1- hui-menu-max-list-length) labels))
		     (setcdr cutoff nil))
		 (delq nil
		       (append
			'("----"
			  ["Alphabetize-List"
			   (setq hui-menu-order-explicit-buttons
				 (not hui-menu-order-explicit-buttons))
			   :style toggle :selected hui-menu-order-explicit-buttons]
			  "Activate:")
			(mapcar (lambda (label) (vector label `(ebut:act-label ,label) t))
				(if hui-menu-order-explicit-buttons
				    (sort labels #'string-lessp)
				  labels))
			(if cutoff '(". . ."))
			'("----" "----"))))))
	 rest-of-menu)))