From f094a81651922f5a5515118c0788937f47282b2c Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Fri, 4 Apr 2014 03:16:08 -0400
Subject: [PATCH] Bring back shape-type

---
 doclet/resources/classes.edn   | 1 +
 src/play_clj/core_graphics.clj | 7 +++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/doclet/resources/classes.edn b/doclet/resources/classes.edn
index f0a66c2..a809ddf 100644
--- a/doclet/resources/classes.edn
+++ b/doclet/resources/classes.edn
@@ -177,6 +177,7 @@
  "SelectBox.SelectBoxStyle" {"style :select-box" :constructors}
  "ShapeRenderer" {"shape" :methods
                   "shape!" :methods}
+ "ShapeRenderer.ShapeType" {"shape-type" :static-fields}
  "Skin" {"skin" :methods
          "skin!" :methods}
  "SkinLoader" {"loader :skin" :methods
diff --git a/src/play_clj/core_graphics.clj b/src/play_clj/core_graphics.clj
index b677356..b010b5a 100644
--- a/src/play_clj/core_graphics.clj
+++ b/src/play_clj/core_graphics.clj
@@ -14,7 +14,10 @@
   [object k & options]
   `(u/call! ^Pixmap ~object ~k ~@options))
 
-(defmacro shape-type*
+(defmacro shape-type
+  "Returns a static field from [ShapeRenderer.ShapeType](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/glutils/ShapeRenderer.ShapeType.html).
+
+    (shape-type :filled)"
   [k]
   `~(u/gdx-field :graphics :glutils "ShapeRenderer$ShapeType" (u/key->pascal k)))
 
@@ -41,7 +44,7 @@
         Throwable.
         throw))
   `(let [entity# ~(if (keyword? type)
-                    `(assoc (shape*) :type (shape-type* ~type))
+                    `(assoc (shape*) :type (shape-type ~type))
                     type)
          ^ShapeRenderer object# (u/get-obj entity# :object)]
      (assoc entity# :draw! (fn [] (u/calls! object# ~@options)))))