Merge bundle into internal entities

src/play_clj/core_utils.clj

@@ -10,10 +10,12 @@
 (defn bundle
   "Returns an entity containing other entities. This is a useful way to keep
 related entities together. They will be drawn in the order they appear in the
-internal :entities vector.
+internal :entities vector. Any keys in the bundle, such as :x and :y, will
+override the equivalent keys in each entity when being drawn.
 
-    (bundle (shape :filled) (texture \"image.png\"))
+    (bundle (shape :filled) (shape :line))
-    (assoc (bundle) :entities [])"
+    (assoc (bundle (shape :filled) (shape :line))
+           :x 100 :y 100)"
   [& entities]
   (BundleEntity. entities))
 

src/play_clj/entities.clj

@@ -75,6 +75,6 @@
     (.end object)))
 
 (defrecord BundleEntity [entities] Entity
-  (draw-entity! [{:keys [entities]} screen batch]
+  (draw-entity! [{:keys [entities] :as entity} screen batch]
     (doseq [e entities]
-      (draw-entity! e screen batch))))
+      (draw-entity! (merge e entity) screen batch))))