fix: set input-blocking nil on input window so agent responses render
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 3s

Croatoan child windows don't inherit the screen's :input-blocking nil.
Without explicit (setf (input-blocking iw) nil), get-char blocks the
main loop indefinitely, preventing redraw from running. New agent
messages queued by the reader-loop thread were never rendered until
the user pressed a key.

Now the loop runs at 30fps and responses appear immediately.
This commit is contained in:
2026-05-06 11:14:42 -04:00
parent 39b6bef6e0
commit 0b16c4829f
2 changed files with 8 additions and 6 deletions

View File

@@ -239,6 +239,7 @@
(parse-integer (uiop:getenv "TUI_SWANK_PORT"))) (parse-integer (uiop:getenv "TUI_SWANK_PORT")))
4006))) 4006)))
(setf (function-keys-enabled-p iw) t (setf (function-keys-enabled-p iw) t
(input-blocking iw) nil
(st :dirty) (list t t t)) (st :dirty) (list t t t))
(connect-daemon) (connect-daemon)
(when (> swank-port 0) (when (> swank-port 0)

View File

@@ -276,6 +276,7 @@ Event handlers + daemon I/O + main loop.
(parse-integer (uiop:getenv "TUI_SWANK_PORT"))) (parse-integer (uiop:getenv "TUI_SWANK_PORT")))
4006))) 4006)))
(setf (function-keys-enabled-p iw) t (setf (function-keys-enabled-p iw) t
(input-blocking iw) nil
(st :dirty) (list t t t)) (st :dirty) (list t t t))
(connect-daemon) (connect-daemon)
(when (> swank-port 0) (when (> swank-port 0)