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

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;
}

View File

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

View File

@ -199,11 +199,13 @@
(.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
string-size-limit 400] :on-click #(.log js/console (clj->js tags))}
(if (< string-size-limit (count tag-str)) (let [tag-str (with-out-str (pprint/pprint tags))
(str (subs tag-str 0 string-size-limit) " ...") string-size-limit 400]
tag-str))]])))))) (if (< string-size-limit (count tag-str))
(str (subs tag-str 0 string-size-limit) " ...")
tag-str))]]))))))
(defn render-trace-panel [] (defn render-trace-panel []
(let [filter-input (r/atom "") (let [filter-input (r/atom "")