diff --git a/literate/tui-client.org b/literate/tui-client.org index 4fd7f5d..a4d0771 100644 --- a/literate/tui-client.org +++ b/literate/tui-client.org @@ -121,7 +121,9 @@ The OpenCortex TUI Client is a standalone Common Lisp application built on **Cro (let ((cmd (coerce *input-buffer* 'string))) (setf (fill-pointer *input-buffer*) 0) (when (> (length cmd) 0) + ;; Local Echo (enqueue-msg (concatenate 'string "> " cmd)) + ;; Send to Brain (let ((framed (opencortex:frame-message (format nil "~s" (list :TYPE :EVENT :PAYLOAD (list :SENSOR :chat-message :TEXT cmd)))))) (format *stream* "~a" framed) (finish-output *stream*))) diff --git a/src/tui-client.lisp b/src/tui-client.lisp index 335946a..7cb44d1 100644 --- a/src/tui-client.lisp +++ b/src/tui-client.lisp @@ -108,7 +108,9 @@ (let ((cmd (coerce *input-buffer* 'string))) (setf (fill-pointer *input-buffer*) 0) (when (> (length cmd) 0) + ;; Local Echo (enqueue-msg (concatenate 'string "> " cmd)) + ;; Send to Brain (let ((framed (opencortex:frame-message (format nil "~s" (list :TYPE :EVENT :PAYLOAD (list :SENSOR :chat-message :TEXT cmd)))))) (format *stream* "~a" framed) (finish-output *stream*)))