A requestAnimationFrame loop that's useful as a game loop.

raf-loop.cljs

(defn raf-loop [func]
  (let [stop (atom false)
        id (atom nil)]
    (reset! id (.requestAnimationFrame js/window
                 (fn helper [& args]
                   (when-not @stop
                     (reset! id (.requestAnimationFrame js/window helper))
                     (try
                       (apply func args)
                       (catch js/Error ex
                         (reset! stop true)
                         (throw ex)))))))
    #(reset! stop true)))