triboard.view.render-cell.cljs

(def relative-size 0.9)
(def border-size (/ (- 1 relative-size) 2))

(defn- rect-cell
  [[x y] player options]
  [:rect.cell
   (merge
     {:class (str "cell--" (name player))
      :x (+ border-size x) :width relative-size
      :y (+ border-size y) :height relative-size}
     options)])

(defn- empty-cell
  [[x y :as position] interactions player]
  (rect-cell position player
    {:on-click #(i/on-player-move interactions x y)}))