feat(core): Skills consolidation and v0.2.0 TUI integration

- NEW: org-skill-utils-lisp (consolidated from org-skill-lisp-utils)
  * 3-phase validation: structural, syntactic, semantic
  * Sandboxed eval, AST extraction/injection/wrapping
  * Format, list-definitions utilities

- NEW: org-skill-utils-org (consolidated from org-skill-emacs-edit)
  * Read/update/delete org headlines
  * Property management, TODO state handling
  * ID-link and internal link support

- DELETE: org-skill-lisp-utils (merged into utils-lisp)
- DELETE: org-skill-emacs-edit (merged into utils-org)
- RENAME: run-all-tests.lisp -> run-tests.lisp

- HARDEN: Skill loader with improved lisp keyword handling
- FIX: Package jailing issues with def-cognitive-tool macro conflicts
- ADD: Setup wizard (opencortex setup) and doctor (opencortex doctor)
- ADD: TUI client with Croatoan for native terminal rendering

- REMOVE: Dynamic loading from opencortex.asd (use :force t instead)
- CLEANUP: Test file consolidation (removed duplicate test suites)

Co-authored-by: Agent <agent@memex>

skills/org-skill-cli-gateway.lisp

@@ -1,83 +1,12 @@
 (in-package :opencortex)
 
-(defvar *cli-port* 9105)
-(defvar *cli-server-socket* nil)
-(defvar *cli-server-thread* nil)
+(defun cli-process-input (text)
+  "Processes raw text from the command line."
+  (inject-stimulus (list :type :EVENT 
+                         :payload (list :sensor :user-input :text text) 
+                         :meta (list :source :CLI))))
 
-(defun execute-cli-action (action context)
-  "Sends a framed message back to the connected CLI client."
-  (let* ((payload (proto-get action :PAYLOAD))
-         (meta (getf context :meta))
-         (stream (getf meta :reply-stream)))
-    (handler-case
-        (if (and stream (open-stream-p stream))
-            (progn
-              (format stream "~a" (frame-message action))
-              (finish-output stream)
-              (format stream "~a" (frame-message '(:TYPE :STATUS :SCRIBE :IDLE :GARDENER :SLEEPING)))
-              (finish-output stream))
-            (harness-log "CLI ERROR: No active or open reply stream for signal."))
-      (error (c) (harness-log "CLI ACTUATOR ERROR: ~a" c)))))
-
-(defun handle-cli-slash-command (cmd stream)
-  (cond
-    ((string= cmd "/exit") (return-from handle-cli-slash-command :exit))
-    (t (format stream "~a" (frame-message (list :TYPE :REQUEST :PAYLOAD (list :ACTION :MESSAGE :TEXT (format nil "Unknown command: ~a" cmd))))))))
-
-(defun handle-cli-client (stream)
-  "Reads framed messages from a CLI client and injects them as stimuli."
-  (harness-log "CLI: Client connected.")
-  (handler-case
-      (progn
-        ;; 1. Send Handshake
-        (format stream "~a" (frame-message (make-hello-message "0.1.0")))
-        (finish-output stream)
-        (format stream "~a" (frame-message '(:TYPE :STATUS :SCRIBE :IDLE :GARDENER :SLEEPING)))
-        (finish-output stream)
-        
-        ;; 2. Communication Loop
-        (loop
-          (let ((msg (read-framed-message stream)))
-            (cond ((eq msg :eof) (return))
-                  ((eq msg :error) (return))
-                  (t (let* ((payload (proto-get msg :payload))
-                            (text (proto-get payload :text))
-                            (meta (proto-get msg :meta)))
-                       (if (and text (stringp text) (char= (char text 0) #\/))
-                           (when (eq (handle-cli-slash-command text stream) :exit) (return))
-                           (progn
-                             ;; Default meta if missing
-                             (unless meta
-                               (setf (getf msg :meta) (list :SOURCE :CLI :SESSION-ID "default")))
-                             (harness-log "CLI: Received input -> ~s" msg)
-                             (inject-stimulus msg :stream stream)))))))))
-    (error (c) (harness-log "CLI CLIENT DISCONNECT: ~a" c)))
-  (harness-log "CLI: Client disconnected."))
-
-(defun start-cli-gateway (&optional (port *cli-port*))
-  "Starts the TCP listener for local CLI clients."
-  (setf *cli-server-socket* (usocket:socket-listen "0.0.0.0" port :reuse-address t))
-  (setf *cli-server-thread*
-        (bt:make-thread
-         (lambda ()
-           (unwind-protect
-                (loop
-                  (let* ((socket (usocket:socket-accept *cli-server-socket*))
-                         (stream (usocket:socket-stream socket)))
-                    (bt:make-thread (lambda () 
-                                      (unwind-protect (handle-cli-client stream)
-                                        (usocket:socket-close socket)))
-                                    :name "opencortex-cli-client-handler")))
-             (usocket:socket-close *cli-server-socket*)))
-         :name "opencortex-cli-gateway"))
-  (harness-log "CLI: Gateway listening on port ~a" port))
-
-(register-actuator :CLI #'execute-cli-action)
-
-(defskill :skill-gateway-cli
-  :priority 200
-  :trigger (lambda (ctx) (declare (ignore ctx)) nil)
-  :probabilistic nil
+(defskill :skill-cli-gateway
+  :priority 100
+  :trigger (lambda (ctx) (eq (getf (getf ctx :meta) :source) :CLI))
   :deterministic (lambda (action ctx) (declare (ignore ctx)) action))
-
-(start-cli-gateway)