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

org/programming-literate.org

@@ -15,47 +15,6 @@ This skill enforces the literal programming discipline for all Passepartout sour
 3. (literate-tangle-sync-check org-file lisp-file): verifies the
    tangled .lisp file matches the Org source. Returns T or mismatch info.
 
-* Test Suite
-
-#+begin_src lisp
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (ql:quickload :fiveam :silent t))
-
-(defpackage :passepartout-programming-literate-tests
-  (:use :cl :fiveam :passepartout)
-  (:export #:literate-suite))
-
-(in-package :passepartout-programming-literate-tests)
-
-(def-suite literate-suite :description "Verification of the Literate Programming skill")
-(in-suite literate-suite)
-
-(test test-extract-lisp-blocks
-  "Contract 1: extracts lisp from #+begin_src blocks."
-  (let* ((org-content (format nil "#+begin_src lisp~%(+ 1 2)~%#+end_src~%#+begin_src lisp~%(+ 3 4)~%#+end_src"))
-         (extracted (literate-extract-lisp-blocks org-content)))
-    (let ((joined (format nil "~{~a~^~%~}" extracted)))
-      (is (search "(+ 1 2)" joined))
-      (is (search "(+ 3 4)" joined)))))
-
-(test test-block-balance-check-valid
-  "Contract 2: balanced parens return T."
-  (is (eq t (literate-block-balance-check
-             (merge-pathnames "org/core-pipeline.org"
-                              (uiop:ensure-directory-pathname
-                               (uiop:getenv "PASSEPARTOUT_DATA_DIR")))))))
-
-(test test-block-balance-check-missing-close
-  "Contract 2: unbalanced parens return non-T."
-  (is (not (eq t (literate-block-balance-check "org/nonexistent-file-xyz.org")))))
-
-(test test-tangle-sync-check
-  "Contract 3: literate-tangle-sync-check verifies org matches tangled lisp."
-  (let ((result (literate-tangle-sync-check "org/core-pipeline.org" "lisp/core-pipeline.lisp")))
-    (is (or (eq t result) (stringp result))
-        "Should return T or a mismatch description")))
-#+end_src
-
 * Implementation
 
 ** Package Context
@@ -144,3 +103,43 @@ contents of the Lisp file. Returns T if they match, or an error message."
   :trigger (lambda (ctx) (declare (ignore ctx)) nil))
 #+end_src
 
+* Test Suite
+
+#+begin_src lisp
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (ql:quickload :fiveam :silent t))
+
+(defpackage :passepartout-programming-literate-tests
+  (:use :cl :fiveam :passepartout)
+  (:export #:literate-suite))
+
+(in-package :passepartout-programming-literate-tests)
+
+(def-suite literate-suite :description "Verification of the Literate Programming skill")
+(in-suite literate-suite)
+
+(test test-extract-lisp-blocks
+  "Contract 1: extracts lisp from #+begin_src blocks."
+  (let* ((org-content (format nil "#+begin_src lisp~%(+ 1 2)~%#+end_src~%#+begin_src lisp~%(+ 3 4)~%#+end_src"))
+         (extracted (literate-extract-lisp-blocks org-content)))
+    (let ((joined (format nil "~{~a~^~%~}" extracted)))
+      (is (search "(+ 1 2)" joined))
+      (is (search "(+ 3 4)" joined)))))
+
+(test test-block-balance-check-valid
+  "Contract 2: balanced parens return T."
+  (is (eq t (literate-block-balance-check
+             (merge-pathnames "org/core-pipeline.org"
+                              (uiop:ensure-directory-pathname
+                               (uiop:getenv "PASSEPARTOUT_DATA_DIR")))))))
+
+(test test-block-balance-check-missing-close
+  "Contract 2: unbalanced parens return non-T."
+  (is (not (eq t (literate-block-balance-check "org/nonexistent-file-xyz.org")))))
+
+(test test-tangle-sync-check
+  "Contract 3: literate-tangle-sync-check verifies org matches tangled lisp."
+  (let ((result (literate-tangle-sync-check "org/core-pipeline.org" "lisp/core-pipeline.lisp")))
+    (is (or (eq t result) (stringp result))
+        "Should return T or a mismatch description")))
+#+end_src