From a989ad05809580e1758ba40880e7b6a038e7f369 Mon Sep 17 00:00:00 2001 From: Daniel Compton Date: Fri, 25 Aug 2017 09:15:23 +1200 Subject: [PATCH] Print all tags, but limit size to 400 characters This prevents the system from completely blowing up if large events are dispatched. --- src/day8/re_frame/trace.cljs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/day8/re_frame/trace.cljs b/src/day8/re_frame/trace.cljs index bfa5a16..a3bc036 100644 --- a/src/day8/re_frame/trace.cljs +++ b/src/day8/re_frame/trace.cljs @@ -179,9 +179,11 @@ (.toFixed duration 1) " ms"]] (when show-row? [:tr {:key (str id "-details")} - [:td {:col-span 3} (with-out-str (pprint/pprint (if-let [params (:event tags)] - params - (dissoc tags :query-v :duration))))]])))))) + [: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))]])))))) (defn render-trace-panel [] (let [filter-input (r/atom "")