parent
3db4ed389b
commit
4b29cb4070
|
@ -102,9 +102,9 @@
|
||||||
(get @db :signed-up))))
|
(get @db :signed-up))))
|
||||||
|
|
||||||
(register-sub
|
(register-sub
|
||||||
:show-actions
|
:show-actions
|
||||||
(fn [db _]
|
(fn [db _]
|
||||||
(reaction (get-in @db db/show-actions-path))))
|
(reaction (get-in @db db/show-actions-path))))
|
||||||
|
|
||||||
(register-sub
|
(register-sub
|
||||||
:get-contacts
|
:get-contacts
|
||||||
|
@ -159,10 +159,10 @@
|
||||||
(fn [db _] (reaction @db)))
|
(fn [db _] (reaction @db)))
|
||||||
|
|
||||||
(register-sub :chat-properties
|
(register-sub :chat-properties
|
||||||
(fn [{:keys [current-chat-id] :as db} [_ properties]]
|
(fn [db [_ properties]]
|
||||||
(->> properties
|
(->> properties
|
||||||
(map (fn [k]
|
(map (fn [k]
|
||||||
[k (-> @db
|
[k (-> @db
|
||||||
(get-in [:cgats current-chat-id k])
|
(get-in [:chats (:current-chat-id @db) k])
|
||||||
(reaction))]))
|
(reaction))]))
|
||||||
(into {}))))
|
(into {}))))
|
||||||
|
|
Loading…
Reference in New Issue