status-im
/
status-react
mirror of https://github.com/status-im/status-react.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix for https://github.com/status-im/status-react/issues/643

This commit is contained in:
Andrey Shovkoplyas 2017-03-08 17:50:06 +03:00 committed by Roman Volosovskyi
parent d439e66107
commit e1e00dde4e
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/status_im/navigation/handlers.cljs
View File

@ -12,7 +12,7 @@
(let [stack' (if (> 2 (count stack))
(list :chat-list)
(pop stack))]
(conj stack' view-id)))
(conj stack' view-id)))
(defn replace-view [db view-id]
(-> db
@ -75,13 +75,22 @@
(assoc db :view-id first-in-stack)))
db))))
(defn navigate-to-clean
[db [_ view-id]]
(-> db
(assoc :navigation-stack (list))
(push-view view-id)))
(register-handler :navigate-to-clean navigate-to-clean)
(register-handler :navigate-to-tab
(enrich preload-data!)
(fn [db [_ view-id]]
(-> db
(assoc :prev-tab-view-id (:view-id db))
(assoc :prev-view-id (:view-id db))
(replace-view view-id))))
(->
(fn [db [_ view-id]]
(-> db
(assoc :prev-tab-view-id (:view-id db))
(assoc :prev-view-id (:view-id db))))
((enrich navigate-to-clean))
((enrich preload-data!))))
(register-handler :on-navigated-to-tab
(enrich preload-data!)
@ -95,10 +104,3 @@
(register-handler :show-profile show-profile)
(defn navigate-to-clean
[db [_ view-id]]
(-> db
(assoc :navigation-stack (list))
(push-view view-id)))
(register-handler :navigate-to-clean navigate-to-clean)