fix: remove hardcoded v0.5.0, show daemon version in status bar
- Removed connect-daemon's hardcoded "* Connected v0.5.0 *" message (fired before handshake arrived, was always stale) - Added :daemon-version slot to state plist, filled by handshake handler - view-status now shows version: "● passepartout v0.7.2 msgs:N Rules:N" - passepartout script: force cl-tty recompile (:force t) to pick up CSI positioning, ioctl sizing, and detection fixes
This commit is contained in:
@@ -16,11 +16,14 @@ Returns a list of strings, one per line."
|
||||
(defun view-status (fb w h)
|
||||
(let* ((bg (theme-color :status-bg))
|
||||
(fg (theme-color :status-fg))
|
||||
(left (format nil " ~a ~a msgs:~d Rules:~a"
|
||||
(if (st :connected) "●" "○")
|
||||
(or (st :foveal-id) "passepartout")
|
||||
(length (st :messages))
|
||||
(or (st :rule-count) 0)))
|
||||
(ver (st :daemon-version))
|
||||
(ver-str (if ver (format nil " v~a" ver) ""))
|
||||
(left (format nil " ~a ~a~a msgs:~d Rules:~a"
|
||||
(if (st :connected) "●" "○")
|
||||
(or (st :foveal-id) "passepartout")
|
||||
ver-str
|
||||
(length (st :messages))
|
||||
(or (st :rule-count) 0)))
|
||||
(right (format nil "$~,2f ~a" (or (st :session-cost) 0.0) (now))))
|
||||
(dotimes (col w)
|
||||
(cl-tty.backend:draw-text fb 0 (- h 1) (make-string w :initial-element #\Space) nil bg))
|
||||
|
||||
Reference in New Issue
Block a user