fix :chat-properties
This commit is contained in:
parent
9e49529d12
commit
4c4e27267a
|
@ -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