fix: use read-event with ctrl flag, add resize handling
- Switched back to read-event be :timeout 0.01 for proper key-event dispatch with the ctrl/alt/shift flags - Fixed Ctrl+P/B/Q/L dispatch: check key-event-ctrl flag to construct :CTRL-<key> keyword symbol (read-event returns :P + ctrl=t, not :CTRL-P) - Added :size-queried state flag and post-handshake backend-size re-query - Removed hardcoded Connected v0.5.0 message from connect-daemon - Removed Connected v0.7.2 system message (version shown in status bar) - view-status now uses draw-rect for background (instead of dotimes loop) - Added startup message showing backend type and detected dimensions
This commit is contained in:
@@ -25,8 +25,7 @@ Returns a list of strings, one per line."
|
||||
(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))
|
||||
(cl-tty.backend:draw-rect fb 0 (- h 1) w 1 :bg bg)
|
||||
(cl-tty.backend:draw-text fb 1 (- h 1) left fg nil)
|
||||
(cl-tty.backend:draw-text fb (- w (length right) 2) (- h 1) right fg nil)))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user