petukhov / super-tetris Goto Github PK

(go
  (loop [state initial-state]
    (let [last-event [(<! events-chan)]
          {:keys [should-rerender? new-state]} (update-state-after-event state last-event)]
      (.requestAnimationFrame js/window #(when should-rerender? (render new-state)))
      (recur new-state))))

((fn animation-loop [state]
   (go
     (let [last-event (alts! [events-chan] :default :nothing)
           {:keys [should-rerender? new-state]} (update-state-after-event state last-event)]
       (when should-rerender? (render new-state))
       (.requestAnimationFrame js/window (partial animation-loop new-state)))))
  initial-state)