diff --git a/src/day8/re_frame/trace/view/code.cljs b/src/day8/re_frame/trace/view/code.cljs new file mode 100644 index 0000000..2803f99 --- /dev/null +++ b/src/day8/re_frame/trace/view/code.cljs @@ -0,0 +1,9 @@ +(ns day8.re-frame.trace.view.code + (:require [day8.re-frame.trace.utils.re-com :as rc] + [mranderson047.re-frame.v0v10v2.re-frame.core :as rf])) + +(defn render [] + (let [code-traces (rf/subscribe [:epochs/current-code-traces])]) + [rc/v-box + :children + [[:h1 "Code"]]]) diff --git a/src/day8/re_frame/trace/view/container.cljs b/src/day8/re_frame/trace/view/container.cljs index 56883e3..828e9c2 100644 --- a/src/day8/re_frame/trace/view/container.cljs +++ b/src/day8/re_frame/trace/view/container.cljs @@ -7,6 +7,8 @@ [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.code :as code] + [day8.re-frame.trace.view.parts :as parts] [day8.re-frame.trace.view.timing :as timing] [day8.re-frame.trace.view.debug :as debug] [day8.re-frame.trace.view.settings :as settings] @@ -136,6 +138,10 @@ :children [(tab-button :event "Event") (tab-button :app-db "app-db") (tab-button :subs "Subs") + (when (:debug? opts) + (tab-button :code "Code")) + (when (:debug? opts) + (tab-button :parts "Parts")) ;(tab-button :views "Views") (tab-button :traces "Trace") (tab-button :timing "Timing") @@ -149,7 +155,7 @@ [rc/v-box :size "auto" :style {:margin-left common/gs-19s - :overflow-y (if (contains? #{:timing :debug :event :subs :settings} @selected-tab) + :overflow-y (if (contains? #{:timing :debug :event :subs :settings :code :parts} @selected-tab) "auto" "initial") ;:overflow "auto" ;; TODO: Might have to put this back or add scrolling within the panels } @@ -158,8 +164,10 @@ :app-db [app-db/render db/app-db] :subs [subs/render] :views [views/render] - :traces [traces/render] + :code [code/render] + :parts [parts/render] :timing [timing/render] + :traces [traces/render] :debug [debug/render] :settings [settings/render] [app-db/render db/app-db])]]])) diff --git a/src/day8/re_frame/trace/view/parts.cljs b/src/day8/re_frame/trace/view/parts.cljs new file mode 100644 index 0000000..c10cc7a --- /dev/null +++ b/src/day8/re_frame/trace/view/parts.cljs @@ -0,0 +1,31 @@ +(ns day8.re-frame.trace.view.parts + (:require [day8.re-frame.trace.utils.re-com :as rc] + [re-frame.registrar] + [re-frame.events])) + +(defn render-registered [kind] + (for [[k v] (sort-by key (get @re-frame.registrar/kind->id->handler kind))] + ^{:key (str kind "|" k)} + [:pre {:style {:border "1px black solid" + :padding "10px" + :margin-right "10px"}} (prn-str k)])) + +(defn render-subs [kind] + (for [[k v] (sort-by key (get @re-frame.registrar/kind->id->handler kind))] + ^{:key (str kind "|" k)} + [:pre {:style {:border "1px black solid" + :padding "10px" + :margin-right "10px"}} + (prn-str k)])) + +(defn render [] + [rc/v-box + :children [[:h1 "Events"] + (render-registered re-frame.events/kind) + [:h1 "Subscriptions"] + (render-subs re-frame.subs/kind) + [:h1 "FX"] + (render-registered re-frame.fx/kind) + [:h1 "co-fx"] + (render-registered re-frame.cofx/kind) + ]])