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

Tweak timing panel layout

This commit is contained in:
Daniel Compton 2018-01-24 21:09:13 +13:00
parent 20ae072b04
commit e1ace4d9a9
2 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/day8/re_frame/trace/view/debug.cljs
View File

@ -5,6 +5,8 @@
(defn render []
[rc/v-box
:style {:overflow-y "auto"}
:size "1 1 auto"
:gap "5px"
:children
[

35
src/day8/re_frame/trace/view/timing.cljs
View File

@ -32,8 +32,8 @@
[".timing-part-panel"
(merge (common/panel-style "3px")
{:padding "12px"})]
{:padding "12px"
:margin common/gs-7s})]
])
(defn timing-tag [label]
@ -60,21 +60,22 @@
[[timing-section "total" @(rf/subscribe [:timing/total-epoch-time])]
[timing-section "event" @(rf/subscribe [:timing/event-processing-time])]
]]
(for [frame (range 1 (inc @(rf/subscribe [:timing/animation-frame-count])))
:let [frame-time (rf/subscribe [:timing/animation-frame-time frame])]]
(list
^{:key (str "af-line" frame)}
[rc/line :class "timing-details--line"]
^{:key (str "af" frame)}
[rc/h-box
:align :center
:class "timing-part-panel"
:gap "25px"
:children
[[rc/label :label (str "Animation frame #" frame)]
[timing-section "total" @frame-time]
#_ [timing-section "subs" 2]
#_ [timing-section "views" 3]]]))
(doall
(for [frame (range 1 (inc @(rf/subscribe [:timing/animation-frame-count])))
:let [frame-time (rf/subscribe [:timing/animation-frame-time frame])]]
(list
;^{:key (str "af-line" frame)}
;[rc/line :class "timing-details--line"]
^{:key (str "af" frame)}
[rc/h-box
:align :center
:class "timing-part-panel"
:gap "25px"
:children
[[rc/label :label (str "Animation frame #" frame)]
[timing-section "total" @frame-time]
#_[timing-section "subs" 2]
#_[timing-section "views" 3]]])))
[rc/line :class "timing-details--line"]