Adding more filters, for fun.

This commit is contained in:
BC
2019-01-27 09:52:06 -08:00
parent 35710bbcbf
commit 152cad487e
5 changed files with 68 additions and 9 deletions

View File

@@ -15,6 +15,19 @@
(when (:user db)
(vals (:clients db)))))
(re-frame/reg-sub
::bank-accounts
:<- [::clients]
:<- [::client]
(fn [[clients client]]
(println client)
(if client
(:bank-accounts client)
(reduce (fn [result {:keys [bank-accounts]}]
(into result bank-accounts))
[]
clients))))
(re-frame/reg-sub
::clients-by-id
(fn [db]