 (defonce app-state (atom {:text "Welocome to tic-tac-toe!!"
                           :board (new-board board-size)
                           :status :in-progress}))
-
-(prn (new-board board-size))
 
 (defn free-spots [board]
   (for  [i (range board-size)

    (for [i (range board-size)] (horizontal board i))
    (for [i (range board-size)] (vertical board i))))

(defn winning-by? [player line]
  (every? #(= % player) (take winning-k line)))


(defn computer-move [board]
  (let [move (rand-nth (free-spots board))]
    (assoc-in board move "O")))

(defn block-attempt [board]
  ())

(defn blank [i j]
      [:rect {:width 0.95
