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

refactor: Switch TUI/daemon communication from JSON to Lisp S-Expressions

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-17 13:36:54 -04:00
parent 47a2cf6478
commit 0debfe5a95
4 changed files with 30 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/tui-client.lisp
View File

@@ -32,15 +32,20 @@
(let ((line (read-line *stream* nil :eof)))
(if (eq line :eof)
(setf *is-running* nil)
(let ((json (ignore-errors (cl-json:decode-json-from-string line))))
(if json
(let* ((*read-eval* nil)
(sexp (ignore-errors (read-from-string line))))
(if (and sexp (listp sexp))
(cond
((string= (cdr (assoc :type json)) "status")
((eq (getf sexp :type) :status)
(setf *status-text* (format nil "[Scribe: ~a] [Gardener: ~a]"
(cdr (assoc :scribe json))
(cdr (assoc :gardener json)))))
((string= (cdr (assoc :type json)) "chat")
(enqueue-msg (cdr (assoc :text json))))
(getf sexp :scribe)
(getf sexp :gardener))))
((eq (getf sexp :type) :chat)
(enqueue-msg (getf sexp :text)))
((eq (getf sexp :type) :info)
(enqueue-msg (format nil "*System*: ~a" (getf sexp :text))))
((eq (getf sexp :type) :error)
(enqueue-msg (format nil "*Error*: ~a" (getf sexp :text))))
(t (enqueue-msg line)))
(enqueue-msg line))))))
(error () (setf *is-running* nil)))