Function: eca-chat-inline--header

eca-chat-inline--header is a natively compiled function defined in eca-chat-inline.el.

Signature

(eca-chat-inline--header OV)

Documentation

Return the header line string for OV.

Source Code

;; Defined in /nix/store/jklqzw6pzz6j4jrbv8wy0iwgi7jlrbld-emacs-packages-deps/share/emacs/site-lisp/elpa/eca-20260928.1827/eca-chat-inline.el
(defun eca-chat-inline--header (ov)
  "Return the header line string for OV."
  (let* ((state (overlay-get ov 'eca-chat-inline--state))
         (status (overlay-get ov 'eca-chat-inline--status))
         (pending (overlay-get ov 'eca-chat-inline--pending-tools))
         (label-face (if (eq state 'finished)
                         'eca-chat-inline-ready-face
                       'eca-chat-inline-in-progress-face))
         (hints (cond
                 (pending '(("a" . "approve")
                            ("d" . "reject")
                            ("m" . "more")))
                 ((eq state 'finished) '(("r" . "reply")
                                         ("q" . "dismiss")
                                         ("m" . "more")))
                 (t '(("s" . "stop")
                      ("q" . "dismiss")
                      ("m" . "more"))))))
    (concat
     (propertize "ECA: " 'face label-face)
     (propertize (or status "") 'face (if pending 'warning label-face))
     "  "
     (mapconcat (lambda (hint)
                  (eca-chat-inline--key-hint (car hint) (cdr hint)))
                hints
                "  "))))