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:
@@ -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))
|
||||
|
||||
Reference in New Issue
Block a user