[nongnu] elpa/gptel b212c24c4a 018/273: gptel: tweak prompt, rename url functions

[ELPA Syncer]

branch: elpa/gptel
commit b212c24c4a85fb10db7f5c158cc360a04a8e1129
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    gptel: tweak prompt, rename url functions
    
    gptel.el (gptel--system-message-alist, gptel--url-get-response,
    gptel--url-parse-response): Tweak default programming prompt.  Rename
    `gptel--get-response' to the more specific `gptel--url-parse-response'.
    Likewise `gptel--parse-response' -> `gptel--url-parse-response'.
---
 gptel.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/gptel.el b/gptel.el
index 75c9cb2358..ed1f5d4300 100644
--- a/gptel.el
+++ b/gptel.el
@@ -96,7 +96,7 @@ When set to nil, it is inserted all at once.
   "You are a large language model living in Emacs and a helpful assistant. 
Respond concisely.")
 (defvar gptel--system-message-alist
   `((default . ,gptel--system-message)
-    (programming . "You are a large language model and a careful programmer. 
Respond only with code unless explicitly asked.")
+    (programming . "You are a large language model and a careful programmer. 
Provide code and only code as output without any additional text, prompt or 
note.")
     (writing . "You are a large language model and a writing assistant. 
Respond concisely.")
     (chat . "You are a large language model and a conversation partner. 
Respond concisely."))
   "Prompt templates (directives).")
@@ -117,13 +117,14 @@ When set to nil, it is inserted all at once.
   (message "Querying ChatGPT...")
   (and header-line-format
     (setf (nth 1 header-line-format)
-          (propertize " Waiting..." 'face 'warning)))
+          (propertize " Waiting..." 'face 'warning))
+    (force-mode-line-update))
   (let* ((gptel-buffer (current-buffer))
          (full-prompt (gptel--create-prompt))
          (response (aio-await
                     (funcall
                      (if gptel-use-curl
-                         #'gptel-curl-get-response #'gptel--get-response)
+                         #'gptel-curl-get-response #'gptel--url-get-response)
                      full-prompt)))
          (content-str (plist-get response :content))
          (status-str  (plist-get response :status)))
@@ -205,6 +206,7 @@ instead."
     prompts-plist))
 
 (aio-defun gptel--get-response (prompts)
+(aio-defun gptel--url-get-response (prompts)
   "Fetch response for PROMPTS from ChatGPT.
 
 Return the message received."
@@ -224,10 +226,10 @@ Return the message received."
                  (aio-await
                   (aio-url-retrieve 
"https://api.openai.com/v1/chat/completions";))))
       (prog1
-          (gptel--parse-response response-buffer)
+          (gptel--url-parse-response response-buffer)
         (kill-buffer response-buffer)))))
 
-(defun gptel--parse-response (response-buffer)
+(defun gptel--url-parse-response (response-buffer)
   "Parse response in RESPONSE-BUFFER."
   (when (buffer-live-p response-buffer)
     (with-current-buffer response-buffer