Add history variable to kagi-fastgpt-prompt
This commit is contained in:
parent
c93a8ac995
commit
69ca50537c
9
kagi.el
9
kagi.el
|
@ -455,13 +455,20 @@ user input."
|
||||||
(_ match)))
|
(_ match)))
|
||||||
prompt t t)))
|
prompt t t)))
|
||||||
|
|
||||||
|
(defvar kagi--fastgpt-prompt-history nil
|
||||||
|
"History for `kagi-fastgpt-prompt'.")
|
||||||
|
|
||||||
(defun kagi--fastgpt-construct-prompt ()
|
(defun kagi--fastgpt-construct-prompt ()
|
||||||
"Construct a prompt, either a predefined one or entered by the user.
|
"Construct a prompt, either a predefined one or entered by the user.
|
||||||
|
|
||||||
When the selected prompt contains %s, then the value is
|
When the selected prompt contains %s, then the value is
|
||||||
interactively obtained from the user (the region, buffer content
|
interactively obtained from the user (the region, buffer content
|
||||||
or text input)."
|
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-cdr (alist-get prompt-name kagi--fastgpt-prompts prompt-name nil #'string=))
|
||||||
(prompt-template (if (functionp prompt-cdr) (funcall prompt-cdr) prompt-cdr)))
|
(prompt-template (if (functionp prompt-cdr) (funcall prompt-cdr) prompt-cdr)))
|
||||||
(kagi--fastgpt-expand-prompt-placeholders prompt-template (lambda () (kagi--get-text-for-prompt)))))
|
(kagi--fastgpt-expand-prompt-placeholders prompt-template (lambda () (kagi--get-text-for-prompt)))))
|
||||||
|
|
Loading…
Reference in a new issue