tristan/gptel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gptel: Pulse inserted text

Browse source
This commit is contained in:
Karthik Chikmagalur 2023-03-09 22:01:28 -08:00
parent f98293f004
commit de70a066d7
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gptel.el
View file

@ -50,6 +50,7 @@
(declare-function markdown-mode "markdown-mode") (declare-function markdown-mode "markdown-mode")
(declare-function gptel-curl-get-response "gptel-curl") (declare-function gptel-curl-get-response "gptel-curl")
(declare-function gptel-send-menu "gptel-transient") (declare-function gptel-send-menu "gptel-transient")
(declare-function pulse-momentary-highlight-region "pulse")
(eval-when-compile (eval-when-compile
(require 'subr-x) (require 'subr-x)
@ -138,7 +139,9 @@ When set to nil, it is inserted all at once.
(unless (bobp) (insert "\n\n")) (unless (bobp) (insert "\n\n"))
(if gptel-playback (if gptel-playback
(gptel--playback (current-buffer) content-str (point)) (gptel--playback (current-buffer) content-str (point))
(insert content-str)) (let ((p (point)))
(insert content-str)
(pulse-momentary-highlight-region p (point))))
(insert "\n\n" gptel-prompt-string) (insert "\n\n" gptel-prompt-string)
(unless gptel-playback (unless gptel-playback
(setf (nth 1 header-line-format) (setf (nth 1 header-line-format)