v0.8.3: TUI stabilization — box calls, package fixes, sandbox, configure

Bug fixes:
- Fix box() calls: set color-pair before box, pass ACS default chtype integers
- Fix markdown functions: move to passepartout.channel-tui package where
  Croatoan is imported; use add-attributes/remove-attributes instead of
  :bold/:underline kwargs to add-string; call theme-color in gate-trace-lines
  to convert theme keys to Croatoan colors
- Fix sandbox: remove dex:get/dex:post from restricted symbols
  (blocked neuro-provider from loading)
- Export *log-lock* from passepartout (was unbound in jailed skill packages)
- Fix configure: always deploy to XDG, skip cp when source==dest
- Fix bash crash handler format string (~~ escaping)
- Revert test reorder in 28 files (caused package leakage in skill loader)

Design cleanup:
- Extract tui-run-screen from tui-main for clean separation
- Remove inject-stimulus alias
- Merge *backend-registry* into *probabilistic-backends*
- Fix read-framed-message whitespace DoS (4096-iteration max)
- Add *read-eval* nil to dispatcher-approvals-process read-from-string

lisp/symbolic-archivist.lisp

@@ -1,41 +1,3 @@
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (ql:quickload :fiveam :silent t))
-
-(defpackage :passepartout-symbolic-archivist-tests
-  (:use :cl :passepartout)
-  (:export #:archivist-suite))
-
-(in-package :passepartout-symbolic-archivist-tests)
-
-(fiveam:def-suite archivist-suite :description "Verification of the Archivist skill")
-(fiveam:in-suite archivist-suite)
-
-(fiveam:test test-extract-headlines
-  "Contract 1: archivist-extract-headlines parses Org content."
-  (let* ((content (format nil "* My Headline :tag1:tag2:~%Body text here~%* Another Headline"))
-         (headlines (archivist-extract-headlines content)))
-    (fiveam:is (listp headlines))
-    (fiveam:is (>= (length headlines) 1))))
-
-(fiveam:test test-headline-to-filename
-  "Contract 2: archivist-headline-to-filename sanitizes titles."
-  (let ((filename (archivist-headline-to-filename "My Project: Overview")))
-    (fiveam:is (search "my_project_overview" filename :test #'char-equal))
-    (fiveam:is (not (search ":" filename)))))
-
-(fiveam:test test-archivist-create-note
-  "Contract 3: archivist-create-note writes a Zettelkasten note to disk."
-  (let* ((tmp-dir "/tmp/passepartout-archivist-test/")
-         (headline (list :title "Test Note" :content "Some content" :tags '("test" "atomic"))))
-    (uiop:ensure-all-directories-exist (list tmp-dir))
-    (unwind-protect
-         (progn
-           (fiveam:is (eq t (archivist-create-note headline tmp-dir "/tmp/source.org"))
-               "Expected note creation to return T")
-           (fiveam:is (uiop:file-exists-p (merge-pathnames "test_note.org" tmp-dir))
-               "Expected file test_note.org to exist"))
-      (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t))))
-
 (in-package :passepartout)
 
 (in-package :passepartout)
@@ -277,3 +239,41 @@ and dispatches as needed. Called by the deterministic gate."
   :priority 100
   :trigger (lambda (ctx) (eq (getf (getf ctx :payload) :sensor) :heartbeat))
   :deterministic #'archivist-run)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (ql:quickload :fiveam :silent t))
+
+(defpackage :passepartout-symbolic-archivist-tests
+  (:use :cl :passepartout)
+  (:export #:archivist-suite))
+
+(in-package :passepartout-symbolic-archivist-tests)
+
+(fiveam:def-suite archivist-suite :description "Verification of the Archivist skill")
+(fiveam:in-suite archivist-suite)
+
+(fiveam:test test-extract-headlines
+  "Contract 1: archivist-extract-headlines parses Org content."
+  (let* ((content (format nil "* My Headline :tag1:tag2:~%Body text here~%* Another Headline"))
+         (headlines (archivist-extract-headlines content)))
+    (fiveam:is (listp headlines))
+    (fiveam:is (>= (length headlines) 1))))
+
+(fiveam:test test-headline-to-filename
+  "Contract 2: archivist-headline-to-filename sanitizes titles."
+  (let ((filename (archivist-headline-to-filename "My Project: Overview")))
+    (fiveam:is (search "my_project_overview" filename :test #'char-equal))
+    (fiveam:is (not (search ":" filename)))))
+
+(fiveam:test test-archivist-create-note
+  "Contract 3: archivist-create-note writes a Zettelkasten note to disk."
+  (let* ((tmp-dir "/tmp/passepartout-archivist-test/")
+         (headline (list :title "Test Note" :content "Some content" :tags '("test" "atomic"))))
+    (uiop:ensure-all-directories-exist (list tmp-dir))
+    (unwind-protect
+         (progn
+           (fiveam:is (eq t (archivist-create-note headline tmp-dir "/tmp/source.org"))
+               "Expected note creation to return T")
+           (fiveam:is (uiop:file-exists-p (merge-pathnames "test_note.org" tmp-dir))
+               "Expected file test_note.org to exist"))
+      (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t))))