                (when (pos? (count @traces))
                  [:span "(" [:button.text-button {:on-click #(do (trace/reset-tracing!) (reset! traces []))} "clear"] ")"])]
              [:th "meta"]]
-            [:tbody (render-traces showing-traces filter-items trace-detail-expansions)]]]]))))
+            [:tbody (render-traces showing-traces filter-items filter-input trace-detail-expansions)]]]]))))
 
 (defn resizer-style [draggable-area]
   {:position "absolute" :z-index 2 :opacity 0

               [:td {:style row-style}
                    [:div.op-string
                     [:span {:on-click (fn [ev]
                                         (save-query op-type)
                                         (.stopPropagation ev))
                             :style    {:cursor "pointer"}} (str op-type)]]]
               [:td {:style    row-style}
                    [:div.op-string
                     [:span {:on-click (fn [ev]
                                         (save-query op-name)
                                         (.stopPropagation ev))
                             :style {:cursor "pointer"}}] op-name]]
               [:td
                {:style (merge row-style {
                                          ; :font-weight (if (< slower-than-bold-int duration)

    (fn [trace]
      (< (:query query) (:duration trace)))))

(defn add-filter [filter-items filter-input filter-type from-mouse?]
  (swap! filter-items conj {:id (random-uuid)
                            :query (if from-mouse?
                                     (str/lower-case (name filter-input))
                                     (if (= @filter-type :contains)
                                       (str/lower-case @filter-input)
                                       (js/parseFloat @filter-input)))
                            :filter-type (if from-mouse?
                                           :contains
                                           @filter-type)}))

(defn render-traces [showing-traces filter-items filter-input trace-detail-expansions]
  (doall
    (for [{:keys [op-type id operation tags duration] :as trace} showing-traces]
      (let [padding          {:padding "0px 5px 0px 5px"}
            row-style        (merge padding {:border-top (case op-type :event "1px solid lightgrey" nil)})
            show-row?        (get-in @trace-detail-expansions [:overrides id]
                               (:show-all? @trace-detail-expansions))
            op-name          (if (vector? operation)
                               (second operation)
                               operation)
            #_#__ (js/console.log (devtools/header-api-call tags))]
        (list [:tr {:key   id
                    :on-click (fn [ev]
