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

Add bang to function

Browse Source
This commit is contained in:
oakes
2014-01-05 13:59:22 -05:00
parent 266d349947
commit 13ab877966
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/play_clj/core.clj
View File

@@ -26,7 +26,7 @@
on-pause dummy on-resize dummy on-resume dummy}}]
(let [screen (atom {})
entities (atom '())
execute (fn [func screen-map]
execute-fn! (fn [func screen-map]
(some->> (func screen-map @entities)
list
flatten
@@ -41,17 +41,17 @@
:delta-time 0
:create-renderer create-renderer-fn!
:create-camera create-camera-fn!)
(execute on-show)))
(execute-fn! on-show)))
(render [delta-time]
(->> (swap! screen (fn [val]
(assoc val
:total-time (+ (:total-time val) delta-time)
:delta-time delta-time)))
(execute on-render)))
(hide [] (execute on-hide @screen))
(pause [] (execute on-pause @screen))
(resize [w h] (execute on-resize @screen))
(resume [] (execute on-resume @screen)))))
(execute-fn! on-render)))
(hide [] (execute-fn! on-hide @screen))
(pause [] (execute-fn! on-pause @screen))
(resize [w h] (execute-fn! on-resize @screen))
(resume [] (execute-fn! on-resume @screen)))))
(defmacro defscreen
[n & {:keys [] :as options}]