From c1e077fa0a2eb384c1cd1826d34f767c8902a750 Mon Sep 17 00:00:00 2001 From: Daniel Compton Date: Fri, 26 Jan 2018 12:22:00 +1300 Subject: [PATCH] Fix reset tracing button --- src/day8/re_frame/trace/events.cljs | 12 +++++++++++- src/day8/re_frame/trace/view/traces.cljs | 2 +- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/src/day8/re_frame/trace/events.cljs b/src/day8/re_frame/trace/events.cljs index c15f69f..2d5188d 100644 --- a/src/day8/re_frame/trace/events.cljs +++ b/src/day8/re_frame/trace/events.cljs @@ -11,7 +11,8 @@ [day8.re-frame.trace.view.container :as container] [day8.re-frame.trace.styles :as styles] [clojure.set :as set] - [day8.re-frame.trace.metamorphic :as metam])) + [day8.re-frame.trace.metamorphic :as metam] + [re-frame.trace])) (defonce traces (r/atom [])) (defonce total-traces (r/atom 0)) @@ -475,6 +476,15 @@ {:db (assoc db :current-epoch-id (last (:match-ids db))) :dispatch [:settings/pause]}))) +(rf/reg-event-db + :epochs/reset + [(rf/path [:epochs])] + (fn [epochs] + (re-frame.trace/reset-tracing!) + (reset! traces []) + (reset! total-traces 0) + nil)) + (rf/reg-event-db :traces/update-traces [(rf/path [:traces :all-traces])] diff --git a/src/day8/re_frame/trace/view/traces.cljs b/src/day8/re_frame/trace/view/traces.cljs index e5ab3ff..1d9cf59 100644 --- a/src/day8/re_frame/trace/view/traces.cljs +++ b/src/day8/re_frame/trace/view/traces.cljs @@ -171,7 +171,7 @@ (str (count @current-traces))] " traces " (when (pos? (count @current-traces)) - [:span "(" [:button.text-button {:on-click #(do (trace/reset-tracing!) (reset! current-traces []))} "clear"] ")"])] + [:span "(" [:button.text-button {:on-click #(rf/dispatch [:epochs/reset])} "clear"] ")"])] [:th {:style {:text-align "right"}} "meta"]] [:tbody (render-traces visible-traces filter-items filter-input trace-detail-expansions)]]]]))))