       [:div
        [:button {:on-click #(go (>! go-evolve :pause))} "Pause/Play"]
        [:button {:on-click #(go (>! go-evolve :kill))} "Stop"]
-       [:button {:on-click #(swap! state assoc :cells r-pentamino)} "Reset"]
+       [:button {:on-click #(reset-life! state)} "Reset"]
        [:button {:on-click #(swap! state update :size inc)} "+"]
        [:button {:on-click #(swap! state update :size dec)} "-"]]
-      [:svg {:width (:width s)
-             :height (:height s)
-             :viewBox "-250 -250 500 500"}
+      [:svg.life {:width (:width s)
+                  :height (:height s)
+                  :viewBox "-250 -250 500 500"
+                  :on-click #(prn (.-clientX %))}
        (for [[x y] (:cells s)]
          ^{:key (str [x y])}
          [:rect  {:width (- (:size s) 1)

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

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

                  :x (* (:size s) x)
                  :y (* (:size s) y)}])]
      [:div
       [:p (str "Generation: " (:generation s) " | 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."]]]))
