v0.8.0: force initial redraw before entering input loop

Add explicit (redraw be w h) call before the main loop so the TUI
renders immediately on startup, without waiting for the first
100ms input poll cycle to complete.
This commit is contained in:
2026-05-18 14:26:56 -04:00
parent 53ca5af17e
commit 2c6e38f32d

View File

@@ -924,6 +924,8 @@ Returns T on success, nil on failure. Does NOT wait or retry."
do (connect-daemon) do (connect-daemon)
(unless (st :connected) (sleep 5)))) (unless (st :connected) (sleep 5))))
:name "daemon-auto-connect")) :name "daemon-auto-connect"))
;; Force initial render before entering input loop
(redraw be w h)
(loop while (st :running) do (loop while (st :running) do
(dolist (ev (drain-queue)) (dolist (ev (drain-queue))
(cond (cond