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

Print trace details to console on click 

- fixes #56
This commit is contained in:
Saskia Lindner 2017-08-31 15:19:18 +02:00
parent 04e86a84a4
commit 9a4072ddf8
3 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
resources/day8/re_frame/trace/main.css
View File

@ -98,3 +98,6 @@
#--re-frame-trace-- .filter-control { #--re-frame-trace-- .filter-control {
margin: 10px 0 0 10px; margin: 10px 0 0 10px;
} }
#--re-frame-trace-- .trace-details {
cursor: pointer;
}

4
resources/day8/re_frame/trace/main.less
View File

@ -105,4 +105,8 @@
.filter-control { .filter-control {
margin: 10px 0 0 10px; margin: 10px 0 0 10px;
} }
.trace-details {
cursor: pointer;
}
} }

4
src/day8/re_frame/trace.cljs
View File

@ -199,7 +199,9 @@
(.toFixed duration 1) " ms"]] (.toFixed duration 1) " ms"]]
(when show-row? (when show-row?
[:tr {:key (str id "-details")} [:tr {:key (str id "-details")}
[:td {:col-span 3} (let [tag-str (with-out-str (pprint/pprint tags)) [:td.trace-details {:col-span 3
:on-click #(.log js/console (clj->js tags))}
(let [tag-str (with-out-str (pprint/pprint tags))
string-size-limit 400] string-size-limit 400]
(if (< string-size-limit (count tag-str)) (if (< string-size-limit (count tag-str))
(str (subs tag-str 0 string-size-limit) " ...") (str (subs tag-str 0 string-size-limit) " ...")