notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Clean up dummy functions

Browse Source
This commit is contained in:
oakes
2014-01-01 03:52:32 -05:00
parent c8b539d513
commit bd36cff1e3
1 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/play_clj/core.clj
View File

@@ -17,17 +17,14 @@
(load "core_global") (load "core_global")
(load "core_render") (load "core_render")
(defn- dummy [_])
(defn defscreen* (defn defscreen*
[{:keys [on-show on-render on-hide on-pause on-resize on-resume] [{: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}] :as options}]
(let [screen (atom {}) (let [screen (atom {})]
dummy-fn (fn [s])
on-show (or on-show dummy-fn)
on-render (or on-render dummy-fn)
on-hide (or on-hide dummy-fn)
on-pause (or on-pause dummy-fn)
on-resize (or on-resize dummy-fn)
on-resume (or on-resume dummy-fn)]
(proxy [Screen] [] (proxy [Screen] []
(show [] (show []
(on-show (swap! screen assoc (on-show (swap! screen assoc