notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow entities to be stored in maps

Browse Source
This commit is contained in:
oakes
2014-06-19 21:33:16 -04:00
parent 5b93cc6a00
commit fbb4e9f2b5
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/play_clj/entities.clj
View File

@@ -11,11 +11,20 @@
(defprotocol Entity (defprotocol Entity
(draw-entity! [this screen batch] "Draws the entity")) (draw-entity! [this screen batch] "Draws the entity"))
(defn draw-map!
[m screen batch]
(doseq [[k v] m]
(try
(draw-entity! v screen batch)
(catch Exception _))))
(extend-protocol Entity (extend-protocol Entity
clojure.lang.PersistentArrayMap clojure.lang.PersistentArrayMap
(draw-entity! [this screen batch]) (draw-entity! [this screen batch]
(draw-map! this screen batch))
clojure.lang.PersistentHashMap clojure.lang.PersistentHashMap
(draw-entity! [this screen batch]) (draw-entity! [this screen batch]
(draw-map! this screen batch))
nil nil
(draw-entity! [this screen batch])) (draw-entity! [this screen batch]))