Remove inline tool-call lines from message area

ober

7417952ed2e1bc6a1355bafb509a750c4e162cc3

diff --git a/lib/jcode/ui/tui.sls b/lib/jcode/ui/tui.sls
index 4ab8b60..f578e33 100644
--- a/lib/jcode/ui/tui.sls
+++ b/lib/jcode/ui/tui.sls
@@ -674,25 +674,11 @@
        (case event
          [(start)
           (app-state-stream-buf-set! state "")
-          (let ([meta (tool-event-metadata name args)])
-            (add-message! state (msg-block-tool name 'running "" meta)))
           (let ([tc (app-state-tool-counts state)])
             (hash-put! tc name (+ 1 (or (hash-get tc name) 0))))
           (update-sidebar-tools! state)
           (app-state-dirty?-set! state #t)]
-         [(end)
-          (let ([msgs (app-state-messages state)])
-            (let loop ([msgs (reverse msgs)])
-              (when (pair? msgs)
-                (let ([m (car msgs)])
-                  (if (and (eq? (msg-block-role m) 'tool)
-                           (equal? (msg-block-tool-name m) name)
-                           (eq? (msg-block-tool-status m) 'running))
-                      (begin
-                        (msg-block-tool-status-set! m 'done)
-                        (reflow-message! m (msg-area-width state)))
-                      (loop (cdr msgs)))))))
-          (app-state-dirty?-set! state #t)]))
+         [(end) (app-state-dirty?-set! state #t)]))
   (def (tui-usage-update! state usage)
        "Accumulate token/cost usage from a streaming response."
        (for-each
diff --git a/src/jcode/ui/tui.ss b/src/jcode/ui/tui.ss
index 208c66b..ac5ae49 100644
--- a/src/jcode/ui/tui.ss
+++ b/src/jcode/ui/tui.ss
@@ -741,26 +741,12 @@
     ((start)
      ;; Reset stream buffer so next round creates a fresh assistant block
      (app-state-stream-buf-set! state "")
-     (let ((meta (tool-event-metadata name args)))
-       (add-message! state (msg-block-tool name 'running "" meta)))
-     ;; Update tool counts
+     ;; Track tool counts in sidebar only — no inline message block
      (let ((tc (app-state-tool-counts state)))
        (hash-put! tc name (+ 1 (or (hash-get tc name) 0))))
      (update-sidebar-tools! state)
      (app-state-dirty?-set! state #t))
     ((end)
-     ;; Find last tool block and mark done
-     (let ((msgs (app-state-messages state)))
-       (let loop ((msgs (reverse msgs)))
-         (when (pair? msgs)
-           (let ((m (car msgs)))
-             (if (and (eq? (msg-block-role m) 'tool)
-                      (equal? (msg-block-tool-name m) name)
-                      (eq? (msg-block-tool-status m) 'running))
-               (begin
-                 (msg-block-tool-status-set! m 'done)
-                 (reflow-message! m (msg-area-width state)))
-               (loop (cdr msgs)))))))
      (app-state-dirty?-set! state #t))))
 
 (def (tui-usage-update! state usage)