     (fn [trace]
       (< (:query query) (:duration trace)))))
 
-(defn render-traces [showing-traces trace-details]
+(defn render-traces [showing-traces 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)})
-            keyword-id (keyword (str id))
             #_#__ (js/console.log (devtools/header-api-call tags))]
         (list [:tr {:key   id
                     :style {:color (case op-type

               (when (pos? (count @traces))
                 [:span "(" [:button.text-button {:on-click #(do (trace/reset-tracing!) (reset! traces []))} "clear"] ")"])]
             [:th "meta"]]
            [:tbody (render-traces showing-traces trace-details)]]]]))))

(defn resizer-style [draggable-area]
  {:position "absolute" :z-index 2 :opacity 0

                                          :white-space "nowrap"})}

                (.toFixed duration 1) " ms"]]
              (when (or (get-in @trace-detail-expansions [:overrides id])
                        (:showing @trace-detail-expansions))
                [:tr {:key (str id "-details")}
                 [:td {:col-span 3} (with-out-str (pprint/pprint (dissoc tags :query-v :event :duration)))]]))))))



(defn render-trace-panel []
  (let [filter-input               (r/atom "")
        filter-items               (r/atom [])
        filter-type                (r/atom :contains)
        input-error                (r/atom false)
        trace-detail-expansions    (r/atom {:showing false :overrides {}})]
    (fn []
      (let [showing-traces       (if (= @filter-items [])
                                   @traces
