status-im
/
re-frame-10x
mirror of https://github.com/status-im/re-frame-10x.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Add experimental panels

This commit is contained in:
Daniel Compton 2018-02-14 14:33:49 +13:00
parent b0a2fb07ca
commit 35d43ea761
3 changed files with 50 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/day8/re_frame/trace/view/code.cljs Normal file
View File

@ -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"]]])

12
src/day8/re_frame/trace/view/container.cljs
View File

@ -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])]]]))

31
src/day8/re_frame/trace/view/parts.cljs Normal file
View File

@ -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)
]])