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/security-vault.org

@@ -35,61 +35,6 @@ through here.
 - Does NOT validate key format — the provider skill does that.
 - Does NOT rotate or expire keys — this is a simple store.
 
-* Test Suite
-
-#+begin_src lisp
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (ql:quickload :fiveam :silent t))
-
-(defpackage :passepartout-security-vault-tests
-  (:use :cl :fiveam :passepartout)
-  (:export #:vault-suite))
-
-(in-package :passepartout-security-vault-tests)
-
-(def-suite vault-suite :description "Verification of the Credentials Vault")
-(in-suite vault-suite)
-
-(test test-vault-round-trip
-  "Contract 1: vault-set stores a value; vault-get retrieves it."
-  (let ((test-key :vault-test-round-trip)
-        (test-secret "secret-abc123"))
-    (vault-set test-key test-secret)
-    (is (string= test-secret (vault-get test-key)))
-    ;; Clean up
-    (vault-set test-key nil)))
-
-(test test-vault-missing-key
-  "Contract 2: vault-get returns NIL for an unset, unknown provider."
-  (is (null (vault-get :nonexistent-provider-xyz))))
-
-(test test-vault-isolation
-  "Contract 5: storing for provider A does not affect provider B."
-  (vault-set :vault-prov-a "secret-a")
-  (vault-set :vault-prov-b "secret-b")
-  (is (string= "secret-a" (vault-get :vault-prov-a)))
-  (is (string= "secret-b" (vault-get :vault-prov-b)))
-  (vault-set :vault-prov-a nil)
-  (vault-set :vault-prov-b nil))
-
-(test test-vault-secret-wrappers
-  "Contracts 3,4: vault-get-secret and vault-set-secret use :type :secret."
-  (let ((test-provider :vault-secret-test))
-    (vault-set-secret test-provider "my-token")
-    (is (string= "my-token" (vault-get-secret test-provider)))
-    ;; Clean up
-    (vault-set-secret test-provider nil)))
-
-(test test-vault-type-isolation
-  "Contract 5: different :type values produce different keys."
-  (vault-set :vault-type-test "key-value" :type :api-key)
-  (vault-set :vault-type-test "secret-value" :type :secret)
-  (is (string= "key-value" (vault-get :vault-type-test :type :api-key)))
-  (is (string= "secret-value" (vault-get :vault-type-test :type :secret)))
-  (vault-set :vault-type-test nil :type :api-key)
-  (vault-set :vault-type-test nil :type :secret))
-#+end_src
-
 * Implementation
 
 ** Package Context
@@ -158,3 +103,57 @@ Delegates to the existing =vault-get=/=vault-set= with ~:type :secret~.
   :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-security-vault-tests
+  (:use :cl :fiveam :passepartout)
+  (:export #:vault-suite))
+
+(in-package :passepartout-security-vault-tests)
+
+(def-suite vault-suite :description "Verification of the Credentials Vault")
+(in-suite vault-suite)
+
+(test test-vault-round-trip
+  "Contract 1: vault-set stores a value; vault-get retrieves it."
+  (let ((test-key :vault-test-round-trip)
+        (test-secret "secret-abc123"))
+    (vault-set test-key test-secret)
+    (is (string= test-secret (vault-get test-key)))
+    ;; Clean up
+    (vault-set test-key nil)))
+
+(test test-vault-missing-key
+  "Contract 2: vault-get returns NIL for an unset, unknown provider."
+  (is (null (vault-get :nonexistent-provider-xyz))))
+
+(test test-vault-isolation
+  "Contract 5: storing for provider A does not affect provider B."
+  (vault-set :vault-prov-a "secret-a")
+  (vault-set :vault-prov-b "secret-b")
+  (is (string= "secret-a" (vault-get :vault-prov-a)))
+  (is (string= "secret-b" (vault-get :vault-prov-b)))
+  (vault-set :vault-prov-a nil)
+  (vault-set :vault-prov-b nil))
+
+(test test-vault-secret-wrappers
+  "Contracts 3,4: vault-get-secret and vault-set-secret use :type :secret."
+  (let ((test-provider :vault-secret-test))
+    (vault-set-secret test-provider "my-token")
+    (is (string= "my-token" (vault-get-secret test-provider)))
+    ;; Clean up
+    (vault-set-secret test-provider nil)))
+
+(test test-vault-type-isolation
+  "Contract 5: different :type values produce different keys."
+  (vault-set :vault-type-test "key-value" :type :api-key)
+  (vault-set :vault-type-test "secret-value" :type :secret)
+  (is (string= "key-value" (vault-get :vault-type-test :type :api-key)))
+  (is (string= "secret-value" (vault-get :vault-type-test :type :secret)))
+  (vault-set :vault-type-test nil :type :api-key)
+  (vault-set :vault-type-test nil :type :secret))
+#+end_src