Remove platform-specific defgame

2013-12-30 02:25:55 -05:00
parent df7ca4f1d4
commit 5a69b2de39
5 changed files with 9 additions and 45 deletions
--- a/desktop/src/play_clj/native.clj
+++ b/desktop/src/play_clj/native.clj
@@ -1,17 +1 @@
-(ns play-clj.native
-  (:require [play-clj.core :refer :all])
-  (:import [com.badlogic.gdx.backends.lwjgl LwjglApplication]
-           [org.lwjgl.input Keyboard]))
-
-(defmacro defgame
-  [name & {:keys [title width height]
-           :as options}]
-  (let [title (or title "")
-        width (or width 800)
-        height (or height 600)]
-    `(do
-       (def ~name (create-game ~options))
-       (defn ~'-main
-         []
-         (LwjglApplication. ~name ~title ~width ~height true)
-         (Keyboard/enableRepeatEvents true)))))
+(ns play-clj.native)