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

v0.8.0: force initial redraw before entering input loop

Browse Source 
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:
Amr Gharbeia
2026-05-18 14:26:56 -04:00
parent 53ca5af17e
commit 2c6e38f32d
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
org/channel-tui-main.org
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))) (loop while (and (st :running) (not (st :connected)))
do (connect-daemon) do (connect-daemon)
(unless (st :connected) (sleep 5)))) (unless (st :connected) (sleep 5))))
:name "daemon-auto-connect")) :name "daemon-auto-connect"))
(loop while (st :running) do ;; Force initial render before entering input loop
(redraw be w h)
(loop while (st :running) do
(dolist (ev (drain-queue)) (dolist (ev (drain-queue))
(cond (cond
((eq (getf ev :type) :daemon) ((eq (getf ev :type) :daemon)