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

fix: restore backend info message, remove Connected chat message

Browse Source 
Backend dimensions needed to be readable. Connected v0.7.2
was accidentally restored by git checkout — removed again.
This commit is contained in:
Amr Gharbeia
2026-05-14 14:18:12 -04:00
parent d71ccb95c6
commit 14cdb6c7b4
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -706,8 +706,7 @@ Event handlers + daemon I/O + main loop.
(text (setf (st :busy) nil) (text (setf (st :busy) nil)
(add-msg :agent text :gate-trace gate-trace)) (add-msg :agent text :gate-trace gate-trace))
((eq action :handshake) ((eq action :handshake)
(setf (st :daemon-version) (getf payload :version)) (setf (st :daemon-version) (getf payload :version)))
(add-msg :system (format nil "Connected v~a" (getf payload :version))))
(t (add-msg :agent (format nil "~a" msg)))))) (t (add-msg :agent (format nil "~a" msg))))))
#+END_SRC #+END_SRC
@@ -918,6 +917,10 @@ 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)))
;; Log backend info and terminal dimensions
(let ((backend-type (if (typep be 'cl-tty.backend:modern-backend)
"modern" "simple")))
(add-msg :system (format nil "* ~a backend ~dx~d *" backend-type w h)))
;; Guard against nil w/h from backend-size ;; Guard against nil w/h from backend-size
(setq w (or (and (numberp w) (> w 0) w) 80) (setq w (or (and (numberp w) (> w 0) w) 80)
h (or (and (numberp h) (> h 0) h) 24)) h (or (and (numberp h) (> h 0) h) 24))