use-atom.cljs

(defn use-atom
  "Creates a subscription to the given atom and will put its state inside a setState.
  Returns the current state."
  [a]
  (let [[state set-state] (use-state @a)]
    (react/useEffect
      (fn []
         (let [k (-> gensym str keyword)]
           (add-watch a k (fn [k r old-state new-state]
                            (set-state new-state)))
           (fn []
             (remove-watch a k))))
      #js [])
    state))