feat: approve token transactions on swap

Signed-off-by: Brian Sztamfater <[email protected]>

Author: briansztamfater

src/status_im/constants.cljs

@@ -591,11 +591,13 @@
 (def ^:const default-slippage 0.5)
 (def ^:const max-recommended-slippage 5)
 (def ^:const max-slippage-decimal-places 2)
-(def ^:const swap-default-provider
+(def ^:const swap-provider-paraswap
   {:name                     :paraswap
    :full-name                "Paraswap"
    :color                    :blue
    :contract-address         "0xdef171fe48cf0115b1d80b88dc8eab59176fee57"
    :terms-and-conditions-url "https://files.paraswap.io/tos_v4.pdf"})
+(def ^:const swap-providers
+  {:paraswap swap-provider-paraswap})
 
 (def ^:const token-for-fees-symbol "ETH")

src/status_im/contexts/wallet/swap/set_spending_cap/view.cljs

@@ -1,16 +1,20 @@
 (ns status-im.contexts.wallet.swap.set-spending-cap.view
   (:require
+    [native-module.core :as native-module]
     [quo.core :as quo]
     [quo.foundations.resources :as resources]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
     [status-im.common.events-helper :as events-helper]
     [status-im.common.floating-button-page.view :as floating-button-page]
     [status-im.common.standard-authentication.core :as standard-auth]
+    [status-im.constants :as constants]
     [status-im.contexts.wallet.common.utils.external-links :as external-links]
     [status-im.contexts.wallet.swap.set-spending-cap.style :as style]
     [utils.address :as address-utils]
+    [utils.hex :as hex]
     [utils.i18n :as i18n]
+    [utils.number :as number]
     [utils.re-frame :as rf]))
 
 (defn- swap-title
@@ -171,8 +175,9 @@
       :size     :small}]]])
 
 (defn footer
-  [{:keys [estimated-time-min native-currency-symbol network theme account-color loading-fees?]}]
-  (let [fee-formatted   (rf/sub [:wallet/wallet-send-fee-fiat-formatted native-currency-symbol])
+  [{:keys [estimated-time-min network theme account-color loading-fees?]}]
+  (let [fee-formatted   (rf/sub [:wallet/wallet-swap-proposal-fee-fiat-formatted
+                                 constants/token-for-fees-symbol])
         on-auth-success (rn/use-callback #(js/alert "Not implemented yet"))]
     [rn/view {:style {:margin-bottom -10}}
      [transaction-details
@@ -194,16 +199,25 @@
   []
   (let [theme                   (quo.theme/use-theme)
         swap-transaction-data   (rf/sub [:wallet/swap])
-        {:keys [asset-to-pay network pay-amount
-                providers swap-proposal
+        {:keys [asset-to-pay network
+                swap-proposal
                 loading-fees?]} swap-transaction-data
+        amount-in               (rf/sub [:wallet/swap-proposal-amount-in])
+        pay-token-decimals      (:decimals asset-to-pay)
+        pay-token-address       (get-in asset-to-pay
+                                        [:balances-per-chain
+                                         (:chain-id network) :address])
+        pay-amount              (when amount-in
+                                  (number/convert-to-whole-number
+                                   (native-module/hex-to-number
+                                    (hex/normalize-hex
+                                     amount-in))
+                                   pay-token-decimals))
         estimated-time-min      (:estimated-time swap-proposal)
         pay-token-symbol        (:symbol asset-to-pay)
-        pay-token-address       (:address asset-to-pay)
-        native-currency-symbol  (get-in swap-proposal [:from :native-currency-symbol])
         account                 (rf/sub [:wallet/current-viewing-account])
         account-color           (:color account)
-        provider                (first providers)]
+        provider                (rf/sub [:wallet/swap-proposal-provider])]
     [rn/view {:style style/container}
      [floating-button-page/view
       {:footer-container-padding 0
@@ -214,13 +228,12 @@
                                    :background          :blur
                                    :accessibility-label :top-bar}]
        :footer                   [footer
-                                  {:estimated-time-min     estimated-time-min
-                                   :native-currency-symbol native-currency-symbol
-                                   :network                network
-                                   :account-color          account-color
-                                   :provider               provider
-                                   :loading-fees?          loading-fees?
-                                   :theme                  theme}]
+                                  {:estimated-time-min estimated-time-min
+                                   :network            network
+                                   :account-color      account-color
+                                   :provider           provider
+                                   :loading-fees?      loading-fees?
+                                   :theme              theme}]
        :gradient-cover?          true
        :customization-color      account-color}
       [:<>

src/status_im/contexts/wallet/swap/setup_swap/view.cljs

@@ -262,7 +262,7 @@
         :on-max-press     #(set-pay-input-state pay-token-balance-selected-chain)
         :input-focused?   pay-input-focused?
         :on-token-press   #(js/alert "Token Pressed")
-        :on-approve-press #(js/alert "Approve Pressed")
+        :on-approve-press #(rf/dispatch [:open-modal :screen/wallet.swap-set-spending-cap])
         :on-input-focus   #(set-pay-input-focused? true)}]
       [swap-order-button {:on-press #(js/alert "Swap Order Pressed")}]
       [receive-token-input

src/status_im/subs/wallet/swap.cljs

@@ -95,6 +95,19 @@
  :<- [:wallet/swap-proposal]
  :-> :amount-out)
 
+(rf/reg-sub
+ :wallet/swap-proposal-amount-in
+ :<- [:wallet/swap-proposal]
+ :-> :amount-in)
+
+(rf/reg-sub
+ :wallet/swap-proposal-provider
+ :<- [:wallet/swap-proposal]
+ (fn [swap-proposal]
+   (let [bridge-name  (:bridge-name swap-proposal)
+         provider-key (keyword (string/lower-case bridge-name))]
+     (get constants/swap-providers provider-key))))
+
 (rf/reg-sub
  :wallet/swap-proposal-approval-required
  :<- [:wallet/swap-proposal]