Remove unnecessary quote-unquote

This commit is contained in:
oakes
2014-06-19 17:23:26 -04:00
parent 52e3bcbf19
commit 5b93cc6a00
7 changed files with 17 additions and 17 deletions

View File

@@ -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.

View File

@@ -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*
([]

View File

@@ -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

View File

@@ -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]

View File

@@ -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).

View File

@@ -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

View File

@@ -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)."