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

gptel: Set "waiting" state after sending the prompt

Browse source 
* gptel.el (gptel-send): Set the "Waiting..." state after sending
the http request -- this is less misleading if there's an error in
the http request functions (`gptel--url-get-response' or
`gptel-curl-get-response').
This commit is contained in:
Karthik Chikmagalur 2023-03-24 18:03:40 -07:00
parent 9b3db255e8
commit 1828dd3fa4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gptel.el
View file

@ -257,7 +257,6 @@ instead."
(if (and arg (require 'gptel-transient nil t)) (if (and arg (require 'gptel-transient nil t))
(call-interactively #'gptel-send-menu) (call-interactively #'gptel-send-menu)
(message "Querying ChatGPT...") (message "Querying ChatGPT...")
(gptel--update-header-line " Waiting..." 'warning)
(let* ((response-pt (let* ((response-pt
(if (use-region-p) (if (use-region-p)
(set-marker (make-marker) (region-end)) (set-marker (make-marker) (region-end))
@ -269,7 +268,8 @@ instead."
#'gptel-curl-get-response #'gptel--url-get-response) #'gptel-curl-get-response #'gptel--url-get-response)
(list :prompt full-prompt (list :prompt full-prompt
:gptel-buffer gptel-buffer :gptel-buffer gptel-buffer
:insert-marker response-pt))))) :insert-marker response-pt)))
(gptel--update-header-line " Waiting..." 'warning)))
(defun gptel--insert-response (response info) (defun gptel--insert-response (response info)
"Insert RESPONSE from ChatGPT into the gptel buffer. "Insert RESPONSE from ChatGPT into the gptel buffer.