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

@@ -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 "")