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

gptel-curl: Adjust response beginning position

Browse source 
gptel-curl.el (gptel-curl--stream-cleanup,
gptel-curl--stream-insert-response): Don't consider
`gptel-response-prefix-string` part of the response for the
purpose of running `gptel-post-response-functions`.
This commit is contained in:
Karthik Chikmagalur 2024-03-05 22:51:14 -08:00
parent eb088f2f21
commit 0d6264f268
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gptel-curl.el
View file

@ -206,7 +206,7 @@ PROCESS and _STATUS are process parameters."
(progn (progn
;; Finish handling response ;; Finish handling response
(with-current-buffer (marker-buffer start-marker) (with-current-buffer (marker-buffer start-marker)
(setq response-beg (+ start-marker 2) (setq response-beg (marker-position start-marker)
response-end (marker-position tracking-marker)) response-end (marker-position tracking-marker))
(pulse-momentary-highlight-region response-beg tracking-marker) (pulse-momentary-highlight-region response-beg tracking-marker)
(when gptel-mode (save-excursion (goto-char tracking-marker) (when gptel-mode (save-excursion (goto-char tracking-marker)
@ -262,7 +262,8 @@ See `gptel--url-get-response' for details."
(insert "\n\n") (insert "\n\n")
(when gptel-mode (when gptel-mode
;; Put prefix before AI response. ;; Put prefix before AI response.
(insert (gptel-response-prefix-string)))) (insert (gptel-response-prefix-string)))
(move-marker start-marker (point)))
(setq tracking-marker (set-marker (make-marker) (point))) (setq tracking-marker (set-marker (make-marker) (point)))
(set-marker-insertion-type tracking-marker t) (set-marker-insertion-type tracking-marker t)
(plist-put info :tracking-marker tracking-marker)) (plist-put info :tracking-marker tracking-marker))