little cleanups

src/hottub/core.clj

@@ -49,7 +49,7 @@
     :drag (gs/update-entity
            (update-in entity [:blobs blobid]
                       #(into % (blob/screen-pos-to-blob (:mousex input) (:mousey input) entity))))
-    (println event)))
+    nil))
 
 (defn- update-blobs [inputs]
   (doseq [input inputs]
@@ -67,9 +67,7 @@
     (doseq [blob (vals (:blobs blobs))]
       (let [{:keys [x y]}
               (blob/blob-pos-to-screen blob blobs)]
-        ;(println x y)
-        (.fill g (org.newdawn.slick.geom.Circle. x y 5)))
-      )))
+        (.fill g (org.newdawn.slick.geom.Circle. x y 10))))))
 
 (defn update-gs-at [ts inputs]
   (do

src/hottub/gs.clj

@@ -78,8 +78,8 @@
 (defn assoc-in-entity [id keys value]
   (set-entity id (assoc-in (entity id) keys value)))
 
-(defn update-in-entity [id keys fn]
-  (set-entity id (update-in (entity id) keys fn)))
+(defn update-in-entity [id keys fn & args]
+  (set-entity id (apply update-in (entity id) keys fn args)))
 
 (defn remove-entity [value]
   (set-entity (::id value) nil))