Fix some typos in develop

src/status_im/chat/events/sign_up.cljs

@@ -50,22 +50,22 @@
                               :message-status :seen})))
 
 (handlers/register-handler-fx
- :start-listening-confirmation-code-sms
+  :start-listening-confirmation-code-sms
- [re-frame/trim-v]
+  [re-frame/trim-v]
- (fn [{:keys [db]} [sms-listener]]
+  (fn [{:keys [db]} [sms-listener]]
-   {:db (if-not (:confirmation-code-sms-listener db)
+    {:db (if-not (:confirmation-code-sms-listener db)
-          (assoc db :confirmation-code-sms-listener sms-listener)
+           (assoc db :confirmation-code-sms-listener sms-listener)
-          db)}))
+           db)}))
 
 (defn stop-listening-confirmation-code-sms [{:keys [db] :as fx}]
   (-> fx
-      (update db dissoc :confirmation-code-sms-listener)
+      (update :db dissoc :confirmation-code-sms-listener)
-      (update ::remove-sms-listener assoc (:confirmation-code-sms-listener db))))
+      (assoc ::remove-sms-listener (:confirmation-code-sms-listener db))))
 
 (re-frame/reg-fx
- ::remove-sms-listener
+  ::remove-sms-listener
- (fn [subscription]
+  (fn [subscription]
-   (sms-listener/remove-sms-listener subscription)))
+    (sms-listener/remove-sms-listener subscription)))
 
 (defn- sms-receive-handler [{confirmation-code :body}]
   (when-let [matches (re-matches #"(\d{4})" confirmation-code)]
@@ -79,15 +79,15 @@
        (re-frame/dispatch [:start-listening-confirmation-code-sms listener])))])
 
 (handlers/register-handler-fx
- ::sign-up-success
+  ::sign-up-success
- [re-frame/trim-v (re-frame/inject-cofx :random-id)]
+  [re-frame/trim-v (re-frame/inject-cofx :random-id)]
- (fn [{:keys [db random-id]} message-id]
+  (fn [{:keys [db random-id]} [message-id]]
-   (-> {:db         db
+    (-> {:db         db
-        :dispatch-n [;; create manual way for entering confirmation code
+         :dispatch-n [;; create manual way for entering confirmation code
-                     (sign-up/enter-confirmation-code-event random-id)
+                      (sign-up/enter-confirmation-code-event random-id)
-                     ;; create automatic way for receiving confirmation code
+                      ;; create automatic way for receiving confirmation code
-                     start-listening-confirmation-code-sms-event]}
+                      start-listening-confirmation-code-sms-event]}
-       (message-seen message-id))))
+        (message-seen message-id))))
 
 (defn- extract-last-phone-number [chats]
   (let [phone-message (->> (get-in chats ["console" :messages])
@@ -103,18 +103,15 @@
     (sign-up-confirm db confirmation-code message-id)))
 
 (defn- sign-up-confirmed [{:keys [db] :as fx} now]
-  (let [last-phone-number (extract-last-phone-number (:chats db))]
+  (let [last-phone-number (extract-last-phone-number (:chats db))
-    (cond->
+        fx                (-> (stop-listening-confirmation-code-sms fx)
-      (stop-listening-confirmation-code-sms fx)
+                              (update :dispatch-n conj
-
+                                      [:request-permissions [:read-contacts]
-      true
+                                       #(re-frame/dispatch [:sync-contacts (fn [contacts]
-      (update :dispatch-n conj [:request-permissions [:read-contacts]
+                                                                             [::contacts-synced contacts])])]))]
-                                #(re-frame/dispatch [:sync-contacts (fn [contacts]
+    (cond-> fx
-                                                                      [::contacts-synced contacts])])])
+      last-phone-number (accounts-events/account-update {:phone        last-phone-number
-
+                                                         :last-updated now}))))
-      last-phone-number
-      (accounts-events/account-update {:phone        last-phone-number
-                                       :last-updated now}))))
 
 (handlers/register-handler-fx
   ::sign-up-confirm-response

src/status_im/ui/screens/accounts/events.cljs

@@ -31,14 +31,14 @@
 ;;;; COFX
 
 (re-frame/reg-cofx
- :get-new-keypair!
+  :get-new-keypair!
- (fn [coeffects _]
+  (fn [coeffects _]
-   (assoc coeffects :keypair (protocol/new-keypair!))))
+    (assoc coeffects :keypair (protocol/new-keypair!))))
 
 (re-frame/reg-cofx
- ::get-all-accounts
+  ::get-all-accounts
- (fn [coeffects _]
+  (fn [coeffects _]
-   (assoc coeffects :all-accounts (accounts-store/get-all))))
+    (assoc coeffects :all-accounts (accounts-store/get-all))))
 
 ;;;; FX
 
@@ -138,9 +138,9 @@
           ;;workaround for realm bug, migrating account v4
           events (mapv #(when (empty? (:networks %)) [:account-update-networks (:address %)]) (vals accounts))]
       (merge
-        {:db (assoc db :accounts/accounts accounts)}
+       {:db (assoc db :accounts/accounts accounts)}
-        (when-not (empty? events)
+       (when-not (empty? events)
-          {:dispatch-n events})))))
+         {:dispatch-n events})))))
 
 (handlers/register-handler-fx
   :account-update-networks
@@ -162,18 +162,16 @@
             {:dispatch [:broadcast-status status hashtags]}))))))
 
 (defn account-update
-  "Takes map of coeffects containing `:db` and `:now` keys + new account fields,
+  "Takes effects (containing :db) + new account fields, adds all effects necessary for account update."
-  returns all effects necessary for account update."
   [{{:accounts/keys [accounts current-account-id] :as db} :db :as fx} new-account-fields]
   (let [current-account (get accounts current-account-id)
         new-account     (merge current-account new-account-fields)]
     (-> fx
         (assoc-in [:db :accounts/accounts current-account-id] new-account)
-        (assoc ::save-account new-account)
+        (assoc ::save-account new-account
-        (assoc ::broadcast-account-update (merge
+               ::broadcast-account-update (merge (select-keys db [:current-public-key :web3])
-                                           (select-keys db [:current-public-key :web3])
+                                                 (select-keys new-account [:name :photo-path :status
-                                           (select-keys new-account [:name :photo-path :status
+                                                                           :updates-public-key :updates-private-key]))))))
-                                                                     :updates-public-key :updates-private-key]))))))
 
 (handlers/register-handler-fx
   :account-update-keys