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

gptel-transient: linting for MELPA

Browse source
This commit is contained in:
Karthik Chikmagalur 2023-03-12 14:51:07 -07:00
parent cd6d90b24d
commit 3d0df72bd3
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gptel-transient.el
View file

@ -160,9 +160,9 @@ will get progressively longer!"
:class 'transient-lisp-variable :class 'transient-lisp-variable
:variable 'gptel--temperature :variable 'gptel--temperature
:key "t" :key "t"
:reader '(lambda (_ initial history) :reader (lambda (_ initial history)
(read-from-minibuffer "Set temperature (0.0-2.0, leave empty for default): " (read-from-minibuffer "Set temperature (0.0-2.0, leave empty for default): "
(number-to-string gptel--temperature)))) (number-to-string gptel--temperature))))
(transient-define-suffix gptel--suffix-send-existing () (transient-define-suffix gptel--suffix-send-existing ()
"Send query in existing chat session." "Send query in existing chat session."
@ -215,9 +215,9 @@ will get progressively longer!"
"# Example: You are a poet. Reply only in verse.\n\n") "# Example: You are a poet. Reply only in verse.\n\n")
(set-marker msg-start (point)) (set-marker msg-start (point))
(insert (buffer-local-value 'gptel--system-message orig-buf)) (insert (buffer-local-value 'gptel--system-message orig-buf))
(goto-char (line-beginning-position)) (beginning-of-line)
(push-mark) (push-mark)
(goto-char (line-end-position)) (end-of-line)
(activate-mark) (activate-mark)
(display-buffer (current-buffer) (display-buffer (current-buffer)
`((display-buffer-below-selected) `((display-buffer-below-selected)