Function: cider--debug-prompt

cider--debug-prompt is a byte-compiled function defined in cider-debug.el.

Signature

(cider--debug-prompt COMMANDS)

Documentation

Return prompt to display for COMMANDS.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-debug.el
(defun cider--debug-prompt (commands)
  "Return prompt to display for COMMANDS."
  ;; Force `default' face, otherwise the overlay "inherits" the face of the text
  ;; after it.
  (format (propertize "%s\n" 'face 'default)
          (seq-reduce
           (lambda (prompt spec)
             (pcase-let ((`(,_char ,cmd ,disp) spec))
               (if (and disp (seq-find (lambda (c) (string= cmd c)) commands))
                   (concat prompt " " disp)
                 prompt)))
           cider-debug-prompt-commands
           "")))