Function: embark--verbose-indicator-section-bindings

embark--verbose-indicator-section-bindings is a byte-compiled function defined in embark.el.

Signature

(embark--verbose-indicator-section-bindings &key BINDINGS &allow-other-keys)

Documentation

Format the BINDINGS section for the indicator buffer.

Source Code

;; Defined in ~/.emacs.d/elpa/embark-20260610.302/embark.el
(cl-defun embark--verbose-indicator-section-bindings
    (&key bindings &allow-other-keys)
  "Format the BINDINGS section for the indicator buffer."
  (let* ((max-width (apply #'max (cons 0 (mapcar (lambda (x)
                                                  (string-width (car x)))
                                                bindings))))
         (fmt (format "%%-%ds" (1+ max-width)))
         (result nil))
    (dolist (binding bindings (string-join (nreverse result)))
      (let ((cmd (caddr binding)))
        (unless (embark--verbose-indicator-excluded-p cmd)
          (let ((keys (format fmt (car binding)))
                (doc (embark--function-doc cmd)))
            (push (format "%s%s\n" keys
                          (propertize
                           (car (split-string (or doc "") "\n"))
                           'face 'embark-verbose-indicator-documentation))
                          result)))))))