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

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