profile_new_exception_handling.clj

(ns scratch.core
  (:require
    [reagent.core :as r]
    [taoensso.tufte :as tufte :refer (defnp p profiled profile)]))


(enable-console-print!)
(tufte/add-basic-println-handler! {})

(defonce props (r/atom {:todos 1}))

(defn c [prop]
  [:strong (str prop)])

(defn hello-world []
  [:div
   [:h1 [c @props]]])

(defonce loaded (atom false))

(when-not @loaded
  (r/render-component [hello-world]
                      (. js/document (getElementById "app")))
  (reset! loaded true))

(defn change-props
  []
  (p
    :change-ratom
    (reset! props {:todos (rand-int 9999999999)}))
  (p
    :flush-reagent
    (r/flush)))

(profile
  {}
  (dotimes [_ 10000]
    (change-props)))