util.clj

(ns re-kindle.util
  (:require [reagent.core :as r]))

(defmacro deftrack [name params* & body]
  `(def ~name
     (partial r/track (fn ~params* ~@body))))



;;; example-usage


(deftrack sum-track [vector-atom]
  (reduce + @vector-atom))


(defn sum-example []
  (let [vatom (r/atom [1 2 3 4])
        sum-atom (sum-track vatom)]
    (fn []
      [:div
       (pr-str @vatom)
       (pr-str @sumatom)
       [:button {:on-click #(swap! vatom conj (rand 10))}]
       ]
      )
    )

  )