                :font-family "Verdana" :font-size 0.4 :text-anchor "middle"}
         (str tile)]])))
 
-(defn tile-grid []
+(defn tile-grid [run-solver]
   (let [{:keys [board size analysis-mode]} @app-state
         dim (b/dimension board)]
     [:center

          (slide! key))
        (recur new-cancel)))
    (recur cancel))
  tile-grid)

(def codename
  {37 :left

      (when analysis-mode
        (if (b/solved? board)
          "Solved!"
          [:div
           (str "Suggested Moves: " (b/solve-next board))
           [:div [:button {:on-click run-solver} "Run solver!"]]]))]
     [:p
      "© 2017 Charles L.G. Comstock "
      [:a {:href "https://github.com/dgtized/tile-game"} "(github)"]]]))
