Remove platform-specific projects

src/play_clj/core_global.clj

@@ -0,0 +1,43 @@
+(in-ns 'play-clj.core)
+
+; graphics
+
+(defn clear!
+  ([]
+    (clear! 0 0 0 0))
+  ([r g b a]
+    (doto (Gdx/gl)
+      (.glClearColor r g b a)
+      (.glClear GL20/GL_COLOR_BUFFER_BIT))))
+
+(defn game*
+  [key]
+  (case key
+    :width `(.getWidth (Gdx/graphics))
+    :height `(.getHeight (Gdx/graphics))
+    :is-fullscreen? `(.isFullscreen (Gdx/graphics))
+    :is-touched? `(.isTouched (Gdx/input))
+    :x `(.getX (Gdx/input))
+    :y `(.getY (Gdx/input))
+    nil))
+
+(defmacro game
+  [key]
+  `~(game* key))
+
+; input
+
+(defn resolve-key
+  [key]
+  (if (keyword? key)
+    (case key
+      :up Input$Keys/DPAD_UP
+      :down Input$Keys/DPAD_DOWN
+      :left Input$Keys/DPAD_LEFT
+      :right Input$Keys/DPAD_RIGHT
+      nil)
+    key))
+
+(defmacro is-pressed?
+  [key]
+  `(.isKeyPressed (Gdx/input) ~(resolve-key key)))