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 {
margin: 10px 0 0 10px;
}
#--re-frame-trace-- .trace-details {
cursor: pointer;
}

View File

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

View File

@ -199,11 +199,13 @@
(.toFixed duration 1) " ms"]]
(when show-row?
[:tr {:key (str id "-details")}
[:td {:col-span 3} (let [tag-str (with-out-str (pprint/pprint tags))
string-size-limit 400]
(if (< string-size-limit (count tag-str))
(str (subs tag-str 0 string-size-limit) " ...")
tag-str))]]))))))
[: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]
(if (< string-size-limit (count tag-str))
(str (subs tag-str 0 string-size-limit) " ...")
tag-str))]]))))))
(defn render-trace-panel []
(let [filter-input (r/atom "")