diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org index 447fb65..ea4f545 100644 --- a/org/channel-tui-main.org +++ b/org/channel-tui-main.org @@ -918,6 +918,9 @@ Event handlers + daemon I/O + main loop. :stderr nil)) (tty-in (uiop:process-info-output cat-proc))) (add-msg :system (format nil "* cat pid=~a *" (uiop:process-info-pid cat-proc))) + ;; Guard against nil w/h from backend-size + (setq w (or (and (numberp w) (> w 0) w) 80) + h (or (and (numberp h) (> h 0) h) 24)) ;; Log backend info and terminal dimensions (cl-tty.backend:backend-clear be) (view-status be w h)