fix: remove hardcoded v0.5.0, show daemon version in status bar
- Removed connect-daemon's hardcoded "* Connected v0.5.0 *" message (fired before handshake arrived, was always stale) - Added :daemon-version slot to state plist, filled by handshake handler - view-status now shows version: "● passepartout v0.7.2 msgs:N Rules:N" - passepartout script: force cl-tty recompile (:force t) to pick up CSI positioning, ioctl sizing, and detection fixes
This commit is contained in:
@@ -706,6 +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))))
|
||||
(t (add-msg :agent (format nil "~a" msg))))))
|
||||
#+END_SRC
|
||||
@@ -775,10 +776,9 @@ Event handlers + daemon I/O + main loop.
|
||||
(let ((s (usocket:socket-connect host port :timeout 5)))
|
||||
(setf (st :stream) (usocket:socket-stream s)
|
||||
(st :connected) t)
|
||||
(bt:make-thread (lambda () (reader-loop (st :stream)))
|
||||
:name "tui-reader")
|
||||
(add-msg :system (format nil "* Connected v~a *" "0.5.0"))
|
||||
(return-from connect-daemon t))
|
||||
(bt:make-thread (lambda () (reader-loop (st :stream)))
|
||||
:name "tui-reader")
|
||||
(return-from connect-daemon t))
|
||||
(usocket:connection-refused-error (c)
|
||||
(when (= attempt 3)
|
||||
(add-msg :system (format nil "* No daemon on port ~a after ~a attempts *"
|
||||
|
||||
Reference in New Issue
Block a user