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

Remove unnecessary duplication

Browse Source
This commit is contained in:
oakes
2013-12-29 23:16:10 -05:00
parent cbf8dfd85a
commit df7ca4f1d4
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
common/src/play_clj/global.clj
View File

@@ -15,7 +15,6 @@
:width `(.getWidth (Gdx/graphics)) :width `(.getWidth (Gdx/graphics))
:height `(.getHeight (Gdx/graphics)) :height `(.getHeight (Gdx/graphics))
:is-fullscreen? `(.isFullscreen (Gdx/graphics)) :is-fullscreen? `(.isFullscreen (Gdx/graphics))
:is-touched? `(.isTouched (Gdx/input))
:x `(.getX (Gdx/input)) :x `(.getX (Gdx/input))
:y `(.getY (Gdx/input)) :y `(.getY (Gdx/input))
nil)) nil))
@@ -52,6 +51,6 @@
(defmacro is-touched? (defmacro is-touched?
([] ([]
`(game :is-touched?)) `(.isTouched (Gdx/input)))
([key] ([key]
`(and (game :is-touched?) ~(resolve-touch key)))) `(and (is-touched?) ~(resolve-touch key))))