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

Improve ability to modify entities via the REPL

Browse Source
This commit is contained in:
oakes
2014-01-09 17:06:56 -05:00
parent e6d9b752d9
commit 9bb4f0a1e4
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/play_clj/core.clj
View File

@@ -44,11 +44,12 @@
(let [screen (atom {}) (let [screen (atom {})
entities (atom '()) entities (atom '())
execute-fn! (fn [func screen-map] execute-fn! (fn [func screen-map]
(some->> (func screen-map @entities) (let [entities-list @entities]
list (some->> (func screen-map entities-list)
flatten list
(remove nil?) flatten
(reset! entities))) (remove nil?)
(compare-and-set! entities entities-list))))
create-renderer-fn! #(swap! screen assoc :renderer (renderer %)) create-renderer-fn! #(swap! screen assoc :renderer (renderer %))
update-fn! #(swap! screen merge %)] update-fn! #(swap! screen merge %)]
{:screen screen {:screen screen