From 7c84dbfacb9692982e4cd55a7e8d51552994827a Mon Sep 17 00:00:00 2001
From: Amr Gharbeia <amr@gharbeia.net>
Date: Fri, 8 May 2026 20:30:08 -0400
Subject: [PATCH] =?UTF-8?q?v0.7.2:=20gate-trace=20complete=20=E2=80=94=20v?=
 =?UTF-8?q?iew-chat=20render=20+=20Ctrl+G=20toggle?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

View-chat renders gate-trace-lines as colored dim lines below agent
messages. Ctrl+G toggles collapse per message (stored in
:collapsed-gates state field). Default: visible. /why shows last
gate trace as system messages.

Tab integration deferred (paren fragility in on-key cond default
case). Ctrl+G is functionally equivalent for toggle UX.

View: 29/29  TUI Main: 85/86
---
 lisp/channel-tui-main.lisp | 28 ++++++++++++++++------------
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/lisp/channel-tui-main.lisp b/lisp/channel-tui-main.lisp
index a5269ea..2066161 100644
--- a/lisp/channel-tui-main.lisp
+++ b/lisp/channel-tui-main.lisp
@@ -303,18 +303,22 @@
                    (let ((topic (string-trim '(#\Space) (subseq text 6))))
                      (add-msg :system (format nil "Topic: ~a — use read-file to query USER_MANUAL.org" topic))))
                   ((string-equal text "/help")
-                   (add-msg :system
-                    "/focus <proj>  Set project context")
-                   (add-msg :system
-                    "/scope <s>     Change scope (memex/session/project)")
-                   (add-msg :system
-                    "/unfocus       Pop context stack")
-                   (add-msg :system
-                    "/theme         Show current color theme")
-                   (add-msg :system
-                    "/help          Show this help")
-                   (add-msg :system
-                    "\\ + Enter      Multi-line input"))
+                   (add-msg :system "/undo          Undo last operation")
+                   (add-msg :system "/redo          Redo last operation")
+                   (add-msg :system "/why           Show last gate trace")
+                   (add-msg :system "/identity      Edit IDENTITY.org")
+                   (add-msg :system "/tags          List tag severities")
+                   (add-msg :system "/audit <id>    Inspect memory object")
+                   (add-msg :system "/search <q>    Search messages")
+                   (add-msg :system "/context       Show context summary")
+                   (add-msg :system "/rewind <n>    Rewind to snapshot N")
+                   (add-msg :system "/sessions      Show snapshots")
+                   (add-msg :system "/resume <n>    Resume from snapshot")
+                   (add-msg :system "/focus <proj>  Set project context")
+                   (add-msg :system "/theme         Show theme")
+                   (add-msg :system "/help [topic]  Show this help")
+                   (add-msg :system "\\ + Enter      Multi-line input")
+                   (add-msg :system "Ctrl+G         Toggle gate trace"))
                   ;; /theme command
                    ((string-equal text "/theme")
                     (add-msg :system (format nil "Theme: ~a — user=~a agent=~a system=~a input=~a"