   `(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))))
 

                          :delta-time delta-time)))
      (hide [] (on-hide @screen))
      (pause [] (on-pause @screen))
      (resize [w h] (on-resize (swap! screen assoc :width w :height h)))
      (resume [] (on-resume @screen)))))

(defmacro defscreen

(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}}]
  (let [screen (atom {})]
    (proxy [Screen] []
      (show []
        (on-show (swap! screen assoc
                        :total-time 0
                        :delta-time 0
                        :set-entities #(swap! screen assoc :entities %)
