diff --git a/src/play_clj/core_basics.clj b/src/play_clj/core_basics.clj index eb7911a..08dccb0 100644 --- a/src/play_clj/core_basics.clj +++ b/src/play_clj/core_basics.clj @@ -20,10 +20,10 @@ (color :white) (color 1 1 1 1)" [& args] - `~(if (keyword? (first args)) - `(Color. ^Color ~(u/gdx-field :graphics :Color - (u/key->upper (first args)))) - `(Color. ~@args))) + (if (keyword? (first args)) + `(Color. ^Color ~(u/gdx-field :graphics :Color + (u/key->upper (first args)))) + `(Color. ~@args))) (defmacro color! "Calls a single method on a `color`." @@ -65,7 +65,7 @@ (gl :gl-triangles)" [k] - `~(u/gdx-field :graphics :GL20 (u/key->upper k))) + (u/gdx-field :graphics :GL20 (u/key->upper k))) (defmacro graphics! "Calls a single method on [Gdx.graphics](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/Graphics.html). @@ -111,7 +111,7 @@ (key-code :a) (key-code :page-down)" [k] - `~(u/gdx-field "Input$Keys" (u/key->upper k))) + (u/gdx-field "Input$Keys" (u/key->upper k))) (defmacro key-pressed? "Returns a boolean indicating if the key cooresponding to `k` is being pressed. @@ -126,7 +126,7 @@ (button-code :left)" [k] - `~(u/gdx-field "Input$Buttons" (u/key->upper k))) + (u/gdx-field "Input$Buttons" (u/key->upper k))) (defmacro button-pressed? "Returns a boolean indicating if the button cooresponding to `k` is being pressed. diff --git a/src/play_clj/core_graphics.clj b/src/play_clj/core_graphics.clj index 31142be..3655605 100644 --- a/src/play_clj/core_graphics.clj +++ b/src/play_clj/core_graphics.clj @@ -29,7 +29,7 @@ (shape-type :filled)" [k] - `~(u/gdx-field :graphics :glutils "ShapeRenderer$ShapeType" (u/key->pascal k))) + (u/gdx-field :graphics :glutils "ShapeRenderer$ShapeType" (u/key->pascal k))) (defn shape* ([] diff --git a/src/play_clj/core_utils.clj b/src/play_clj/core_utils.clj index 13d86be..20c8d16 100644 --- a/src/play_clj/core_utils.clj +++ b/src/play_clj/core_utils.clj @@ -77,12 +77,12 @@ specified path. (scaling :fill)" [k] - `~(u/gdx-field :utils :Scaling k)) + (u/gdx-field :utils :Scaling k)) (defmacro usage "Returns a static field in [VertexAttributes.Usage](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/VertexAttributes.Usage.html)." [k] - `~(u/gdx-field :graphics "VertexAttributes$Usage" (u/key->pascal k))) + (u/gdx-field :graphics "VertexAttributes$Usage" (u/key->pascal k))) ; timers diff --git a/src/play_clj/g2d.clj b/src/play_clj/g2d.clj index 0cc59b8..f5430d6 100644 --- a/src/play_clj/g2d.clj +++ b/src/play_clj/g2d.clj @@ -194,7 +194,7 @@ (play-mode :loop)" [k] - `~(u/gdx-field :graphics :g2d "Animation$PlayMode" (u/key->upper k))) + (u/gdx-field :graphics :g2d "Animation$PlayMode" (u/key->upper k))) (defn animation* [duration textures] diff --git a/src/play_clj/g3d.clj b/src/play_clj/g3d.clj index ffce563..764c9f3 100644 --- a/src/play_clj/g3d.clj +++ b/src/play_clj/g3d.clj @@ -170,9 +170,9 @@ object created by an external application. (attribute-type :color :diffuse)" [type k] - `~(u/gdx-field :graphics :g3d :attributes - (str (u/key->pascal type) "Attribute") - (u/key->pascal k))) + (u/gdx-field :graphics :g3d :attributes + (str (u/key->pascal type) "Attribute") + (u/key->pascal k))) (defmacro attribute! "Calls a static method in a subclass of [Attribute](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g3d/Attribute.html). diff --git a/src/play_clj/math.clj b/src/play_clj/math.clj index 3a6a882..d1c15bf 100644 --- a/src/play_clj/math.clj +++ b/src/play_clj/math.clj @@ -19,7 +19,7 @@ (interpolation :bounce)" [k] - `~(u/gdx-class :math :Interpolation (u/key->pascal k))) + (u/gdx-class :math :Interpolation (u/key->pascal k))) (defmacro intersector! "Calls a single static method on [Intersector](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/math/Intersector.html). @@ -40,7 +40,7 @@ (plane-side :back)" [k] - `~(u/gdx-field :math "Plane$PlaneSide" (u/key->pascal k))) + (u/gdx-field :math "Plane$PlaneSide" (u/key->pascal k))) ; bezier diff --git a/src/play_clj/ui.clj b/src/play_clj/ui.clj index b72cb66..4fb66c8 100644 --- a/src/play_clj/ui.clj +++ b/src/play_clj/ui.clj @@ -57,7 +57,7 @@ based on the file at `path`. (align :center)" [k] - `~(u/gdx-field :scenes :scene2d :utils :Align (u/key->camel k))) + (u/gdx-field :scenes :scene2d :utils :Align (u/key->camel k))) (defn cell! "Calls a single method on a [Cell](https://github.com/libgdx/libgdx/blob/master/gdx/src/com/esotericsoftware/tablelayout/Cell.java)."