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

gptel: Tweak header line format

Browse source 
Add a status indicator to the header line.
This commit is contained in:
Karthik Chikmagalur 2023-03-06 00:58:32 -08:00
parent a5fe30312f
commit 33d8434f3e
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gptel.el
View file

@ -81,6 +81,8 @@ key (more secure)."
(point-max)))
(push (set-marker (make-marker) (point-max))
gptel--prompt-markers))
(setf (nth 1 header-line-format)
(propertize " Waiting..." 'face 'warning))
(let* ((gptel-buffer (current-buffer))
(full-prompt
(save-excursion
@ -113,7 +115,9 @@ key (more secure)."
(insert content-str)
(push (set-marker (make-marker) (point))
gptel--prompt-markers)
(insert "\n\n" gptel-prompt-string))))
(insert "\n\n" gptel-prompt-string)
(setf (nth 1 header-line-format)
(propertize " Ready" 'face 'success)))))
(kill-buffer response-buffer))))
(aio-defun gptel-get-response (prompts)
@ -178,9 +182,11 @@ Ask for API-KEY if `gptel-api-key' is unset."
(pop-to-buffer (current-buffer))
(goto-char (point-max))
(skip-chars-backward "\t\r\n")
(or header-line-format
(setq header-line-format
(concat (propertize " " 'display '(space :align-to 0))
(format "ChatGPT session (%s)" (buffer-name))))
(list (concat (propertize " " 'display '(space :align-to 0))
(format "%s" (buffer-name)))
(propertize " Ready" 'face 'success))))
(message "Send your query with %s!"
(substitute-command-keys "\\[gptel-send]"))))