branch: elpa/gptel
commit 9f3acc3217f7be30fb2d150746c5340e654155f6
Author: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
gptel: Check gptel-org-convert-response in query buffer
* gptel-curl.el (gptel-curl-get-response): Check if
`gptel-org-convert-response' is enabled in the query buffer, not
the Curl process buffer.
* gptel.el (gptel--url-get-response): Ditto.
---
gptel-curl.el | 8 ++++----
gptel.el | 6 +++---
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/gptel-curl.el b/gptel-curl.el
index 5021182748..77eeca3842 100644
--- a/gptel-curl.el
+++ b/gptel-curl.el
@@ -129,14 +129,14 @@ the response is inserted into the current buffer after
point."
"request Curl command" 'no-json))
(with-current-buffer (process-buffer process)
(set-process-query-on-exit-flag process nil)
- (if (plist-get info :token) ;not the first run, set only the token
+ (if (plist-get info :token) ;not the first run, set only the token
(plist-put info :token token)
(setf (gptel-fsm-info fsm) ;fist run, set all process parameters
(nconc (list :token token
:transformer
- (when (and gptel-org-convert-response
- (with-current-buffer (plist-get info
:buffer)
- (derived-mode-p 'org-mode)))
+ (when (with-current-buffer (plist-get info :buffer)
+ (and (derived-mode-p 'org-mode)
+ gptel-org-convert-response))
(gptel--stream-convert-markdown->org
(plist-get info :position))))
(unless (plist-get info :callback)
diff --git a/gptel.el b/gptel.el
index a935fd896d..c9c8ea086f 100644
--- a/gptel.el
+++ b/gptel.el
@@ -2529,9 +2529,9 @@ the response is inserted into the current buffer after
point."
(encode-coding-string
(gptel--json-encode (plist-get info :data))
'utf-8)))
- (when (and gptel-org-convert-response
- (with-current-buffer (plist-get info :buffer)
- (derived-mode-p 'org-mode)))
+ (when (with-current-buffer (plist-get info :buffer)
+ (and (derived-mode-p 'org-mode)
+ gptel-org-convert-response))
(plist-put info :transformer #'gptel--convert-markdown->org))
(plist-put info :callback callback)
(when gptel-log-level ;logging
