parent
3db4ed389b
commit
4b29cb4070
|
@ -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