|
4 | 4 | [taoensso.timbre :as log]
|
5 | 5 | [status-im.utils.fx :as fx]
|
6 | 6 | [status-im.anon-metrics.core :as anon-metrics]))
|
7 |
| - |
8 |
| -(re-frame/reg-fx |
9 |
| - ::navigate-to |
10 |
| - (fn [[view-id params]] |
11 |
| - (log/debug :navigate-to view-id params) |
12 |
| - (navigation/navigate-to (name view-id) params))) |
13 |
| - |
14 |
| -(re-frame/reg-fx |
15 |
| - ::navigate-back |
16 |
| - (fn [] |
17 |
| - (log/debug :navigate-back) |
18 |
| - (navigation/navigate-back))) |
19 |
| - |
| 7 | +;;TODO |
20 | 8 | (re-frame/reg-fx
|
21 | 9 | ::navigate-reset
|
22 | 10 | (fn [config]
|
23 | 11 | (log/debug :navigate-reset config)
|
24 | 12 | (navigation/navigate-reset config)))
|
25 | 13 |
|
26 |
| -(re-frame/reg-fx |
27 |
| - ::navigate-replace |
28 |
| - (fn [[view-id params]] |
29 |
| - (log/debug :navigate-replace view-id params) |
30 |
| - (navigation/navigate-replace (name view-id) params))) |
| 14 | +;;TODO |
| 15 | +(fx/defn navigate-reset |
| 16 | + {:events [:navigate-reset]} |
| 17 | + [_ config] |
| 18 | + {::navigate-reset config}) |
| 19 | + |
31 | 20 |
|
32 | 21 | (defn- all-screens-params [db view screen-params]
|
33 | 22 | (cond-> db
|
34 |
| - (and (seq screen-params) (:screen screen-params) (:params screen-params)) |
35 |
| - (all-screens-params (:screen screen-params) (:params screen-params)) |
| 23 | + (and (seq screen-params) (:screen screen-params) (:params screen-params)) |
| 24 | + (all-screens-params (:screen screen-params) (:params screen-params)) |
36 | 25 |
|
37 |
| - (seq screen-params) |
38 |
| - (assoc-in [:navigation/screen-params view] screen-params))) |
| 26 | + (seq screen-params) |
| 27 | + (assoc-in [:navigation/screen-params view] screen-params))) |
39 | 28 |
|
40 | 29 | (fx/defn navigate-to-cofx
|
41 | 30 | [{:keys [db] :as cofx} go-to-view-id screen-params]
|
42 | 31 | {:db
|
43 |
| - (-> (assoc db :view-id go-to-view-id) |
44 |
| - (all-screens-params go-to-view-id screen-params)) |
| 32 | + (-> (assoc db :view-id go-to-view-id) |
| 33 | + (all-screens-params go-to-view-id screen-params)) |
45 | 34 | ;::navigate-to [go-to-view-id screen-params]
|
46 |
| - :rnn-navigate-to-fx go-to-view-id |
| 35 | + :rnn-navigate-to-fx go-to-view-id |
47 | 36 | ;; simulate a navigate-to event so it can be captured be anon-metrics
|
48 | 37 | ::anon-metrics/transform-and-log {:coeffects {:event [:navigate-to go-to-view-id screen-params]}}})
|
49 | 38 |
|
50 | 39 | (fx/defn navigate-to
|
51 |
| - {:events [:navigate-to]} |
| 40 | + {:events [:navigate-to]} |
52 | 41 | [cofx go-to-view-id screen-params]
|
53 | 42 | (navigate-to-cofx cofx go-to-view-id screen-params))
|
54 | 43 |
|
|
57 | 46 | [_]
|
58 | 47 | {:rnn-navigate-back-fx nil})
|
59 | 48 |
|
| 49 | +(fx/defn pop-to-root-tab |
| 50 | + {:events [:pop-to-root-tab]} |
| 51 | + [_ tab] |
| 52 | + {:rnn-pop-to-root-tab-fx tab}) |
| 53 | + |
60 | 54 | (fx/defn set-root
|
61 | 55 | {:events [:navigate-set-root]}
|
62 | 56 | [_ root]
|
63 | 57 | {:rnn-set-root-fx root})
|
64 | 58 |
|
65 |
| -(fx/defn navigate-reset |
66 |
| - {:events [:navigate-reset]} |
67 |
| - [_ config] |
68 |
| - {::navigate-reset config}) |
| 59 | +(fx/defn change-tab |
| 60 | + {:events [:navigate-change-tab]} |
| 61 | + [_ tab] |
| 62 | + {:rnn-change-tab-fx tab}) |
69 | 63 |
|
70 | 64 | (fx/defn navigate-replace
|
71 |
| - {:events [:navigate-replace] |
| 65 | + {:events [:navigate-replace] |
72 | 66 | :interceptors [anon-metrics/interceptor]}
|
73 | 67 | [{:keys [db]} go-to-view-id screen-params]
|
74 | 68 | (let [db (cond-> (assoc db :view-id go-to-view-id)
|
75 |
| - (seq screen-params) |
76 |
| - (assoc-in [:navigation/screen-params go-to-view-id] screen-params))] |
77 |
| - {:db db |
78 |
| - ::navigate-replace [go-to-view-id screen-params]})) |
| 69 | + (seq screen-params) |
| 70 | + (assoc-in [:navigation/screen-params go-to-view-id] screen-params))] |
| 71 | + {:db db |
| 72 | + :navigate-replace-fx [go-to-view-id screen-params]})) |
79 | 73 |
|
80 | 74 | (fx/defn open-modal
|
81 | 75 | {:events [:open-modal]}
|
82 |
| - [{:keys [db] :as cofx} comp screen-params] |
| 76 | + [{:keys [db]} comp screen-params] |
83 | 77 | {:db
|
84 | 78 | (-> (assoc db :view-id comp)
|
85 | 79 | (all-screens-params comp screen-params))
|
|
0 commit comments