Add experimental panels
This commit is contained in:
parent
b0a2fb07ca
commit
35d43ea761
|
@ -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"]]])
|
|
@ -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])]]]))
|
||||
|
|
|
@ -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)
|
||||
]])
|
Loading…
Reference in New Issue