Remove unnecessary quote-unquote
This commit is contained in:
@@ -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.
|
||||
|
||||
@@ -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*
|
||||
([]
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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]
|
||||
|
||||
@@ -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).
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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)."
|
||||
|
||||
Reference in New Issue
Block a user