   [handler]
   (fn debug-handler
     [db v]
+    (log  "-- New Event ----------------------------------------------------")
     (group "re-frame event: " v)
     (let [new-db  (handler db v)
           diff    (data/diff db new-db)]

      (handler db v)
      (catch :default e     ;; ooops, handler threw
        (do
          (.error js/console e.stack)
          (throw e))))))



  (:require
    [reagent.ratom  :refer [IReactiveAtom]]
    [re-frame.undo  :refer [store-now!]]
    [re-frame.utils :refer [warn log group groupEnd]]
    [clojure.data   :as data]))


