            [:table
             {:cell-spacing "0" :width "100%"}
             [:thead>tr
+             [:th [:button.text-button
+                   {:style {:cursor "pointer"}
+                    :on-click #(reset! trace-details {:showing (not (:showing @trace-details))})}
+                   (if (:showing @trace-details) "-" "+")]]
              [:th "operations"]
              [:th
                (when (pos? (count @filter-items))

                                          :white-space "nowrap"})}

                (.toFixed duration 1) " ms"]]
              (when true
                [:tr {:key (str id "-details")}
                 [:td {:col-span 3} (with-out-str (pprint/pprint (dissoc tags :query-v :event :duration)))]]))))))


  (let [filter-input     (r/atom "")
        filter-items     (r/atom [])
        filter-type      (r/atom :contains)
        input-error      (r/atom false)
        trace-details    (r/atom {:showing false})]
    (fn []
      (let [showing-traces       (if (= @filter-items [])
                                   @traces
