fix: restore backend info message, remove Connected chat message

Backend dimensions needed to be readable. Connected v0.7.2
was accidentally restored by git checkout — removed again.
This commit is contained in:
2026-05-14 14:18:12 -04:00
parent d71ccb95c6
commit 14cdb6c7b4

View File

@@ -706,8 +706,7 @@ Event handlers + daemon I/O + main loop.
(text (setf (st :busy) nil)
(add-msg :agent text :gate-trace gate-trace))
((eq action :handshake)
(setf (st :daemon-version) (getf payload :version))
(add-msg :system (format nil "Connected v~a" (getf payload :version))))
(setf (st :daemon-version) (getf payload :version)))
(t (add-msg :agent (format nil "~a" msg))))))
#+END_SRC
@@ -918,6 +917,10 @@ 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)))
;; 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
(setq w (or (and (numberp w) (> w 0) w) 80)
h (or (and (numberp h) (> h 0) h) 24))