status-im/re-frame
2
0
Fork 0
mirror of https://github.com/status-im/re-frame.git synced 2025-02-23 15:28:09 +00:00
Code Issues Projects Releases Wiki Activity

CLJC: fix subs handlers to supply correct arity

Browse Source
This commit is contained in:
Sam Roberton 2016-07-21 17:56:46 +10:00
parent ef3656ff60
commit 02ec0c26e6
1 changed files with 28 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/re_frame/subs.cljc
View File

@ -154,22 +154,37 @@
sub-fn ;; first case the user provides a custom sub-fn
(register
sub-name
(fn [db q-vec d-vec]
(let [subscriptions (sub-fn q-vec d-vec)] ;; this let needs to be outside the fn
(make-reaction
(fn [] (f (multi-deref subscriptions) q-vec d-vec))))))
(fn subs-handler-fn ;; multi-arity to match the arities `subscribe` might invoke.
([db q-vec]
(let [subscriptions (sub-fn q-vec)]
(make-reaction
(fn [] (f (multi-deref subscriptions) q-vec)))))
([db q-vec d-vec]
(let [subscriptions (sub-fn q-vec d-vec)]
(make-reaction
(fn [] (f (multi-deref subscriptions) q-vec d-vec)))))))
(seq arrow-args) ;; the user uses the :<- sugar
(register
sub-name
(fn [db q-vec d-vec]
(let [subscriptions (map subscribe arrow-subs)
subscriptions (if (< 1 (count subscriptions))
subscriptions
(first subscriptions))] ;; automatically provide a singlton
(make-reaction
(fn [] (f (multi-deref subscriptions) q-vec d-vec))))))
(letfn [(get-subscriptions []
(let [subscriptions (map subscribe arrow-subs)]
(if (< 1 (count subscriptions))
subscriptions
(first subscriptions))))] ;; automatically provide a singleton
(fn subs-handler-fn
([db q-vec]
(let [subscriptions (get-subscriptions)]
(make-reaction
(fn [] (f (multi-deref subscriptions) q-vec)))))
([db q-vec d-vec]
(let [subscriptions (get-subscriptions)]
(make-reaction
(fn [] (f (multi-deref subscriptions) q-vec d-vec))))))))
:else
(register ;; the simple case with no subs
sub-name
(fn [db q-vec d-vec]
(make-reaction (fn [] (f @db q-vec d-vec)))))))())
(fn subs-handler-fn
([db q-vec]
(make-reaction (fn [] (f @db q-vec))))
([db q-vec d-vec]
(make-reaction (fn [] (f @db q-vec d-vec))))))))())