Function: eca-chat--make-expandable-icons

eca-chat--make-expandable-icons is a natively compiled function defined in eca-chat-expandable.el.

Signature

(eca-chat--make-expandable-icons ICON-FACE &optional LABEL-PREFIX)

Documentation

Create open/close icons with ICON-FACE and optional LABEL-PREFIX.

Uses the face property (not font-lock-face) because these strings are used as line-prefix values, where font-lock-face is not rendered.

Source Code

;; Defined in /nix/store/jklqzw6pzz6j4jrbv8wy0iwgi7jlrbld-emacs-packages-deps/share/emacs/site-lisp/elpa/eca-20260928.1827/eca-chat-expandable.el
(defun eca-chat--make-expandable-icons (icon-face &optional label-prefix)
  "Create open/close icons with ICON-FACE and optional LABEL-PREFIX.
Uses the `face' property (not `font-lock-face') because these strings
are used as `line-prefix' values, where `font-lock-face' is not rendered."
  (let ((open-icon (if icon-face
                       (propertize eca-chat-expandable-block-open-symbol 'face icon-face)
                     eca-chat-expandable-block-open-symbol))
        (close-icon (if icon-face
                        (propertize eca-chat-expandable-block-close-symbol 'face icon-face)
                      eca-chat-expandable-block-close-symbol)))
    (if label-prefix
        (cons (concat label-prefix open-icon) (concat label-prefix close-icon))
      (cons open-icon close-icon))))