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/common/src/play_clj/core.clj
+++ b/common/src/play_clj/core.clj
@@ -91,7 +91,11 @@
  [^Game game ^Screen screen]
  (.setScreen game screen))

-(defn create-game
+(defn defgame*
  [{:keys [start-screen]}]
  (proxy [Game] []
    (create [] (when start-screen (set-screen! this start-screen)))))
+
+(defmacro defgame
+  [name & {:keys [] :as options}]
+  `(def ~name (defgame* ~options)))