Adding more filters, for fun.
This commit is contained in:
@@ -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]
|
||||
|
||||
Reference in New Issue
Block a user