feat: implement getSuggestedRoutes in the wallet Send Flow

Signed-off-by: Brian Sztamfater <brian@status.im>

src/status_im/multiaccounts/create/core.cljs

@@ -172,8 +172,7 @@
             :use-mailservers? true
             :recovered recovered}
            config/default-multiaccount)
-          ;; The address from which we derive any chat
-          ;; account/encryption keys
+          ;; The address from which we derive any chat account/encryption keys
           eip1581-address
           (assoc :eip1581-address eip1581-address)
           save-mnemonic?

src/status_im2/constants.cljs

@@ -393,3 +393,15 @@
 
 (def ^:const status-address-domain ".stateofus.eth")
 (def ^:const eth-address-domain ".eth")
+
+(def ^:const gas-rate-low 0)
+(def ^:const gas-rate-medium 1)
+(def ^:const gas-rate-high 2)
+
+(def ^:const send-type-transfer 0)
+(def ^:const send-type-ens-register 1)
+(def ^:const send-type-ens-release 2)
+(def ^:const send-type-ens-set-pub-key 3)
+(def ^:const send-type-stickers-buy 4)
+(def ^:const send-type-bridge 5)
+(def ^:const send-type-erc-721-transfer 6)

src/status_im2/contexts/wallet/common/utils.cljs

@@ -71,6 +71,18 @@
        (map total-token-fiat-value)
        (reduce money/add)))
 
+(defn calculate-balance-for-token
+  [token]
+  (money/bignumber
+   (money/mul (total-token-units-in-all-chains token)
+              (-> token :market-values-per-currency :usd :price))))
+
+(defn calculate-balance
+  [tokens-in-account]
+  (->> tokens-in-account
+       (map #(calculate-balance-for-token %))
+       (reduce +)))
+
 (defn network-list
   [{:keys [balances-per-chain]} networks]
   (into #{}

src/status_im2/contexts/wallet/events.cljs

@@ -141,7 +141,9 @@
 (rf/defn clean-scanned-address
   {:events [:wallet/clean-scanned-address]}
   [{:keys [db]}]
-  {:db (dissoc db :wallet/scanned-address :wallet/send-address)})
+  {:db (-> db
+           (dissoc :wallet/scanned-address :wallet/send-address)
+           (update-in [:wallet :ui :send] dissoc :to-address))})
 
 (rf/reg-event-fx :wallet/create-derived-addresses
  (fn [{:keys [db]} [{:keys [sha3-pwd path]} on-success]]
@@ -426,10 +428,6 @@
      (background-timer/clear-timeout current-timeout)
      {:db (assoc db :wallet/local-suggestions [] :wallet/valid-ens-or-address? false)})))
 
-(rf/reg-event-fx :wallet/select-send-address
- (fn [{:keys [db]} [address]]
-   {:db (assoc db :wallet/send-address address)}))
-
 (rf/reg-event-fx :wallet/get-address-details-success
  (fn [{:keys [db]} [{:keys [hasActivity]}]]
    {:db (assoc-in db

src/status_im2/contexts/wallet/send/events.cljs

@@ -1,5 +1,8 @@
 (ns status-im2.contexts.wallet.send.events
   (:require
+    [status-im2.constants :as constants]
+    [taoensso.timbre :as log]
+    [utils.money :as money]
     [utils.number]
     [utils.re-frame :as rf]))
 
@@ -10,3 +13,80 @@
 (rf/reg-event-fx :wallet/select-send-account-address
  (fn [{:keys [db]} [address]]
    {:db (assoc db [:wallet :ui :send :send-account-address] address)}))
+
+(rf/reg-event-fx :wallet/suggested-routes-success
+ (fn [{:keys [db]} [suggested-routes timestamp]]
+   (when (= (get-in db [:wallet :ui :send :suggested-routes-call-timestamp]) timestamp)
+     {:db (-> db
+              (assoc-in [:wallet :ui :send :suggested-routes] suggested-routes)
+              (assoc-in [:wallet :ui :send :route] (first (:Best suggested-routes)))
+              (assoc-in [:wallet :ui :send :loading-suggested-routes?] false))})))
+
+(rf/reg-event-fx :wallet/suggested-routes-error
+ (fn [{:keys [db]} [_error]]
+   {:db (-> db
+            (update-in [:wallet :ui :send] dissoc :suggested-routes)
+            (update-in [:wallet :ui :send] dissoc :route)
+            (assoc-in [:wallet :ui :send :loading-suggested-routes?] false))}))
+
+(rf/reg-event-fx :wallet/clean-suggested-routes
+ (fn [{:keys [db]}]
+   {:db (-> db
+            (update-in [:wallet :ui :send] dissoc :suggested-routes)
+            (update-in [:wallet :ui :send] dissoc :route)
+            (update-in [:wallet :ui :send] dissoc :loading-suggested-routes?))}))
+
+(rf/reg-event-fx :wallet/select-send-address
+ (fn [{:keys [db]} [{:keys [address stack-id]}]]
+   {:db (assoc-in db [:wallet :ui :send :to-address] address)
+    :fx [[:navigate-to-within-stack [:wallet-select-asset stack-id]]]}))
+
+(rf/reg-event-fx :wallet/send-select-token
+ (fn [{:keys [db]} [{:keys [token stack-id]}]]
+   {:db (assoc-in db [:wallet :ui :send :token] token)
+    :fx [[:navigate-to-within-stack [:wallet-send-input-amount stack-id]]]}))
+
+(rf/reg-event-fx :wallet/send-select-amount
+ (fn [{:keys [db]} [{:keys [amount]}]]
+   (js/alert "Not implemented yet")
+   {:db (assoc-in db [:wallet :ui :send :amount] amount)}))
+
+(rf/reg-event-fx :wallet/get-suggested-routes
+ (fn [{:keys [db now]} [amount]]
+   (let [wallet-address          (get-in db [:wallet :current-viewing-account-address])
+         token                   (get-in db [:wallet :ui :send :token])
+         to-address              (get-in db [:wallet :ui :send :to-address])
+         token-decimal           (:decimals token)
+         token-id                (:symbol token)
+         network-preferences     [constants/mainnet-chain-id] ; TODO: don't hardcode network
+                                                              ; preferences
+         gas-rates               constants/gas-rate-medium
+         amount-in               (money/amount-in-hex amount token-decimal)
+         from-address            wallet-address
+         disabled-from-chain-ids []
+         disabled-to-chain-ids   []
+         from-locked-amount      {}
+         request-params          [constants/send-type-transfer
+                                  from-address
+                                  to-address
+                                  amount-in
+                                  token-id
+                                  disabled-from-chain-ids
+                                  disabled-to-chain-ids
+                                  network-preferences
+                                  gas-rates
+                                  from-locked-amount]]
+     {:db            (-> db
+                         (assoc-in [:wallet :ui :send :loading-suggested-routes?] true)
+                         (assoc-in [:wallet :ui :send :suggested-routes-call-timestamp] now))
+      :json-rpc/call [{:method     "wallet_getSuggestedRoutes"
+                       :params     request-params
+                       :on-success (fn [suggested-routes]
+                                     (rf/dispatch [:wallet/suggested-routes-success suggested-routes
+                                                   now]))
+                       :on-error   (fn [error]
+                                     (rf/dispatch [:wallet/suggested-routes-error error])
+                                     (log/error "failed to get suggested routes"
+                                                {:event  :wallet/get-suggested-routes
+                                                 :error  error
+                                                 :params request-params}))}]})))

src/status_im2/contexts/wallet/send/input_amount/component_spec.cljs

@@ -38,7 +38,13 @@
                                     :operable                  "fully"
                                     :mixedcase-address         "0x7bcDfc75c431"
                                     :public-key                "0x04371e2d9d66b82f056bc128064"
-                                    :removed                   false}})
+                                    :removed                   false}
+   :wallet                         {:ui {:send {:token {:symbol                    "ETH"
+                                                        :decimals                  18
+                                                        :total-balance             1
+                                                        :total-balance-fiat        10
+                                                        :loading-suggested-routes? false
+                                                        :route                     {}}}}}})
 
 (h/describe "Send > input amount screen"
   (h/test "Default render"

src/status_im2/contexts/wallet/send/input_amount/view.cljs

@@ -8,6 +8,7 @@
     [reagent.core :as reagent]
     [status-im2.contexts.wallet.common.account-switcher.view :as account-switcher]
     [status-im2.contexts.wallet.send.input-amount.style :as style]
+    [utils.debounce :as debounce]
     [utils.i18n :as i18n]
     [utils.re-frame :as rf]))
 
@@ -48,67 +49,84 @@
     current))
 
 (defn- f-view-internal
-  [{:keys [token limit rate]}]
-  (let [bottom                (safe-area/get-bottom)
-        {:keys [currency]}    (rf/sub [:profile/profile])
-        networks              (rf/sub [:wallet/network-details])
-        ;; Temporary values
-        token                 (or token :eth)
-        conversion-rate       (or rate 10)
-        limit-crypto          (or limit 2860000.32)
-        limit-fiat            (* limit-crypto conversion-rate)
-        input-value           (reagent/atom "")
-        current-limit         (reagent/atom {:amount   limit-crypto
-                                             :currency token})
-        handle-swap           (fn [crypto?]
-                                (let [num-value (parse-double @input-value)]
-                                  (reset! current-limit (if crypto?
-                                                          {:amount   limit-crypto
-                                                           :currency token}
-                                                          {:amount   limit-fiat
-                                                           :currency currency}))
-                                  (when (> num-value (:amount @current-limit))
-                                    (reset! input-value ""))))
-        handle-keyboard-press (fn [v]
-                                (let [current-value @input-value
-                                      new-value     (make-new-input current-value v)
-                                      num-value     (or (parse-double new-value) 0)]
-                                  (when (<= num-value (:amount @current-limit))
-                                    (reset! input-value new-value)
-                                    (reagent/flush))))
-        handle-delete         (fn [_]
-                                (swap! input-value #(subs % 0 (dec (count %))))
-                                (reagent/flush))
-        handle-on-change      (fn [v]
-                                (when (valid-input? @input-value v)
-                                  (let [num-value            (or (parse-double v) 0)
-                                        current-limit-amount (:amount @current-limit)]
-                                    (if (> num-value current-limit-amount)
-                                      (reset! input-value (str current-limit-amount))
-                                      (reset! input-value v))
-                                    (reagent/flush))))]
+  [{:keys [rate]}]
+  (let [bottom                    (safe-area/get-bottom)
+        {:keys [currency]}        (rf/sub [:profile/profile])
+        networks                  (rf/sub [:wallet/network-details])
+        token                     (rf/sub [:wallet/wallet-send-token])
+        loading-suggested-routes? (rf/sub [:wallet/wallet-send-loading-suggested-routes?])
+        token-symbol              (:symbol token)
+        limit-crypto              (:total-balance token)
+        limit-fiat                (:total-balance-fiat token)
+        conversion-rate           (or rate 10)
+        input-value               (reagent/atom "")
+        current-limit             (reagent/atom {:amount   limit-crypto
+                                                 :currency token-symbol})
+        handle-swap               (fn [crypto?]
+                                    (let [num-value (parse-double @input-value)]
+                                      (reset! current-limit (if crypto?
+                                                              {:amount   limit-crypto
+                                                               :currency token-symbol}
+                                                              {:amount   limit-fiat
+                                                               :currency currency}))
+                                      (when (> num-value (:amount @current-limit))
+                                        (reset! input-value ""))))
+        handle-keyboard-press     (fn [v]
+                                    (let [current-value @input-value
+                                          new-value     (make-new-input current-value v)
+                                          num-value     (or (parse-double new-value) 0)]
+                                      (when (and (not loading-suggested-routes?)
+                                                 (<= num-value (:amount @current-limit)))
+                                        (reset! input-value new-value)
+                                        (reagent/flush))))
+        handle-delete             (fn [_]
+                                    (when-not loading-suggested-routes?
+                                      (swap! input-value #(subs % 0 (dec (count %))))
+                                      (reagent/flush)))
+        handle-on-change          (fn [v]
+                                    (when (valid-input? @input-value v)
+                                      (let [num-value            (or (parse-double v) 0)
+                                            current-limit-amount (:amount @current-limit)]
+                                        (if (> num-value current-limit-amount)
+                                          (reset! input-value (str current-limit-amount))
+                                          (reset! input-value v))
+                                        (reagent/flush))))]
     (fn [{:keys [on-confirm]
-          :or   {on-confirm #(js/alert "Confirmed")}}]
-      (let [limit-label       (make-limit-label @current-limit)
-            input-num-value   (parse-double @input-value)
-            confirm-disabled? (or
-                               (empty? @input-value)
-                               (<= input-num-value 0)
-                               (> input-num-value (:amount @current-limit)))]
+          :or   {on-confirm #(rf/dispatch [:wallet/send-select-amount
+                                           {:amount   @input-value
+                                            :stack-id :wallet-send-input-amount}])}}]
+      (let [limit-label               (make-limit-label @current-limit)
+            input-num-value           (parse-double @input-value)
+            route                     (rf/sub [:wallet/wallet-send-route])
+            loading-suggested-routes? (rf/sub [:wallet/wallet-send-loading-suggested-routes?])
+            confirm-disabled?         (or
+                                       (nil? route)
+                                       (empty? @input-value)
+                                       (<= input-num-value 0)
+                                       (> input-num-value (:amount @current-limit)))]
         (rn/use-effect
          (fn []
            (let [dismiss-keyboard-fn   #(when (= % "active") (rn/dismiss-keyboard!))
                  app-keyboard-listener (.addEventListener rn/app-state "change" dismiss-keyboard-fn)]
              #(.remove app-keyboard-listener))))
+        (rn/use-effect (fn []
+                         (rf/dispatch [:wallet/clean-suggested-routes])
+                         (when-not (or
+                                    (empty? @input-value)
+                                    (<= input-num-value 0)
+                                    (> input-num-value (:amount @current-limit)))
+                           (debounce/debounce-and-dispatch [:wallet/get-suggested-routes @input-value]
+                                                           100)))
+                       [@input-value])
         [rn/view
          {:style style/screen}
          [account-switcher/view
           {:icon-name     :i/arrow-left
-           :on-press      #(rf/dispatch [:navigate-back])
+           :on-press      #(rf/dispatch [:navigate-back-within-stack :wallet-send-input-amount])
            :switcher-type :select-account}]
          [quo/token-input
           {:container-style style/input-container
-           :token           token
+           :token           token-symbol
            :currency        currency
            :networks        networks
            :title           (i18n/label :t/send-limit {:limit limit-label})
@@ -119,7 +137,16 @@
            :on-change-text  (fn [text]
                               (handle-on-change text))}]
          ;; Network routing content to be added
-         [rn/scroll-view]
+         [rn/scroll-view
+          {:content-container-style {:flex-grow       1
+                                     :align-items     :center
+                                     :justify-content :center}}
+          (cond loading-suggested-routes?
+                [quo/text "Loading routes"]
+                (and (not loading-suggested-routes?) route)
+                [quo/text "Route found"]
+                (and (not loading-suggested-routes?) (nil? route))
+                [quo/text "Route not found"])]
          [quo/bottom-actions
           {:actions          :1-action
            :button-one-label (i18n/label :t/confirm)

src/status_im2/contexts/wallet/send/select_address/view.cljs

@@ -23,7 +23,7 @@
   [input-value input-focused?]
   (fn []
     (let [scanned-address       (rf/sub [:wallet/scanned-address])
-          send-address          (rf/sub [:wallet/send-address])
+          send-address          (rf/sub [:wallet/wallet-send-to-address])
           valid-ens-or-address? (rf/sub [:wallet/valid-ens-or-address?])
           chain-id              (rf/sub [:chain-id])
           contacts              (rf/sub [:contacts/active])]
@@ -76,7 +76,10 @@
        _ _]
     (let [props {:on-press      (fn []
                                   (let [address (if accounts (:address (first accounts)) address)]
-                                    (when-not ens (rf/dispatch [:wallet/select-send-address address]))))
+                                    (when-not ens
+                                      (rf/dispatch [:wallet/select-send-address
+                                                    {:address  address
+                                                     :stack-id :wallet-select-address}]))))
                  :active-state? false}]
       (cond
         (= type types/saved-address)
@@ -151,7 +154,9 @@
                 :type                :primary
                 :disabled?           (not valid-ens-or-address?)
                 :container-style     style/button
-                :on-press            #(js/alert "Not implemented yet")}
+                :on-press            #(rf/dispatch [:wallet/select-send-address
+                                                    {:address  @input-value
+                                                     :stack-id :wallet-select-address}])}
                (i18n/label :t/continue)])]
            [:<>
             [quo/tabs

src/status_im2/contexts/wallet/send/select_asset/view.cljs

@@ -17,10 +17,13 @@
 (defn- asset-component
   []
   (fn [token _ _ _]
-    (let [on-press                #(js/alert "Not implemented yet")
+    (let [on-press
+          #(rf/dispatch [:wallet/send-select-token
+                         {:token    token
+                          :stack-id :wallet-select-asset}])
           total-balance-formatted (.toFixed (:total-balance token) 2)
-          balance-fiat-formatted  (.toFixed (:total-balance-fiat token) 2)
-          currency-symbol         "$"]
+          balance-fiat-formatted (.toFixed (:total-balance-fiat token) 2)
+          currency-symbol "$"]
       [quo/token-network
        {:token       (:symbol token)
         :label       (:name token)

src/status_im2/subs/root.cljs

@@ -156,7 +156,6 @@
 (reg-root-key-sub :wallet/networks :wallet/networks)
 (reg-root-key-sub :wallet/local-suggestions :wallet/local-suggestions)
 (reg-root-key-sub :wallet/valid-ens-or-address? :wallet/valid-ens-or-address?)
-(reg-root-key-sub :wallet/send-address :wallet/send-address)
 
 ;;debug
 (when js/goog.DEBUG