From 3117bb7815cb381400bec0b7a5fd27cd04207144 Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Wed, 9 Apr 2014 20:00:35 -0400
Subject: [PATCH] Add bundle? function

---
 src/play_clj/core_utils.clj | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/play_clj/core_utils.clj b/src/play_clj/core_utils.clj
index a6eed46..3cc19b8 100644
--- a/src/play_clj/core_utils.clj
+++ b/src/play_clj/core_utils.clj
@@ -19,6 +19,11 @@ override the equivalent keys in each entity when being drawn.
   [& entities]
   (BundleEntity. entities))
 
+(defn bundle?
+  "Returns true if `entity` is a `bundle`."
+  [entity]
+  (isa? (type entity) BundleEntity))
+
 (defn screenshot!
   "Captures a screenshot and either returns it as a `pixmap` or saves it to the
 specified path.