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

gptel: Handle the prompt prefix string automatically

Browse source 
* gptel.el (gptel-prompt-prefix-alist, gptel--playback, gptel,
gptel--insert-response, gptel-prompt-string): The prompt prefix
string is chosen automatically from the new variable
`gptel-prompt-prefix-alist', which maps major modes to the prefix
string to insert.
This commit is contained in:
Karthik Chikmagalur 2023-03-24 16:43:51 -07:00
parent cd22ea836c
commit 5ebaf361f1
1 changed files with 18 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
gptel.el
View file

@ -108,7 +108,18 @@ return the transformed string."
(defvar gptel-default-mode (if (featurep 'markdown-mode)
'markdown-mode
'text-mode))
(defvar gptel-prompt-string "### ")
;; TODO: Handle `prog-mode' using the `comment-start' variable
(defcustom gptel-prompt-prefix-alist
'((markdown-mode . "### ")
(org-mode . "*** ")
(text-mode . "### "))
"String inserted after the response from ChatGPT.
This is an alist mapping major modes to the prefix strings. This
is only inserted in dedicated gptel buffers."
:group 'gptel
:type '(alist :key-type symbol :value-type string))
;; Model and interaction parameters
(defvar-local gptel--system-message
@ -153,6 +164,9 @@ By default, \"openai.com\" is used as HOST and \"apikey\" as USER."
"Ensure VAL is a number."
(if (stringp val) (string-to-number val) val))
(defun gptel-prompt-string ()
(or (alist-get major-mode gptel-prompt-prefix-alist) ""))
(defvar-local gptel--old-header-line nil)
(define-minor-mode gptel-mode
"Minor mode for interacting with ChatGPT."
@ -222,7 +236,7 @@ See `gptel--url-get-response' for details."
(insert content-str)
(pulse-momentary-highlight-region p (point)))
(when gptel-mode
(insert "\n\n" gptel-prompt-string)
(insert "\n\n" (gptel-prompt-string))
(gptel--update-header-line " Ready" 'success))))
(goto-char (- (point) 2)))
(gptel--update-header-line
@ -398,7 +412,7 @@ buffer created or switched to."
(visual-line-mode 1))
(t (funcall gptel-default-mode)))
(unless gptel-mode (gptel-mode 1))
(if (bobp) (insert (or initial gptel-prompt-string)))
(if (bobp) (insert (or initial (gptel-prompt-string))))
(pop-to-buffer (current-buffer))
(goto-char (point-max))
(skip-chars-backward "\t\r\n")
@ -471,7 +485,7 @@ Begin at START-PT."
(min content-length (+ idx 16))))
(setq idx (+ idx 16)))
(when gptel-mode
(insert "\n\n" gptel-prompt-string)
(insert "\n\n" (gptel-prompt-string))
(gptel--update-header-line " Ready" 'success))
(when start-pt (goto-char (marker-position start-pt)))
(accept-change-group (symbol-value handle))