diff --git a/src/day8/re_frame/trace/view/container.cljs b/src/day8/re_frame/trace/view/container.cljs index 43dd0f4..51a66a7 100644 --- a/src/day8/re_frame/trace/view/container.cljs +++ b/src/day8/re_frame/trace/view/container.cljs @@ -7,6 +7,7 @@ [day8.re-frame.trace.view.subs :as subs] [day8.re-frame.trace.view.views :as views] [day8.re-frame.trace.view.traces :as traces] + [day8.re-frame.trace.view.debug :as debug] [day8.re-frame.trace.view.settings :as settings] [garden.core :refer [css style]] [garden.units :refer [px]] @@ -114,7 +115,8 @@ (tab-button :app-db "app-db") (tab-button :subs "Subs") (tab-button :views "Views") - (tab-button :traces "Trace")]] + (tab-button :traces "Trace") + (tab-button :debug "Debug")]] ]]) [rc/line :color "#EEEEEE"] (when (and external-window? @unloading?) @@ -122,14 +124,15 @@ (when-not (re-frame.trace/is-trace-enabled?) [:h1.host-closed {:style {:word-wrap "break-word"}} "Tracing is not enabled. Please set " [:pre "{\"re_frame.trace.trace_enabled_QMARK_\" true}"] " in " [:pre ":closure-defines"]]) [rc/v-box - :size "auto" - :style {:margin-left common/gs-19s - :overflow "auto"} - :children [(case @selected-tab + :size "auto" + :style {:margin-left common/gs-19s :overflow "auto"} + :children + [(case @selected-tab :overview [overview/render traces] :app-db [app-db/render-state db/app-db] :subs [subs/subs-panel] :views [views/render] :traces [traces/render-trace-panel traces] + :debug [debug/render-debug] :settings [settings/render] [app-db/render-state db/app-db])]]])) diff --git a/src/day8/re_frame/trace/view/debug.cljs b/src/day8/re_frame/trace/view/debug.cljs new file mode 100644 index 0000000..2e7c939 --- /dev/null +++ b/src/day8/re_frame/trace/view/debug.cljs @@ -0,0 +1,22 @@ +(ns day8.re-frame.trace.view.debug + (:require [day8.re-frame.trace.utils.re-com :as rc] + [mranderson047.re-frame.v0v10v2.re-frame.core :as rf] + [day8.re-frame.trace.metamorphic :as metam])) + +(defn render-debug [] + [rc/v-box + :gap "5px" + :children + [ + [rc/label :label (str "Number of matches " (prn-str @(rf/subscribe [:epochs/number-of-matches])))] + [rc/label :label (str "Beginning trace " (prn-str @(rf/subscribe [:epochs/beginning-trace-id])))] + [rc/label :label (str "Ending " (prn-str @(rf/subscribe [:epochs/ending-trace-id])))] + + [rc/label :label "Matches"] + (for [match (:matches @(rf/subscribe [:epochs/epoch-root]))] + [rc/v-box + :style {:border "1px solid black"} + :children (doall (map (fn [event] [rc/label :label (prn-str event)]) (metam/summarise-match match))) + ]) + ]] + )