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

gptel-curl: Fix current-buffer for Curl requests

Browse source 
* gptel-curl.el (gptel-curl-get-response): Set buffer-local model parameters in
the correct (i.e. gptel) buffer, not in Curl's process buffer. This fixes #43.
This commit is contained in:
Karthik Chikmagalur 2023-04-12 22:10:54 -07:00
parent f218388d4d
commit 444a43134f
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gptel-curl.el
View file

@ -72,13 +72,13 @@ INFO is a plist with the following keys:
Call CALLBACK with the response and INFO afterwards. If omitted Call CALLBACK with the response and INFO afterwards. If omitted
the response is inserted into the current buffer after point." the response is inserted into the current buffer after point."
(with-current-buffer (generate-new-buffer "*gptel-curl*")
(let* ((token (md5 (format "%s%s%s%s" (let* ((token (md5 (format "%s%s%s%s"
(random) (emacs-pid) (user-full-name) (random) (emacs-pid) (user-full-name)
(recent-keys)))) (recent-keys))))
(args (gptel-curl--get-args (plist-get info :prompt) token)) (args (gptel-curl--get-args (plist-get info :prompt) token))
(process (apply #'start-process "gptel-curl" (current-buffer) (process (apply #'start-process "gptel-curl"
"curl" args))) (generate-new-buffer "*gptel-curl*") "curl" args)))
(with-current-buffer (process-buffer process)
(set-process-query-on-exit-flag process nil) (set-process-query-on-exit-flag process nil)
(setf (alist-get process gptel-curl--process-alist) (setf (alist-get process gptel-curl--process-alist)
(nconc (list :token token (nconc (list :token token