gptel: Avoid logging url-retrieve messages

- Use `read-passwd' to read the API key.
This commit is contained in:
Karthik Chikmagalur 2023-03-05 18:43:49 -08:00
parent deeb606409
commit 86bf0c9f74

View file

@ -134,10 +134,12 @@ Return the response buffer."
;; :temperature 1.0
;; :top_p 1.0
:messages [,@prompts]))))
(pcase-let ((`(,_ . ,buffer)
(aio-await
(aio-url-retrieve "https://api.openai.com/v1/chat/completions"))))
buffer)))
(let ((inhibit-message t)
(message-log-max nil))
(pcase-let ((`(,_ . ,buffer)
(aio-await
(aio-url-retrieve "https://api.openai.com/v1/chat/completions"))))
buffer))))
;;;###autoload
(define-minor-mode gptel-mode
@ -160,11 +162,17 @@ Ask for API-KEY if `gptel-api-key' is unset."
(read-string "Session name: " (generate-new-buffer-name gptel-default-session))
gptel-default-session)
(or gptel-api-key
(read-string "OpenAI API key: "))))
(setq gptel-api-key
(read-passwd "OpenAI API key: ")))))
(unless api-key
(user-error "No API key available"))
(with-current-buffer (get-buffer-create name)
(unless (eq major-mode gptel-default-mode) (funcall gptel-default-mode))
(cond ;Set major mode
((eq major-mode gptel-default-mode))
((eq gptel-default-mode 'text-mode)
(text-mode)
(visual-line-mode 1))
(t (funcall gptel-default-mode)))
(unless gptel-mode (gptel-mode 1))
(if (bobp) (insert gptel-prompt-string))
(pop-to-buffer (current-buffer))