bump passepartout: v0.9.0 Warm TUI Redesign fixes

lisp/channel-tui-view.lisp

@@ -16,9 +16,11 @@ 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  Rules:~a"
-                      (if (st :connected) "●" "○")
-                      (or (st :foveal-id) "passepartout") (or (st :rule-count) 0)))
+          (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)))
          (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))