Function: eca-chat--auto-show-image-thumbnails

eca-chat--auto-show-image-thumbnails is a natively compiled function defined in eca-chat-image.el.

Signature

(eca-chat--auto-show-image-thumbnails START END)

Documentation

Show the thumbnails of the image mentions between START and END.

Per eca-chat-image-show-thumbnails, silently skipping frames that can't display images, mentions already showing one and those of missing or remote files, which would be fetched over the network.

Source Code

;; Defined in /nix/store/jklqzw6pzz6j4jrbv8wy0iwgi7jlrbld-emacs-packages-deps/share/emacs/site-lisp/elpa/eca-20260928.1827/eca-chat-image.el
(defun eca-chat--auto-show-image-thumbnails (start end)
  "Show the thumbnails of the image mentions between START and END.
Per `eca-chat-image-show-thumbnails', silently skipping frames that
can't display images, mentions already showing one and those of
missing or remote files, which would be fetched over the network."
  (when (and eca-chat-image-show-thumbnails
             (not eca-chat--inhibit-auto-thumbnails)
             (display-images-p))
    (let ((pos start))
      (while (< pos end)
        (when-let* ((link (eca-chat--image-link-at pos))
                    (path (nth 2 link))
                    ((not (eca-chat--image-thumbnail-at (car link) (cadr link))))
                    ((not (file-remote-p path)))
                    ((file-readable-p path))
                    (image (eca-chat--image-thumbnail path)))
          (eca-chat--show-image-thumbnail (car link) (cadr link) image))
        (setq pos (next-single-property-change pos 'eca-chat-image-path
                                               nil end))))))