v0.4.0: TUI differentiator visualization — gate trace, rule counter, focus map

Gate trace: cognitive-verify accumulates (:gate name :result status) for
each deterministic gate. Trace prepended to action plist via list*.
TUI on-daemon-msg extracts :gate-trace and stores on message object.
add-msg accepts &key gate-trace for future rendering (collapsible Tab).

Rule counter: TUI actuator enriches response payload with :rule-count
=(hash-table-count *hitl-pending*). TUI status bar shows 'Rules:N'.

Focus map: TUI actuator adds :foveal-id from signal context. TUI stores
in state and renders second status line '[Focus: id]'.

Status bar: now two lines — line 1 (connection, mode, msgs, scroll,
rules, thinking spinner), line 2 (focus map, timestamp).

Test: 112/0 across 14 suites (reason 15/0 including gate-trace assertions)

org/core-loop-reason.org

@@ -273,29 +273,36 @@ sorted by priority (highest first). Returns a rejection plist or the action."
   (let ((current-action (copy-tree proposed-action))
         (approval-needed nil)
         (approval-action nil)
-        (gates nil))
+        (gates nil)
+        (gate-trace nil))
     ;; Collect gates sorted by priority (highest first)
     (maphash (lambda (name skill)
                (declare (ignore name))
                (when (skill-deterministic-fn skill)
-                 (push (cons (skill-priority skill) (skill-deterministic-fn skill)) gates)))
+                 (push (cons (skill-priority skill) (cons (skill-name skill) (skill-deterministic-fn skill))) gates)))
              *skill-registry*)
     (setf gates (sort gates #'> :key #'car))
-    (dolist (gate-pair gates)
-      (let ((result (funcall (cdr gate-pair) current-action context)))
+    (dolist (gate-entry gates)
+      (let* ((gate-name (cadr gate-entry))
+             (result (funcall (cddr gate-entry) current-action context)))
         (cond
           ((eq (getf result :level) :approval-required)
+           (push (list :gate (or gate-name (car gate-entry)) :result :approval) gate-trace)
            (setf approval-needed t
                  approval-action (getf (getf result :payload) :action)))
           ((member (getf result :type) '(:LOG :EVENT))
-           (return-from cognitive-verify result))
+           (push (list :gate (or gate-name (car gate-entry)) :result :blocked) gate-trace)
+           (return-from cognitive-verify
+             (list* :gate-trace (nreverse gate-trace) result)))
           ((and (listp result) result)
+           (push (list :gate (or gate-name (car gate-entry)) :result :passed) gate-trace)
            (setf current-action result)))))
     (if approval-needed
         (list :type :EVENT :level :approval-required
+              :gate-trace (nreverse gate-trace)
               :payload (list :sensor :approval-required
                              :action approval-action))
-        current-action)))
+        (list* :gate-trace (nreverse gate-trace) current-action))))
 #+end_src
 
 ** Reason Gate (Stage 2)
@@ -403,7 +410,9 @@ Verifies that the deterministic engine correctly rejects unsafe actions (like ~r
   (let* ((candidate '(:type :REQUEST :payload (:action :shell :cmd "echo hello")))
          (signal '(:type :EVENT :payload (:sensor :user-input)))
          (result (cognitive-verify candidate signal)))
-    (is (equal candidate result))))
+    (is (eq :REQUEST (getf result :type)))
+    (is (equal (getf candidate :payload) (getf result :payload)))
+    (is (getf result :gate-trace))))
 
 (test test-cognitive-verify-empty-registry
   "Contract 1: with no gates registered, action passes through unchanged."
@@ -411,7 +420,8 @@ Verifies that the deterministic engine correctly rejects unsafe actions (like ~r
   (let* ((candidate '(:type :REQUEST :payload (:action :shell :cmd "ls")))
          (signal '(:type :EVENT :payload (:sensor :user-input)))
          (result (cognitive-verify candidate signal)))
-    (is (equal candidate result))))
+    (is (eq :REQUEST (getf result :type)))
+    (is (equal (getf candidate :payload) (getf result :payload)))))
 
 (test test-cognitive-verify-approval-required
   "Contract 1: gate returning :approval-required produces an approval event."