fix(tui): Correct parenthesis and add local echo

literate/tui-client.org

@@ -7,7 +7,7 @@
 #+FILETAGS: :tui:ux:client:
 
 * Overview
-The OpenCortex TUI Client is a standalone Common Lisp application built on **Croatoan** (a high-level CLOS wrapper for ncurses). It provides a real-time, multi-window interface for interacting with the OpenCortex daemon.
+The OpenCortex TUI Client is a standalone Common Lisp application built on **Croatoan**. It provides a real-time, multi-window interface for interacting with the OpenCortex daemon.
 
 * Implementation
 #+begin_src lisp :tangle ../src/tui-client.lisp
@@ -121,6 +121,7 @@ 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)
+                       (enqueue-msg (concatenate 'string "> " cmd))
                        (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*)))

src/tui-client.lisp

@@ -108,6 +108,7 @@
                    (let ((cmd (coerce *input-buffer* 'string)))
                      (setf (fill-pointer *input-buffer*) 0)
                      (when (> (length cmd) 0)
+                       (enqueue-msg (concatenate 'string "> " cmd))
                        (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*)))