Advertisement
Guest User

Untitled

a guest
Mar 1st, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.31 KB | None | 0 0
  1. (defn render-cell
  2. "Dispatch the rendering of the cell based on the player"
  3. [[coord owner :as cell] on-move]
  4. (let [renderer (case owner
  5. :owner/cross render-cross
  6. :owner/circle render-circle
  7. render-square)]
  8. (renderer coord {:on-click #(on-move coord)})))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement