delete button

uwplse · Sep 10, 2018 · 455457a · 455457a
1 parent 0e2b43f
commit 455457a
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/dviz/src/cljs/dviz/core.cljs b/dviz/src/cljs/dviz/core.cljs
@@ -771,7 +771,13 @@
                                  :on-click #(switch-to-trace trace servers)}
                              name]
                             [:span " "]
-                            [:a {:href "#" :on-click #(download-trace trace servers)} "(download)"]]))]
+                            [:a {:href "#" :on-click #(download-trace trace servers)} "(download)"]
+                            [:span " "]
+                            [:a {:href "#" :on-click
+                                 (fn [] (swap! traces
+                                               #(vec (remove-one (partial fields-match
+                                                                          [:id] {:id id})
+                                                                 %))))} "(delete)"]]))]
           [trace-upload traces-local]])])))
 
 (defonce debug-display-state (reagent/atom nil))