diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj index 85b1cc7..21f3d82 100644 --- a/src/play_clj/core.clj +++ b/src/play_clj/core.clj @@ -22,14 +22,11 @@ (defn defscreen* [{:keys [on-show on-render on-hide on-pause on-resize on-resume] :or {on-show dummy on-render dummy on-hide dummy - on-pause dummy on-resize dummy on-resume dummy} - :as options}] + on-pause dummy on-resize dummy on-resume dummy}}] (let [screen (atom {})] (proxy [Screen] [] (show [] (on-show (swap! screen assoc - :width (game :width) - :height (game :height) :total-time 0 :delta-time 0 :set-entities #(swap! screen assoc :entities %) @@ -43,7 +40,7 @@ :delta-time delta-time))) (hide [] (on-hide @screen)) (pause [] (on-pause @screen)) - (resize [w h] (on-resize (swap! screen assoc :width w :height h))) + (resize [w h] (on-resize @screen)) (resume [] (on-resume @screen))))) (defmacro defscreen @@ -51,8 +48,7 @@ `(defonce ~name (defscreen* ~options))) (defn defgame* - [{:keys [on-create] - :or {on-create dummy}}] + [{:keys [on-create] :or {on-create dummy}}] (proxy [Game] [] (create [] (on-create this))))