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

fix(tui): Definitive clean-room rewrite of TUI client (verified syntax)
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 18:06:33 -04:00
parent 8b7d4c1b9c
commit bafc473395
2 changed files with 26 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
literate/tui-client.org
View File

@@ -53,20 +53,19 @@ The OpenCortex TUI Client is a standalone Common Lisp application built on **Cro
(when (and *stream* (open-stream-p *stream*)) (when (and *stream* (open-stream-p *stream*))
(let ((raw-msg (opencortex:read-framed-message *stream*))) (let ((raw-msg (opencortex:read-framed-message *stream*)))
(unless (member raw-msg '(:eof :error)) (unless (member raw-msg '(:eof :error))
(let ((msg (clean-keywords raw-msg))) (let* ((msg (clean-keywords raw-msg))
(let* ((msg (clean-keywords raw-msg)) (type (or (getf msg :TYPE) (getf msg :type))))
(type (or (getf msg :TYPE) (getf msg :type)))) (cond ((eq type :EVENT)
(cond ((eq type :EVENT) (let ((payload (or (getf msg :PAYLOAD) (getf msg :payload))))
(let ((payload (or (getf msg :PAYLOAD) (getf msg :payload)))) (when (eq (or (getf payload :ACTION) (getf payload :action)) :handshake)
(when (eq (or (getf payload :ACTION) (getf payload :action)) :handshake) (setf *status-text* "Ready"))))
(setf *status-text* "Ready")))) ((eq type :STATUS)
((eq type :STATUS) (setf *status-text* (format nil "[Scribe: ~a] [Gardener: ~a]"
(setf *status-text* (format nil "[Scribe: ~a] [Gardener: ~a]" (or (getf msg :SCRIBE) (getf msg :scribe))
(or (getf msg :SCRIBE) (getf msg :scribe)) (or (getf msg :GARDENER) (getf msg :gardener)))))
(or (getf msg :GARDENER) (getf msg :gardener))))) ((eq type :CHAT)
((eq type :CHAT) (enqueue-msg (or (getf msg :TEXT) (getf msg :text))))
(enqueue-msg (or (getf msg :TEXT) (getf msg :text)))) (t (enqueue-msg (format nil "~s" msg))))))
(t (enqueue-msg (format nil "~s" msg))))))))
(when (eq raw-msg :eof) (setf *is-running* nil)) (when (eq raw-msg :eof) (setf *is-running* nil))
(when (eq raw-msg :error) (setf *status-text* "Protocol Error")))) (when (eq raw-msg :error) (setf *status-text* "Protocol Error"))))
(error (c) (setf *status-text* (format nil "Net Error: ~a" c)) (setf *is-running* nil))) (error (c) (setf *status-text* (format nil "Net Error: ~a" c)) (setf *is-running* nil)))

27
src/tui-client.lisp
View File

@@ -40,20 +40,19 @@
(when (and *stream* (open-stream-p *stream*)) (when (and *stream* (open-stream-p *stream*))
(let ((raw-msg (opencortex:read-framed-message *stream*))) (let ((raw-msg (opencortex:read-framed-message *stream*)))
(unless (member raw-msg '(:eof :error)) (unless (member raw-msg '(:eof :error))
(let ((msg (clean-keywords raw-msg))) (let* ((msg (clean-keywords raw-msg))
(let* ((msg (clean-keywords raw-msg)) (type (or (getf msg :TYPE) (getf msg :type))))
(type (or (getf msg :TYPE) (getf msg :type)))) (cond ((eq type :EVENT)
(cond ((eq type :EVENT) (let ((payload (or (getf msg :PAYLOAD) (getf msg :payload))))
(let ((payload (or (getf msg :PAYLOAD) (getf msg :payload)))) (when (eq (or (getf payload :ACTION) (getf payload :action)) :handshake)
(when (eq (or (getf payload :ACTION) (getf payload :action)) :handshake) (setf *status-text* "Ready"))))
(setf *status-text* "Ready")))) ((eq type :STATUS)
((eq type :STATUS) (setf *status-text* (format nil "[Scribe: ~a] [Gardener: ~a]"
(setf *status-text* (format nil "[Scribe: ~a] [Gardener: ~a]" (or (getf msg :SCRIBE) (getf msg :scribe))
(or (getf msg :SCRIBE) (getf msg :scribe)) (or (getf msg :GARDENER) (getf msg :gardener)))))
(or (getf msg :GARDENER) (getf msg :gardener))))) ((eq type :CHAT)
((eq type :CHAT) (enqueue-msg (or (getf msg :TEXT) (getf msg :text))))
(enqueue-msg (or (getf msg :TEXT) (getf msg :text)))) (t (enqueue-msg (format nil "~s" msg))))))
(t (enqueue-msg (format nil "~s" msg))))))))
(when (eq raw-msg :eof) (setf *is-running* nil)) (when (eq raw-msg :eof) (setf *is-running* nil))
(when (eq raw-msg :error) (setf *status-text* "Protocol Error")))) (when (eq raw-msg :error) (setf *status-text* "Protocol Error"))))
(error (c) (setf *status-text* (format nil "Net Error: ~a" c)) (setf *is-running* nil))) (error (c) (setf *status-text* (format nil "Net Error: ~a" c)) (setf *is-running* nil)))