fix messages are marked as read automatically in 1-1/group chats after opening a link (#18066)
This commit is contained in:
parent
c25f44c2a0
commit
6ef113e821
|
@ -60,12 +60,15 @@
|
||||||
(rf/defn pop-to-root
|
(rf/defn pop-to-root
|
||||||
{:events [:pop-to-root]}
|
{:events [:pop-to-root]}
|
||||||
[{:keys [db]} tab]
|
[{:keys [db]} tab]
|
||||||
|
(merge
|
||||||
{:pop-to-root-fx tab
|
{:pop-to-root-fx tab
|
||||||
:db (-> db
|
:db (-> db
|
||||||
(dissoc :shell/floating-screens)
|
(dissoc :shell/floating-screens)
|
||||||
(dissoc :shell/loaded-screens)
|
(dissoc :shell/loaded-screens)
|
||||||
(assoc :view-id (or @shell.state/selected-stack-id :shell)))
|
(assoc :view-id (or @shell.state/selected-stack-id :shell)))
|
||||||
:effects.shell/pop-to-root nil})
|
:effects.shell/pop-to-root nil}
|
||||||
|
(when (:current-chat-id db)
|
||||||
|
{:dispatch-n [[:chat/close]]})))
|
||||||
|
|
||||||
(rf/defn init-root
|
(rf/defn init-root
|
||||||
{:events [:init-root]}
|
{:events [:init-root]}
|
||||||
|
|
Loading…
Reference in New Issue