diff --git a/literate/tui-client.org b/literate/tui-client.org index 508ee62..4fd7f5d 100644 --- a/literate/tui-client.org +++ b/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 @@ -120,9 +120,8 @@ The OpenCortex TUI Client is a standalone Common Lisp application built on **Cro ((or (eq ch #\Newline) (eq ch #\Return)) (let ((cmd (coerce *input-buffer* 'string))) (setf (fill-pointer *input-buffer*) 0) - (when (> (length cmd) 0) - (enqueue-msg (concatenate 'string "> " cmd)) ; Local Echo - (let ((framed (opencortex:frame-message (format nil "~s" (list :TYPE :EVENT :PAYLOAD (list :SENSOR :chat-message :TEXT cmd)))))) + (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*))) diff --git a/src/tui-client.lisp b/src/tui-client.lisp index 1db3f98..335946a 100644 --- a/src/tui-client.lisp +++ b/src/tui-client.lisp @@ -107,9 +107,8 @@ ((or (eq ch #\Newline) (eq ch #\Return)) (let ((cmd (coerce *input-buffer* 'string))) (setf (fill-pointer *input-buffer*) 0) - (when (> (length cmd) 0) - (enqueue-msg (concatenate 'string "> " cmd)) ; Local Echo - (let ((framed (opencortex:frame-message (format nil "~s" (list :TYPE :EVENT :PAYLOAD (list :SENSOR :chat-message :TEXT cmd)))))) + (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*)))