                          (paint [g]
                            (doseq [x (range dim) y (range dim)]
                              (render-tile g @board [x y]))))
-        slide!
-        (fn [& moves]
-          (prn :slide! moves)
-          (send (agent moves)
-                (fn [moves]
-                  (doseq [piece moves]
-                    (dosync (alter board slide piece))
-                    (.repaint panel)
-                    (Thread/sleep 150)))))
+        render (a/chan)
         shuffle-board!
         (fn [dim] (dosync (ref-set board
                                    (create-board dim :shuffle))))]

(ns tile-game.core
  (:use [tile-game board])
  (:import [javax.swing JFrame JPanel]
           [java.awt Color Graphics Graphics2D Dimension Font]
           [java.awt.event KeyAdapter KeyEvent]))

  nil)

;(def slide! (main 5))
