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

gptel-transient: Improve system-message edit buffer

Browse source 
* gptel-transient.el (gptel--suffix-system-message):  Use a header
line for better messaging when editing the system prompt.
This commit is contained in:
Karthik Chikmagalur 2023-12-29 15:27:47 -08:00
parent e5357383ce
commit 48047c0600
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gptel-transient.el
View file

@ -535,19 +535,20 @@ This uses the prompts in the variable
(let ((inhibit-read-only t))
(erase-buffer)
(text-mode)
(setq header-line-format
(concat
"Edit your system message below and press "
(propertize "C-c C-c" 'face 'help-key-binding)
" when ready, or "
(propertize "C-c C-k" 'face 'help-key-binding)
" to abort."))
(insert
"# Insert your system message below and press "
(propertize "C-c C-c" 'face 'help-key-binding)
" when ready, or "
(propertize "C-c C-k" 'face 'help-key-binding)
" to abort.\n"
"# Example: You are a helpful assistant. Answer as concisely as possible.\n"
"# Example: Reply only with shell commands and no prose.\n"
"# Example: You are a poet. Reply only in verse.\n")
"# Example: You are a poet. Reply only in verse.\n\n")
(add-text-properties
(point-min) (point)
(point-min) (1- (point))
(list 'read-only t 'face 'font-lock-comment-face))
(insert "\n")
;; TODO: make-separator-line requires Emacs 28.1+.
;; (insert (propertize (make-separator-line) 'rear-nonsticky t))
(set-marker msg-start (point))