diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org index 99710a5..8baec68 100644 --- a/org/channel-tui-main.org +++ b/org/channel-tui-main.org @@ -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))