reorg: tangle to XDG, remove stale lisp files, fix tui input

- Changed all 50 org file :tangle targets from ../lisp/ to
  ~/.local/share/passepartout/lisp/ (XDG data dir)
- Removed 49 generated .lisp files from project lisp/ directory
- Removed tests/system-integration-tests.lisp (generated)
- Removed lisp/*.fasl (compiled, stale)
- Updated core-manifest.org to tangle .asd to XDG root
- Remapped quicklisp symlink: local-projects/passepartout → XDG

TUI fixes in channel-tui-main.org:
- Removed with-raw-terminal (stty raw breaks fd 0 reads in this SBCL)
- Use cat subprocess + pipe for keyboard input (via :input :interactive)
- Blocking read-char on pipe with with-timeout 0.1s for daemon processing
- Key events queued via drain-queue alongside daemon messages
- Full dialog key routing (Escape, Up/Down, Enter, filters, Backspace)
- SIGWINCH resize handling
- Post-handshake backend-size re-query
- Daemon version in status bar (was v0.5.0 hardcoded)
- Handshake version stored in state, no add-msg
- :daemon-version and :size-queried in state plist
- view-status uses draw-rect for background
- Test section gated with #+passepartout-tests

lisp/symbolic-memory.lisp

@@ -1,73 +0,0 @@
-(in-package :passepartout)
-
-(defun memory-inspect (&key (type-filter nil) (todo-filter nil) (limit 10))
-  "Returns a structured report of memory state.
-Optional filters: TYPE-FILTER (keyword), TODO-FILTER (string).
-Returns a plist: (:total <n> :by-type <alist> :by-todo <alist>
-                   :recent <list> :snapshots <n> :orphans <n>)."
-  (let* ((store (if (boundp '*memory-store*)
-                    (symbol-value '*memory-store*)
-                    (return-from memory-inspect
-                      (list :total 0 :reason "Memory store not available"))))
-         (total 0)
-         (type-counts (make-hash-table :test 'eq))
-         (todo-counts (make-hash-table :test 'equal))
-         (recent nil)
-         (all-ids (make-hash-table :test 'equal))
-         (orphans 0))
-    (maphash (lambda (id obj)
-               (setf (gethash id all-ids) t)
-               (let ((obj-type (memory-object-type obj))
-                     (attrs (memory-object-attributes obj))
-                     (v (memory-object-version obj)))
-                 (unless (and type-filter (not (eq obj-type type-filter)))
-                   (let ((todo (getf attrs :TODO-STATE)))
-                     (when (and todo-filter
-                                (not (string-equal todo todo-filter)))
-                       (return nil)))
-                   (incf total)
-                    (incf (gethash obj-type type-counts 0))
-                   (let ((todo (getf attrs :TODO-STATE)))
-                     (when todo
-                       (incf (gethash todo todo-counts 0))))
-                   (push (list :id id
-                               :type t
-                               :todo (getf attrs :TODO-STATE)
-                               :title (getf attrs :TITLE)
-                               :version v)
-                         recent))))
-             store)
-    ;; Sort recent by version desc and take LIMIT
-    (setf recent (subseq (sort recent #'>
-                                :key (lambda (r) (or (getf r :version) 0)))
-                         0 (min limit (length recent))))
-    ;; Count orphans
-    (maphash (lambda (id obj)
-               (let ((parent (memory-object-parent-id obj)))
-                 (when (and parent (not (gethash parent all-ids)))
-                   (incf orphans))))
-             store)
-    ;; Build output
-    (let ((types (loop for k being the hash-keys of type-counts
-                         using (hash-value v)
-                       collect (cons k v)))
-          (todos (loop for k being the hash-keys of todo-counts
-                         using (hash-value v)
-                       collect (cons k v)))
-          (snapshots (if (boundp '*memory-snapshots*)
-                         (length (symbol-value '*memory-snapshots*))
-                         0)))
-      (list :total total
-            :by-type (sort types #'> :key #'cdr)
-            :by-todo (sort todos #'> :key #'cdr)
-            :recent recent
-            :snapshots snapshots
-            :orphans orphans))))
-
-(defskill :passepartout-symbolic-memory
-  :priority 100
-  :trigger (lambda (ctx) (eq (getf (getf ctx :payload) :sensor) :introspection))
-  :deterministic (lambda (action ctx)
-                   (declare (ignore action ctx))
-                   (ignore-errors (memory-inspect))
-                   nil))