From 6859fb8f8ebbb6c5ef59383a92b9f939f4d9b6f2 Mon Sep 17 00:00:00 2001
From: Brian Sztamfater <brian@status.im>
Date: Fri, 29 Nov 2024 13:21:44 -0300
Subject: [PATCH] fix(swap): optimize endpoints calls (#21549)

Signed-off-by: Brian Sztamfater <brian@status.im>
---
 .../contexts/wallet/swap/events.cljs          | 30 +++++++++++--------
 .../contexts/wallet/swap/setup_swap/view.cljs | 16 +++++++---
 2 files changed, 30 insertions(+), 16 deletions(-)

diff --git a/src/status_im/contexts/wallet/swap/events.cljs b/src/status_im/contexts/wallet/swap/events.cljs
index 095a6c3d91..192a5ea369 100644
--- a/src/status_im/contexts/wallet/swap/events.cljs
+++ b/src/status_im/contexts/wallet/swap/events.cljs
@@ -111,6 +111,10 @@
  (fn [{:keys [db]} [max-slippage]]
    {:db (assoc-in db [:wallet :ui :swap :max-slippage] (number/parse-float max-slippage))}))
 
+(rf/reg-event-fx :wallet.swap/set-loading-swap-proposal
+ (fn [{:keys [db]}]
+   {:db (assoc-in db [:wallet :ui :swap :loading-swap-proposal?] true)}))
+
 (rf/reg-event-fx :wallet/start-get-swap-proposal
  (fn [{:keys [db]} [{:keys [amount-in amount-out clean-approval-transaction?]}]]
    (let [wallet-address          (get-in db [:wallet :current-viewing-account-address])
@@ -157,11 +161,10 @@
                                   #(cond-> %
                                      :always
                                      (assoc
-                                      :last-request-uuid      request-uuid
-                                      :amount                 amount
-                                      :amount-hex             amount-in-hex
-                                      :loading-swap-proposal? true
-                                      :initial-response?      true)
+                                      :last-request-uuid request-uuid
+                                      :amount            amount
+                                      :amount-hex        amount-in-hex
+                                      :initial-response? true)
                                      clean-approval-transaction?
                                      (dissoc :approval-transaction-id :approved-amount :swap-proposal)))
         :fx            [[:dispatch
@@ -242,13 +245,16 @@
           [:centralized-metrics/track :metric/swap-proposal-failed {:error (:code error-response)}]]]}))
 
 (rf/reg-event-fx :wallet/stop-get-swap-proposal
- (fn []
-   {:json-rpc/call [{:method   "wallet_stopSuggestedRoutesAsyncCalculation"
-                     :params   []
-                     :on-error (fn [error]
-                                 (log/error "failed to stop fetching swap proposals"
-                                            {:event :wallet/stop-get-swap-proposal
-                                             :error error}))}]}))
+ (fn [{:keys [db]}]
+   (let [route-request-ongoing? (some? (get-in db [:wallet :ui :swap :last-request-uuid]))]
+     (when route-request-ongoing?
+       {:db            (update-in db [:wallet :ui :swap] dissoc :last-request-uuid)
+        :json-rpc/call [{:method   "wallet_stopSuggestedRoutesAsyncCalculation"
+                         :params   []
+                         :on-error (fn [error]
+                                     (log/error "failed to stop fetching swap proposals"
+                                                {:event :wallet/stop-get-swap-proposal
+                                                 :error error}))}]}))))
 
 (rf/reg-event-fx
  :wallet/clean-swap-proposal
diff --git a/src/status_im/contexts/wallet/swap/setup_swap/view.cljs b/src/status_im/contexts/wallet/swap/setup_swap/view.cljs
index 09fc8cc9b1..97c39b7e24 100644
--- a/src/status_im/contexts/wallet/swap/setup_swap/view.cljs
+++ b/src/status_im/contexts/wallet/swap/setup_swap/view.cljs
@@ -26,6 +26,7 @@
     [utils.string :as utils.string]))
 
 (def ^:private default-text-for-unfocused-input "0.00")
+(def ^:private swap-proposal-debounce-time-ms 1000)
 
 (defn- on-close
   [start-point]
@@ -36,13 +37,20 @@
                  :clean-approval-transaction? true}])
   (events-helper/navigate-back))
 
+(defn- start-get-swap-proposal
+  [amount clean-approval-transaction?]
+  (rf/dispatch [:wallet/stop-get-swap-proposal])
+  (rf/dispatch [:wallet.swap/set-loading-swap-proposal])
+  (debounce/debounce-and-dispatch [:wallet/start-get-swap-proposal
+                                   {:amount-in                   amount
+                                    :clean-approval-transaction? clean-approval-transaction?}]
+                                  swap-proposal-debounce-time-ms))
+
 (defn- fetch-swap-proposal
   [{:keys [amount valid-input? clean-approval-transaction?]}]
+  (debounce/clear-all)
   (if valid-input?
-    (debounce/debounce-and-dispatch [:wallet/start-get-swap-proposal
-                                     {:amount-in                   amount
-                                      :clean-approval-transaction? clean-approval-transaction?}]
-                                    100)
+    (start-get-swap-proposal amount clean-approval-transaction?)
     (rf/dispatch [:wallet/clean-swap-proposal
                   {:clean-amounts?              true
                    :clean-approval-transaction? clean-approval-transaction?}])))