status-im
/
status-react
mirror of https://github.com/status-im/status-react.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix handlers-> macro

This commit is contained in:
Roman Volosovskyi 2017-07-11 20:03:49 +03:00
parent 1a997cad39
commit 06bff32f79
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/status_im/utils/handlers.clj
View File

@ -6,7 +6,13 @@
If one handler returns a modified db it will be used as parameters for subsequent handlers." If one handler returns a modified db it will be used as parameters for subsequent handlers."
[& forms] [& forms]
(let [db (gensym "db") (let [db (gensym "db")
event (gensym "event")] event (gensym "event")
new-db (gensym "new-db")]
`(fn [~db ~event] `(fn [~db ~event]
(let [~@(interleave (repeat db) (map #(list 'or (list % db event) db) forms))] (let [~@(interleave (repeat db)
(map (fn [form]
`(let [~new-db (~form ~db ~event)]
(if (map? ~new-db)
~new-db
~db))) forms))]
~db)))) ~db))))