notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove unnecessary quote-unquote

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

14
src/play_clj/core_basics.clj
View File

@@ -20,10 +20,10 @@
(color :white) (color :white)
(color 1 1 1 1)" (color 1 1 1 1)"
[& args] [& args]
`~(if (keyword? (first args)) (if (keyword? (first args))
`(Color. ^Color ~(u/gdx-field :graphics :Color `(Color. ^Color ~(u/gdx-field :graphics :Color
(u/key->upper (first args)))) (u/key->upper (first args))))
`(Color. ~@args))) `(Color. ~@args)))
(defmacro color! (defmacro color!
"Calls a single method on a `color`." "Calls a single method on a `color`."
@@ -65,7 +65,7 @@
(gl :gl-triangles)" (gl :gl-triangles)"
[k] [k]
`~(u/gdx-field :graphics :GL20 (u/key->upper k))) (u/gdx-field :graphics :GL20 (u/key->upper k)))
(defmacro graphics! (defmacro graphics!
"Calls a single method on [Gdx.graphics](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/Graphics.html). "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 :a)
(key-code :page-down)" (key-code :page-down)"
[k] [k]
`~(u/gdx-field "Input$Keys" (u/key->upper k))) (u/gdx-field "Input$Keys" (u/key->upper k)))
(defmacro key-pressed? (defmacro key-pressed?
"Returns a boolean indicating if the key cooresponding to `k` is being pressed. "Returns a boolean indicating if the key cooresponding to `k` is being pressed.
@@ -126,7 +126,7 @@
(button-code :left)" (button-code :left)"
[k] [k]
`~(u/gdx-field "Input$Buttons" (u/key->upper k))) (u/gdx-field "Input$Buttons" (u/key->upper k)))
(defmacro button-pressed? (defmacro button-pressed?
"Returns a boolean indicating if the button cooresponding to `k` is being pressed. "Returns a boolean indicating if the button cooresponding to `k` is being pressed.

2
src/play_clj/core_graphics.clj
View File

@@ -29,7 +29,7 @@
(shape-type :filled)" (shape-type :filled)"
[k] [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* (defn shape*
([] ([]

4
src/play_clj/core_utils.clj
View File

@@ -77,12 +77,12 @@ specified path.
(scaling :fill)" (scaling :fill)"
[k] [k]
`~(u/gdx-field :utils :Scaling k)) (u/gdx-field :utils :Scaling k))
(defmacro usage (defmacro usage
"Returns a static field in [VertexAttributes.Usage](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/VertexAttributes.Usage.html)." "Returns a static field in [VertexAttributes.Usage](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/VertexAttributes.Usage.html)."
[k] [k]
`~(u/gdx-field :graphics "VertexAttributes$Usage" (u/key->pascal k))) (u/gdx-field :graphics "VertexAttributes$Usage" (u/key->pascal k)))
; timers ; timers

2
src/play_clj/g2d.clj
View File

@@ -194,7 +194,7 @@
(play-mode :loop)" (play-mode :loop)"
[k] [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* (defn animation*
[duration textures] [duration textures]

6
src/play_clj/g3d.clj
View File

@@ -170,9 +170,9 @@ object created by an external application.
(attribute-type :color :diffuse)" (attribute-type :color :diffuse)"
[type k] [type k]
`~(u/gdx-field :graphics :g3d :attributes (u/gdx-field :graphics :g3d :attributes
(str (u/key->pascal type) "Attribute") (str (u/key->pascal type) "Attribute")
(u/key->pascal k))) (u/key->pascal k)))
(defmacro attribute! (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). "Calls a static method in a subclass of [Attribute](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/graphics/g3d/Attribute.html).

4
src/play_clj/math.clj
View File

@@ -19,7 +19,7 @@
(interpolation :bounce)" (interpolation :bounce)"
[k] [k]
`~(u/gdx-class :math :Interpolation (u/key->pascal k))) (u/gdx-class :math :Interpolation (u/key->pascal k)))
(defmacro intersector! (defmacro intersector!
"Calls a single static method on [Intersector](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/math/Intersector.html). "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)" (plane-side :back)"
[k] [k]
`~(u/gdx-field :math "Plane$PlaneSide" (u/key->pascal k))) (u/gdx-field :math "Plane$PlaneSide" (u/key->pascal k)))
; bezier ; bezier

2
src/play_clj/ui.clj
View File

@@ -57,7 +57,7 @@ based on the file at `path`.
(align :center)" (align :center)"
[k] [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! (defn cell!
"Calls a single method on a [Cell](https://github.com/libgdx/libgdx/blob/master/gdx/src/com/esotericsoftware/tablelayout/Cell.java)." "Calls a single method on a [Cell](https://github.com/libgdx/libgdx/blob/master/gdx/src/com/esotericsoftware/tablelayout/Cell.java)."