Function: eca-rewrite--refresh-overlay-actions

eca-rewrite--refresh-overlay-actions is a natively compiled function defined in eca-rewrite.el.

Signature

(eca-rewrite--refresh-overlay-actions OV STATUS)

Documentation

Display the actions overlay above rewrite overlay OV given STATUS.

Source Code

;; Defined in /nix/store/jklqzw6pzz6j4jrbv8wy0iwgi7jlrbld-emacs-packages-deps/share/emacs/site-lisp/elpa/eca-20260928.1827/eca-rewrite.el
(defun eca-rewrite--refresh-overlay-actions (ov status)
  "Display the actions overlay above rewrite overlay OV given STATUS."
  (let ((choices (pcase status
                   ('started '((?r "reject")))
                   ('reasoning '((?r "reject")))
                   ('finished '((?a "accept") (?r "reject") (?d "diff") (?m "merge") (?t "retry")))))
        (label (pcase status
                 ('started (propertize "Requesting LLM... " 'face 'eca-rewrite-in-progress-prefix-face))
                 ('reasoning (propertize "LLM reasoning... " 'face 'eca-rewrite-in-progress-prefix-face))
                 ('finished (propertize eca-rewrite-finish-prefix 'face 'eca-rewrite-ready-prefix-face)))))
    (overlay-put
     ov
     'before-string (eca-rewrite--overlay-menu-str
                     ov
                     (concat
                      label
                      (when (fboundp 'rmc--add-key-description)
                        (mapconcat (lambda (e) (cdr e))
                                   (mapcar (lambda (c) (funcall 'rmc--add-key-description c)) choices)
                                   ", ")))))))