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

Add run! function

Browse Source
This commit is contained in:
oakes
2014-05-20 03:42:20 -04:00
parent 1c3a8150fe
commit a529a19ef2
1 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/play_clj/core.clj
View File

@@ -85,6 +85,7 @@
; return a map with all values related to the screen ; return a map with all values related to the screen
{:screen screen {:screen screen
:entities entities :entities entities
:options options
:show (fn [] :show (fn []
(swap! screen assoc (swap! screen assoc
:total-time 0 :total-time 0
@@ -442,14 +443,14 @@ via the screen map.
`screen` maps in the order they were provided. `screen` maps in the order they were provided.
(set-screen! my-game main-screen text-screen)" (set-screen! my-game main-screen text-screen)"
[^Game game & screens] [^Game game & screen-objects]
(let [add-inputs! (fn [] (let [add-inputs! (fn []
(input! :set-input-processor (InputMultiplexer.)) (input! :set-input-processor (InputMultiplexer.))
(doseq [{:keys [screen]} screens] (doseq [{:keys [screen]} screen-objects]
(doseq [[_ listener] (:input-listeners @screen)] (doseq [[_ listener] (:input-listeners @screen)]
(add-input! listener)))) (add-input! listener))))
run-fn! (fn [k & args] run-fn! (fn [k & args]
(doseq [screen screens] (doseq [screen screen-objects]
(apply (get screen k) args)))] (apply (get screen k) args)))]
(.setScreen game (reify Screen (.setScreen game (reify Screen
(show [this] (add-inputs!) (run-fn! :show)) (show [this] (add-inputs!) (run-fn! :show))
@@ -465,11 +466,11 @@ via the screen map.
handle errors and perform other custom actions each time they run. handle errors and perform other custom actions each time they run.
; default behavior ; default behavior
(set-screen-wrapper! (fn [screen screen-fn] (set-screen-wrapper! (fn [screen-atom screen-fn]
(screen-fn))) (screen-fn)))
; if there is an error, print it out and switch to a blank screen ; if there is an error, print it out and switch to a blank screen
; (this is useful because it makes error recovery easier in a REPL) ; (this is useful because it makes error recovery easier in a REPL)
(set-screen-wrapper! (fn [screen screen-fn] (set-screen-wrapper! (fn [screen-atom screen-fn]
(try (screen-fn) (try (screen-fn)
(catch Exception e (catch Exception e
(.printStackTrace e) (.printStackTrace e)
@@ -485,3 +486,15 @@ is the atom storing the screen map behind the scenes. Returns the updated
(update! screen :renderer (stage))" (update! screen :renderer (stage))"
[{:keys [update-fn!] :as screen} & args] [{:keys [update-fn!] :as screen} & args]
(update-fn! assoc args)) (update-fn! assoc args))
(defn run!
"Runs a function defined in another screen. You may optionally pass a series
of key-value pairs, which will be given to the function via its screen map.
(run! my-other-screen :on-show)
(run! my-other-screen :on-change-color :color :blue)"
[screen-object fn-name & options]
(let [execute-fn! (-> screen-object :screen deref :execute-fn!)
screen-fn (-> screen-object :options (get fn-name))]
(apply execute-fn! screen-fn options)
nil))