                  (dorun (map-indexed #(on-cell %1 y %2) row)))]
     (dorun (map-indexed on-row world))))
 
-
-(defn draw-player! [player {:keys [ctx]}]
-  (draw-rect! ctx [0 0 0] (* 10 10) (* 10 10) 20 20))
+(defn draw-player! [{:keys [pos]} {:keys [ctx]}]
+  (draw-rect! ctx [0 0 0] (* (:x pos) 10) (* (:y pos) 10) 10 10))
 
 (defn render-state! []
   (let [canvas (.getElementById js/document "game")]

(enable-console-print!)

(def state (atom {:world []
                  :player {:pos [0 0]
                           :mov-time [0 0]}}))
(defn setup! []
  (let [world (world/new-simple-world 80 60 20 30 40)]

  (set! (.-fillStyle ctx) (apply hex-color color))
  (.fillRect ctx x y width height))

(defn draw-ten-rect! [ctx color x y]
  (draw-rect! ctx color x y 10 10))

(defn draw-world! [world {:keys [ctx]}]
  (let [on-cell (fn [x y it]
