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

gptel-transient: Fix bug when sending in existing session

Browse source 
* gptel-transient.el (gptel--suffix-send, gptel-menu): When
reading input from the minibuffer and sending the output to an
existing gptel session, only use the prompt read from the
minibuffer. Reword the "Overwrite/Delete prompt" option.
This commit is contained in:
Karthik Chikmagalur 2023-04-10 22:45:43 -07:00
parent 00abbf7597
commit f218388d4d
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gptel-transient.el
View file

@ -69,7 +69,7 @@ Or is it the other way around?"
(gptel--infix-model)]
["Prompt:"
("-r" "From minibuffer instead" "-r")
("-i" "Overwrite/Delete prompt" "-i")
("-i" "Replace/Delete prompt" "-i")
"Response to:"
("-m" "Minibuffer instead" "-m")
("-n" "New session" "-n"
@ -339,18 +339,19 @@ will get progressively longer!"
(setq buffer (get-buffer buffer-name))
(setq output-to-other-buffer-p t)
(let ((reduced-prompt
(if (use-region-p)
(buffer-substring-no-properties (region-beginning)
(region-end))
(buffer-substring-no-properties
(save-excursion
(text-property-search-backward
'gptel 'response
(when (get-char-property (max (point-min) (1- (point)))
'gptel)
t))
(point))
(point)))))
(or prompt
(if (use-region-p)
(buffer-substring-no-properties (region-beginning)
(region-end))
(buffer-substring-no-properties
(save-excursion
(text-property-search-backward
'gptel 'response
(when (get-char-property (max (point-min) (1- (point)))
'gptel)
t))
(point))
(point))))))
(with-current-buffer buffer
(goto-char (point-max))
(insert reduced-prompt)