amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

bump passepartout: v0.9.0 Warm TUI Redesign fixes

Browse Source
This commit is contained in:
Amr Gharbeia
2026-05-13 19:49:45 -04:00
parent b17c501231
commit 35fbf1d418
4 changed files with 60 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
org/channel-tui-main.org
View File

@@ -976,17 +976,31 @@ Event handlers + daemon I/O + main loop.
((eql btn :scroll-down)
(setf (st :scroll-offset) (max 0 (- (st :scroll-offset) 3)))
(setf (st :dirty) (list nil t nil))))))
((cl-tty.input:dispatch-key-event data)
nil)
(t (on-key ch)))))))
(when (or (first (st :dirty)) (second (st :dirty)) (third (st :dirty)))
(cl-tty.backend:backend-clear be)
(redraw curr-fb w h)
(cl-tty.rendering:flush-framebuffer prev-fb curr-fb be)
;; Draw separator line above input
(cl-tty.backend:draw-text be 0 (- h 4) (make-string w :initial-element #\─)
(theme-color :separator) nil)
(rotatef prev-fb curr-fb))
((member ch '(:enter 13 10 #\Newline #\Return 343))
(on-key :enter))
((cl-tty.input:dispatch-key-event data)
nil)
(t (on-key ch)))))))
(when (or (first (st :dirty)) (second (st :dirty)) (third (st :dirty)))
(cl-tty.backend:backend-clear be)
(redraw curr-fb w h)
;; Draw all rows from framebuffer directly
(dotimes (row h)
(let ((line (make-string w :initial-element #\Space))
(fg (theme-color :agent-fg)) (bg nil))
(dotimes (col w)
(let* ((cell (aref curr-fb row col))
(ch (cl-tty.rendering:cell-char cell))
(cf (cl-tty.rendering:cell-fg cell))
(cb (cl-tty.rendering:cell-bg cell)))
(when ch (setf (char line col) ch))
(when cf (setf fg cf))
(when cb (setf bg cb))))
(cl-tty.backend:draw-text be 0 row line fg bg)))
;; Draw separator line above input
(cl-tty.backend:draw-text be 0 (- h 4) (make-string w :initial-element #\─)
(theme-color :separator) nil)
(rotatef prev-fb curr-fb))
(let ((ds (st :dialog-stack)))
(when ds
(let* ((dlg (car ds))

8
org/channel-tui-view.org
View File

@@ -61,9 +61,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))