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

fix(protocol): Synchronize uppercase keywords for TUI and CLI Gateway
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 15:27:33 -04:00
parent 22726047a1
commit 455a1a62b2
4 changed files with 54 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
literate/tui-client.org
View File

@@ -49,11 +49,11 @@ The OpenCortex TUI Client is a standalone Common Lisp application built on **Cro
(let ((payload (getf msg :payload)))
(when (eq (getf payload :action) :handshake)
(setf *status-text* "Ready"))))
((and (listp msg) (eq (getf msg :type) :status))
((and (listp msg) (eq (getf msg :type) :STATUS))
(setf *status-text* (format nil "[Scribe: ~a] [Gardener: ~a]"
(getf msg :scribe)
(getf msg :gardener))))
((and (listp msg) (eq (getf msg :type) :chat))
((and (listp msg) (eq (getf msg :type) :CHAT))
(enqueue-msg (getf msg :text)))
(t (enqueue-msg (format nil "~s" msg))))))
(error (c) (setf *status-text* (format nil "Net Error: ~a" c)) (setf *is-running* nil)))