Function: transient--insert-menu

transient--insert-menu is a byte-compiled function defined in transient.el.

Signature

(transient--insert-menu SETUP)

Source Code

;; Defined in ~/.emacs.d/elpa/transient-20260414.1009/transient.el
(defun transient--insert-menu (setup)
  (when setup
    (when transient-force-fixed-pitch
      (transient--force-fixed-pitch))
    (when (bound-and-true-p tab-line-format)
      (setq tab-line-format nil))
    (setq header-line-format nil)
    (setq mode-line-format
          (let ((format (transient--mode-line-format)))
            (if (or (natnump format) (eq format 'line)) nil format)))
    (setq mode-line-buffer-identification
          (symbol-name (oref transient--prefix command)))
    (if transient-enable-menu-navigation
        (setq-local cursor-in-non-selected-windows 'box)
      (setq cursor-type nil))
    (setq display-line-numbers nil)
    (setq show-trailing-whitespace nil)
    (run-hooks 'transient-setup-buffer-hook))
  (when transient-describe-menu
    (let* ((command (oref transient--prefix command))
           (desc (propertize
                  (or (and (not (eq transient-describe-menu 'docstring))
                           (oref transient--prefix description))
                      (and$ (documentation command)
                            (car (split-string $ "\n")))
                      (symbol-name command))
                  'face 'transient-heading)))
      (when (string-suffix-p "." desc)
        (setq desc (substring desc 0 -1)))
      (if transient-navigate-to-group-descriptions
          (insert (transient-buttonize desc transient--prefix))
        (insert desc))
      (insert "\n\n")))
  (transient--insert-groups)
  (when (or transient--helpp transient--editp)
    (transient--insert-help))
  (when-let ((line (transient--separator-line)))
    (insert line)))