Function: gptel--inspect-tool-post-command

gptel--inspect-tool-post-command is a byte-compiled function defined in gptel.el.

Signature

(gptel--inspect-tool-post-command)

Documentation

Highlight tool call under cursor in gptel tool call inspection buffers.

Source Code

;; Defined in /nix/store/q3r7g81pvghw7a523kjk2k2zih3pfk8z-emacs-packages-deps/share/emacs/site-lisp/elpa/gptel-20261002.545/gptel.el
(defalias 'gptel--inspect-tool-post-command
  (let ((highlight-ov))
    (lambda ()
      (unless (memq highlight-ov (overlays-at (point)))
        (let ((context-ov
               (cl-loop for ov in (overlays-at (point))
                        thereis (and (overlay-get ov 'gptel-overlay) ov)))
              (line (propertize "\n" 'font-lock-face
                                '(:inherit separator-line :extend t))))
          (when highlight-ov
            (overlay-put highlight-ov 'face nil)
            (overlay-put highlight-ov 'before-string nil)
            (overlay-put highlight-ov 'after-string nil))
          (when context-ov
            (overlay-put context-ov 'face 'gptel-response-highlight)
            (overlay-put context-ov 'before-string line)
            (overlay-put context-ov 'after-string (concat "\n" line)))
          (setq highlight-ov context-ov)))))
  "Highlight tool call under cursor in gptel tool call inspection buffers.")