                               :height 500
                               :size 10
                               :speed 150
+                              :generation 0
                               :cells r-pentamino
                               :ctl (chan 0)}))
 

                  :x (* (:size s) x)
                  :y (* (:size s) y)}])]
      [:div
       [:p (str "Cells: " (count (:cells s)))]]]
     [:div.alpha
      [:p "This is an implementation of John Conway's Game of Life in Clojurescript. It begins from the r-pentamino lifeform which evolves into many other lifeforms such as spinners and gliders. Please check out the code on github if you are interested. The link for that is below and this code is in the home.cljs file."]]]))

                       (prn "Stopped!")
                       (do (<! ctl) (recur))))
            (timeout (:speed @state)) (do
                                        (swap! state update :cells evolve)
                                        (swap! state update :generation inc)
                            ;; (update-grid!)
                            (recur))))
    ctl))
;; (swap! state assoc :size 5)
;; (count (:cells @state))

(defn reset-life! [state]
  (swap! state assoc :cells r-pentamino)
  (swap! state assoc :generation 0))

(defn home-page [app-state]
  (let [s @state]
