 
 (println (str "Reloaded: " (.toLocaleTimeString (js/Date.))))
 
-(def init-pieces
+(defonce init-pieces
   [[\u265C \u265E \u265D \u265B \u265A \u265D \u265E \u265C]
    [\u265F \u265F \u265F \u265F \u265F \u265F \u265F \u265F]
    ["" "" "" "" "" "" "" ""]

  {:text-align "center"
   :font-size (*
               (min (:height data) (:width data))
               0.07)})

(defn slider-view
  "adjusts the size of the board"

       (fn [piece color]
         {:piece piece :color color})
       row-pieces row-colors))
    init-pieces init-colors)
   :white-string-map (string-mapping
                      (range 6 8)
                      (range 8)
                      (map char (range 97 113)))
   :black-string-map (string-mapping
                      (range 2)
                      (range 8)
                      (map char (range 97 113)))
   :turn :white})

(defonce black #{\u265F \u265C \u265E \u265D \u265B \u265A})

(defonce white #{\u2659 \u2656 \u2658 \u2657 \u2655 \u2654})

(defonce app-state (r/atom init-state))
#_(swap! app-state assoc :height 500)
