          (partition 4 cells))]
        ; text link to reset the game
        [:p [:a {:class "new-game" :on-click #(new-game)
-                :href "#"} "New game"]]])))
+                :href "#"} "New game"]]
+       [:p [:a {:class "new-game" :on-click #(clicked)
+                :href "#"} "Inc"]]])))
 
 (defn current-page []
   [:div [(session/get :current-page)]])

  []
  ; game is won when count of matches is equal to half of gameboard, because
  ; cells contain duplicate numbers
  (= (/ (count @gameboard) 2) (count @matched)))

(defn add-cell [n]
  ; add a numbered cell with a unique id
  (let [id (swap! counter inc)]
    (swap! gameboard assoc id {:id id :number n :color (colors n)})))

(defn new-game
  []
  ; game starts out with an empty board, no cell selected, nothing hilighted,
  ; and no matches
  (reset! gameboard (sorted-map))
  (reset! selected nil)
  (reset! matched #{})

(defn mount-root []
  (reagent/render [board-page] (.getElementById js/document "app")))

(new-game)

(defn init! []
  (accountant/configure-navigation!)
  (accountant/dispatch-current!)
  (mount-root))
