From c11b5159fe19e2bc5b3660d14ba34480edccb623 Mon Sep 17 00:00:00 2001 From: oakes Date: Fri, 10 Jan 2014 19:35:52 -0500 Subject: [PATCH] Rename function again --- src/play_clj/core_global.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/play_clj/core_global.clj b/src/play_clj/core_global.clj index 3e73d36..3af9bb2 100644 --- a/src/play_clj/core_global.clj +++ b/src/play_clj/core_global.clj @@ -34,14 +34,14 @@ :y (.getY ^Input (Gdx/input)) nil)) -(defmacro keycode +(defmacro key-code [key] `~(symbol (str utils/gdx-package ".Input$Keys/" (utils/key->static-field key)))) (defmacro is-pressed? [key] - `(.isKeyPressed ^Input (Gdx/input) (keycode ~key))) + `(.isKeyPressed ^Input (Gdx/input) (key-code ~key))) (defn- input-processor [{:keys [on-key-down on-key-typed on-key-up on-mouse-moved