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

fix: move nil guard before backend info message

Browse Source 
The backend info message showed NIL for height because the nil
guard ran after it. Swap order so the message shows guarded values.
This commit is contained in:
Amr Gharbeia
2026-05-14 14:20:28 -04:00
parent 14cdb6c7b4
commit e0003a5f3c
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
org/channel-tui-main.org
View File

@@ -917,6 +917,9 @@ Event handlers + daemon I/O + main loop.
:stderr nil)) :stderr nil))
(tty-in (uiop:process-info-output cat-proc))) (tty-in (uiop:process-info-output cat-proc)))
(add-msg :system (format nil "* cat pid=~a *" (uiop:process-info-pid 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 ;; Log backend info and terminal dimensions
(let ((backend-type (if (typep be 'cl-tty.backend:modern-backend) (let ((backend-type (if (typep be 'cl-tty.backend:modern-backend)
"modern" "simple"))) "modern" "simple")))