lkn
/
ollie-el
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

display usage in status bar 

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
Levi Neely 2026-04-11 13:54:00 +02:00
parent 952b6d2e51
commit e6e1d64ea2
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ollie.el
View File

@ -245,6 +245,9 @@ The server dispatches it asynchronously."
(defvar-local ollie--mode-line-state "unknown"
"Cached session state string for the mode line.")
(defvar-local ollie--mode-line-usage ""
"Cached usage string for the mode line.")
(defun ollie--refresh ()
"Refresh the chat buffer if the chat file has grown on disk.
Also updates the cached mode-line state."
@ -255,6 +258,12 @@ Also updates the cached mode-line state."
(when buf
(with-current-buffer buf
(setq ollie--mode-line-state (ollie--state))
(setq ollie--mode-line-usage
(or (condition-case nil
(when-let (s (ollie--fread (ollie--session-file "usage")))
(string-trim s))
(error nil))
""))
;; The chat log is append-only, so size increasing means new content.
(when (and size (> size ollie--chat-size))
(setq ollie--chat-size size)
@ -389,6 +398,9 @@ Key bindings:
(if (string= ollie--mode-line-state "idle")
(propertize "idle" 'face 'success)
(propertize ollie--mode-line-state 'face 'warning)))
(:eval
(when (not (string-empty-p ollie--mode-line-usage))
(concat " " (replace-regexp-in-string "%" "%%" ollie--mode-line-usage))))
" "
mode-line-end-spaces)))