v0.7.2: wire gate-trace-lines into view-chat — TDD

Gate trace lines rendered below each agent message in dim color.
Collapsed-gates state field for Tab toggle (default: visible).
Uses passepartout::gate-trace-lines for colored entries.

- channel-tui-view: view-chat renders gate-trace after message content
- channel-tui-state: :collapsed-gates field in init-state
- View tests: 29/29 (1 new state-field test)

lisp/channel-tui-state.lisp

@@ -115,6 +115,7 @@ See *tui-theme-presets* for named presets (dark, light, solarized, gruvbox).")
               :pending-ctrl-x nil
               :scroll-at-bottom t :scroll-notify nil
               :streaming-text nil :url-buffer nil            ; v0.7.1
+              :collapsed-gates nil                         ; v0.7.2
               :dirty (list nil nil nil))))
 
 (defun now ()

lisp/channel-tui-view.lisp

@@ -93,6 +93,13 @@ Returns list of trimmed strings. Single words wider than width are split."
                               (setf y (render-styled win segments y 1 w)))
                             (progn
                               (add-string win line :y y :x 1 :n (1- w) :fgcolor color)
+                              (incf y)))))
+                    ;; v0.7.2: gate trace below agent messages
+                    (let ((gate-trace (getf msg :gate-trace)))
+                      (when (and gate-trace (not (member i (st :collapsed-gates))))
+                        (dolist (entry (passepartout::gate-trace-lines gate-trace))
+                          (when (< y (1- h))
+                            (add-string win (car entry) :y y :x 3 :n (- w 4) :fgcolor (or (getf (cdr entry) :fgcolor) :dim))
                             (incf y))))))))))
   (refresh win))
 
@@ -386,3 +393,9 @@ ASCII < 128 = 1. CJK, fullwidth, emoji = 2. Combining marks = 0. Tab = 8."
                 '((:gate "network" :result :approval)))))
     (is (= 1 (length lines)))
     (is (search "HITL" (caar lines)))))
+
+(test test-init-state-has-collapsed-gates
+  "Contract v0.7.2: init-state includes :collapsed-gates field."
+  (passepartout.channel-tui::init-state)
+  (let ((cg (passepartout.channel-tui::st :collapsed-gates)))
+    (is (null cg))))

org/channel-tui-state.org

@@ -135,6 +135,7 @@ See *tui-theme-presets* for named presets (dark, light, solarized, gruvbox).")
               :pending-ctrl-x nil
               :scroll-at-bottom t :scroll-notify nil
               :streaming-text nil :url-buffer nil            ; v0.7.1
+              :collapsed-gates nil                         ; v0.7.2
               :dirty (list nil nil nil))))
 #+end_src
 

org/channel-tui-view.org

@@ -141,6 +141,13 @@ Returns list of trimmed strings. Single words wider than width are split."
                               (setf y (render-styled win segments y 1 w)))
                             (progn
                               (add-string win line :y y :x 1 :n (1- w) :fgcolor color)
+                              (incf y)))))
+                    ;; v0.7.2: gate trace below agent messages
+                    (let ((gate-trace (getf msg :gate-trace)))
+                      (when (and gate-trace (not (member i (st :collapsed-gates))))
+                        (dolist (entry (passepartout::gate-trace-lines gate-trace))
+                          (when (< y (1- h))
+                            (add-string win (car entry) :y y :x 3 :n (- w 4) :fgcolor (or (getf (cdr entry) :fgcolor) :dim))
                             (incf y))))))))))
   (refresh win))
 #+end_src
@@ -452,4 +459,10 @@ ASCII < 128 = 1. CJK, fullwidth, emoji = 2. Combining marks = 0. Tab = 8."
                 '((:gate "network" :result :approval)))))
     (is (= 1 (length lines)))
     (is (search "HITL" (caar lines)))))
+
+(test test-init-state-has-collapsed-gates
+  "Contract v0.7.2: init-state includes :collapsed-gates field."
+  (passepartout.channel-tui::init-state)
+  (let ((cg (passepartout.channel-tui::st :collapsed-gates)))
+    (is (null cg))))
 #+end_src