              :on-mouse-move on-mouse-move}
             [:rect {:width width :height height 
                 :style {:fill "gray"}}]
-            [:g.critters (wrap-map module-critter critters width height)]]))
+            [:g.critters (wrap-map module-critter critters)]]))
 
 (defn module-app-root []
     [:section.module-app-root

(defn on-mouse-move [e]
    (let [  x   (.-clientX e)
            y   (.-clientY e)]
        ; (println x y)
        (swap! app-state assoc :mouse { :x x :y y})))


(defn module-critter [critter width height] 
    (let [{:keys [x y]} critter]
        [:g.module-critter 
            {:style {:transition "transform 500ms"
                     :transform (translate x y)}}
            [:circle {:r 5 :style {:fill "brown"}}]]))

(defn module-critter-pen []
    (let [{:keys [width height critters]} @app-state]

(reagent/render-component [module-app-root]
                          (. js/document (getElementById "app")))

(defonce do-app-loop (app-loop!))


