Fix macros
This commit is contained in:
@@ -21,7 +21,7 @@
|
|||||||
(color 1 1 1 1)"
|
(color 1 1 1 1)"
|
||||||
[& args]
|
[& args]
|
||||||
`~(if (keyword? (first args))
|
`~(if (keyword? (first args))
|
||||||
`(Color. ^Color (u/static-field-upper :graphics :Color ~(first args)))
|
`(Color. ^Color (u/static-upper :graphics :Color ~(first args)))
|
||||||
`(Color. ~@args)))
|
`(Color. ~@args)))
|
||||||
|
|
||||||
; interop
|
; interop
|
||||||
@@ -99,7 +99,7 @@
|
|||||||
(key-code :a)
|
(key-code :a)
|
||||||
(key-code :page-down)"
|
(key-code :page-down)"
|
||||||
[k]
|
[k]
|
||||||
`~(u/static-upper "Input$Keys" k))
|
`(u/static-upper "Input$Keys" ~k))
|
||||||
|
|
||||||
(defmacro is-pressed?
|
(defmacro is-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
|
||||||
|
|||||||
@@ -144,7 +144,7 @@
|
|||||||
(play-mode :normal)
|
(play-mode :normal)
|
||||||
(play-mode :reversed)"
|
(play-mode :reversed)"
|
||||||
[key]
|
[key]
|
||||||
`(u/static-field-upper :graphics :g2d :Animation ~key))
|
`(u/static-upper :graphics :g2d :Animation ~key))
|
||||||
|
|
||||||
(defn animation*
|
(defn animation*
|
||||||
"The function version of `animation`"
|
"The function version of `animation`"
|
||||||
|
|||||||
@@ -45,7 +45,7 @@ based on the file at `path`
|
|||||||
|
|
||||||
(align :center)"
|
(align :center)"
|
||||||
[k]
|
[k]
|
||||||
`(u/static-field-lower :scenes :scene2d :utils :Align ~k))
|
`(u/static-lower :scenes :scene2d :utils :Align ~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)
|
||||||
|
|||||||
@@ -100,7 +100,7 @@ pascal case"
|
|||||||
(scaling :stretch-x)
|
(scaling :stretch-x)
|
||||||
(scaling :stretch-y)"
|
(scaling :stretch-y)"
|
||||||
[k]
|
[k]
|
||||||
`(static-field-lower :utils :Scaling ~k))
|
`(static-lower :utils :Scaling ~k))
|
||||||
|
|
||||||
; java interop
|
; java interop
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user