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

gptel: Improve header-line-format

Browse source 
* gptel.el (gptel-mode): Show the model and context in the header
line.
This commit is contained in:
Karthik Chikmagalur 2023-04-03 14:06:43 -07:00
parent 1f03655e2d
commit d77c8f37c5
1 changed files with 23 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gptel.el
View file

@ -243,7 +243,29 @@ By default, \"openai.com\" is used as HOST and \"apikey\" as USER."
header-line-format header-line-format
(list (concat (propertize " " 'display '(space :align-to 0)) (list (concat (propertize " " 'display '(space :align-to 0))
(format "%s" (buffer-name))) (format "%s" (buffer-name)))
(propertize " Ready" 'face 'success))) (propertize " Ready" 'face 'success)
'(:eval
(let* ((l1 (length gptel-model))
(num-exchanges
(if gptel--num-messages-to-send
(format "[Send: %s exchanges]" gptel--num-messages-to-send)
"[Send: buffer]"))
(l2 (length num-exchanges)))
(concat
(propertize
" " 'display `(space :align-to ,(max 1 (- (window-width) (+ 2 l1 l2)))))
(propertize
(button-buttonize num-exchanges
(lambda (&rest _) (gptel-send-menu)))
'mouse-face 'highlight
'help-echo
"Number of past exchanges to include with each request")
" "
(propertize
(button-buttonize (concat "[" gptel-model "]")
(lambda (&rest _) (gptel-send-menu)))
'mouse-face 'highlight
'help-echo "OpenAI GPT model in use"))))))
(setq header-line-format gptel--old-header-line))) (setq header-line-format gptel--old-header-line)))
;; TODO: Handle read-only buffers. Should we spawn a new buffer automatically? ;; TODO: Handle read-only buffers. Should we spawn a new buffer automatically?