SpindleyQ/hottub
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

little cleanups

Browse source
This commit is contained in:
Jeremy Penner 2013-05-08 20:35:53 -04:00
parent c60013f21f
commit ecc4fa4b7e
3 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/hottub/core.clj
View file

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

4
src/hottub/gs.clj
View file

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