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 all tags, but limit size to 400 characters 

This prevents the system from completely blowing up if large events are
dispatched.
This commit is contained in:
Daniel Compton 2017-08-25 09:15:23 +12:00
parent ec946ea7eb
commit a989ad0580
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -179,9 +179,11 @@
(.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} (with-out-str (pprint/pprint (if-let [params (:event tags)] [:td {:col-span 3} (let [tag-str (with-out-str (pprint/pprint tags))
params string-size-limit 400]
(dissoc tags :query-v :duration))))]])))))) (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 "")