bram/kagi.el
1
0
Fork 0
Code Issues Activity

Add history variable to kagi-fastgpt-prompt

Browse source
This commit is contained in:
Bram Schoenmakers 2024-04-12 21:25:37 +02:00
parent c93a8ac995
commit 69ca50537c
Signed by: bram
GPG key ID: 0CCD19DFDC63258F
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
kagi.el
View file

@ -455,13 +455,20 @@ user input."
(_ match)))
prompt t t)))
(defvar kagi--fastgpt-prompt-history nil
"History for `kagi-fastgpt-prompt'.")
(defun kagi--fastgpt-construct-prompt ()
"Construct a prompt, either a predefined one or entered by the user.
When the selected prompt contains %s, then the value is
interactively obtained from the user (the region, buffer content
or text input)."
(let* ((prompt-name (completing-read "fastgpt> " kagi--fastgpt-prompts))
(let* ((prompt-name (completing-read
"fastgpt> "
kagi--fastgpt-prompts
nil nil nil
'kagi--fastgpt-prompt-history))
(prompt-cdr (alist-get prompt-name kagi--fastgpt-prompts prompt-name nil #'string=))
(prompt-template (if (functionp prompt-cdr) (funcall prompt-cdr) prompt-cdr)))
(kagi--fastgpt-expand-prompt-placeholders prompt-template (lambda () (kagi--get-text-for-prompt)))))