     (set! (.-restartButton game) restart-button)))
 
 (def ^:dynamic *assets-table*
-                                        ;name    path
+   ;name    path
   [["border"         "assets/reversi-border.png"]
    ["white-piece"    "assets/white-piece.png"]
    ["black-piece"    "assets/black-piece.png"]

        (set! (.-phaserBorder game)
              (assoc-in phaser-border [y x grid-name] pgrid))))))

;; (defn game-loop []
;;   (js/alert "wiwi"))

(defn init-border [game]
  (let [phaser-border (.-phaserBorder game)]
    (set! (.-visible ((rcore/gridth [3 3] phaser-border) "black-piece")) true)
    (set! (.-visible ((rcore/gridth [4 4] phaser-border) "black-piece")) true)
    (set! (.-visible ((rcore/gridth [4 3] phaser-border) "white-piece")) true)
    (set! (.-visible ((rcore/gridth [3 4] phaser-border) "white-piece")) true)
    (set! (.-visible ((rcore/gridth [3 4] phaser-border) "white-piece")) true)
    (set! (.-visible ((rcore/gridth [4 2] phaser-border) "possible-grid")) true)
    (set! (.-visible ((rcore/gridth [3 5] phaser-border) "possible-grid")) true)
    (set! (.-visible ((rcore/gridth [5 3] phaser-border) "possible-grid")) true)
    (set! (.-visible ((rcore/gridth [2 4] phaser-border) "possible-grid")) true)
    (doseq [pos [ [4 2] [3 5] [5 3] [2 4] ]]
      (let [visible-possible-grids-pos (.-visiblePossibleGridsPos game)]
        (set! (.-visiblePossibleGridsPos game)

  (:require [clojure.browser.repl]
            [reversi.core :as rcore]))

(def ^:dynamic *border*  rcore/*default-border*)
(def ^:dynamic *phaser-border* [[] [] [] [] [] [] [] []])
(def ^:dynamic *visible-possible-grids-pos* '())
(def ^:dynamic *default-player-piece* rcore/*black-piece*)
(def ^:dynamic *default-pc-piece* rcore/*white-piece*)
(def *game* (js/Phaser.Game.
