TUI: colored rendering + LLM routing fix + /eval REPL

- Colored chat: green user, white agent, yellow system, cyan input
- Clean handshake display (Connected v0.2.0)
- LLM routing fix: action-dispatch routes to :tui when reply-stream present
- /eval command works with proper *package* binding
- Swank REPL on port 4006 (configurable)
- Backspace support with Croatoan integer key codes
- Confirmed end-to-end: type message → LLM responds → displayed in TUI
- Chat messages truncated with :n to prevent overlap
This commit is contained in:
2026-05-04 16:42:38 -04:00
parent 9d7942dc1c
commit 3c1ed77c85
4 changed files with 70 additions and 32 deletions

View File

@@ -39,12 +39,18 @@
(source (proto-get meta :source))
(raw-target (or (proto-get action :target) source *actuator-default*))
(target (intern (string-upcase (string raw-target)) :keyword))
(actuator-fn (gethash target *actuator-registry*)))
;; If target is :SYSTEM and we have a live reply-stream, route to :TUI instead
(actual-target (if (and (eq target :system)
(getf meta :reply-stream)
(ignore-errors (open-stream-p (getf meta :reply-stream))))
:tui
target))
(actuator-fn (gethash actual-target *actuator-registry*)))
(when (and meta (null (getf action :meta)))
(setf (getf action :meta) meta))
(if actuator-fn
(funcall actuator-fn action context)
(log-message "ACT ERROR: No actuator registered for '~s'" target))))))
(log-message "ACT ERROR: No actuator registered for '~s'" actual-target))))))
(defun action-system-execute (action context)
"Execute internal harness commands."