diff --git a/src/status_im/contexts/wallet/send/input_amount/component_spec.cljs b/src/status_im/contexts/wallet/send/input_amount/component_spec.cljs index db18247a5a..5c1ee8c6ee 100644 --- a/src/status_im/contexts/wallet/send/input_amount/component_spec.cljs +++ b/src/status_im/contexts/wallet/send/input_amount/component_spec.cljs @@ -53,6 +53,7 @@ "2500") :has-error false}} :total-balance 100 + :available-balance 100 :market-values-per-currency {:usd {:price 10}}} :wallet/wallet-send-loading-suggested-routes? false :wallet/wallet-send-route [{:from {:chainid 1 @@ -77,7 +78,15 @@ :wallet/wallet-send-sender-network-values nil :wallet/wallet-send-receiver-network-values nil :wallet/wallet-send-network-links nil - :wallet/wallet-send-receiver-preferred-networks [1]}) + :wallet/wallet-send-receiver-preferred-networks [1] + :wallet/wallet-send-enabled-networks [{:source 879 + :short-name "eth" + :network-name :mainnet + :abbreviated-name "Eth." + :chain-id 1 + :related-chain-id 1 + :layer 1}] + :wallet/wallet-send-enabled-from-chain-ids [1]}) (h/describe "Send > input amount screen" (h/setup-restorable-re-frame) diff --git a/src/status_im/contexts/wallet/send/input_amount/view.cljs b/src/status_im/contexts/wallet/send/input_amount/view.cljs index c5c9ecbdab..ca746ae5c3 100644 --- a/src/status_im/contexts/wallet/send/input_amount/view.cljs +++ b/src/status_im/contexts/wallet/send/input_amount/view.cljs @@ -138,11 +138,15 @@ {fiat-currency :currency} (rf/sub [:profile/profile]) {token-symbol :symbol token-networks :networks} (rf/sub [:wallet/wallet-send-token]) + send-enabled-networks (rf/sub [:wallet/wallet-send-enabled-networks]) + enabled-from-chain-ids (rf/sub + [:wallet/wallet-send-enabled-from-chain-ids]) {token-balance :total-balance + available-balance :available-balance :as token} (rf/sub [:wallet/current-viewing-account-tokens-filtered - (str token-symbol)]) + (str token-symbol) enabled-from-chain-ids]) conversion-rate (-> token :market-values-per-currency :usd :price) loading-routes? (rf/sub [:wallet/wallet-send-loading-suggested-routes?]) @@ -153,12 +157,22 @@ on-confirm (or default-on-confirm handle-on-confirm) crypto-decimals (or default-crypto-decimals (utils/get-crypto-decimals-count token)) - crypto-limit (or default-limit-crypto + current-crypto-limit (or default-limit-crypto (utils/get-standard-crypto-format token token-balance)) - fiat-limit (.toFixed (* token-balance conversion-rate) 2) - current-limit (if @crypto-currency? crypto-limit fiat-limit) + available-crypto-limit (or default-limit-crypto + (utils/get-standard-crypto-format + token + available-balance)) + current-fiat-limit (.toFixed (* token-balance conversion-rate) 2) + available-fiat-limit (.toFixed (* available-balance conversion-rate) 2) + current-limit (if @crypto-currency? + current-crypto-limit + current-fiat-limit) + available-limit (if @crypto-currency? + available-crypto-limit + available-fiat-limit) valid-input? (not (or (string/blank? (controlled-input/input-value input-state)) @@ -167,7 +181,7 @@ 0) (> (controlled-input/numeric-value input-state) - current-limit))) + available-limit))) current-currency (if @crypto-currency? token-symbol fiat-currency) input-num-value (controlled-input/numeric-value input-state) confirm-disabled? (or (nil? route) @@ -232,7 +246,10 @@ (contains? receiver-preferred-networks-set receiver-selected-network)) - receiver-networks))] + receiver-networks)) + limit-insufficient? (> (controlled-input/numeric-value input-state) + current-limit) + should-try-again? (and (not limit-insufficient?) no-routes-found?)] (rn/use-mount (fn [] (let [dismiss-keyboard-fn #(when (= % "active") (rn/dismiss-keyboard!)) @@ -256,7 +273,7 @@ :currency current-currency :crypto-decimals crypto-decimals :error? (controlled-input/input-error input-state) - :networks (seq token-networks) + :networks (seq send-enabled-networks) :title (i18n/label :t/send-limit {:limit (make-limit-label current-limit current-currency)}) :conversion conversion-rate @@ -280,7 +297,7 @@ :fees fee-formatted :amount amount-text :receiver (address/get-shortened-key to-address)}]) - (when no-routes-found? + (when (or no-routes-found? limit-insufficient?) [rn/view {:style style/no-routes-found-container} [quo/info-message {:type :error @@ -290,13 +307,13 @@ (i18n/label :t/no-routes-found)]]) [quo/bottom-actions {:actions :one-action - :button-one-label (if no-routes-found? + :button-one-label (if should-try-again? (i18n/label :t/try-again) button-one-label) :button-one-props (merge button-one-props - {:disabled? (and (not no-routes-found?) confirm-disabled?) + {:disabled? (and (not should-try-again?) confirm-disabled?) :on-press (cond - no-routes-found? + should-try-again? #(rf/dispatch [:wallet/get-suggested-routes {:amount (controlled-input/input-value input-state)}]) @@ -304,7 +321,7 @@ #(show-unpreferred-networks-alert on-confirm) :else on-confirm)} - (when no-routes-found? + (when should-try-again? {:type :grey}))}] [quo/numbered-keyboard {:container-style (style/keyboard-container bottom) diff --git a/src/status_im/subs/wallet/wallet.cljs b/src/status_im/subs/wallet/wallet.cljs index 9e31f43e6c..9fd0747a6a 100644 --- a/src/status_im/subs/wallet/wallet.cljs +++ b/src/status_im/subs/wallet/wallet.cljs @@ -290,11 +290,13 @@ :wallet/current-viewing-account-tokens-filtered :<- [:wallet/current-viewing-account] :<- [:wallet/network-details] - (fn [[account networks] [_ query]] + (fn [[account networks] [_ query chain-ids]] (let [tokens (map (fn [token] (assoc token - :networks (network-utils/network-list token networks) - :total-balance (utils/calculate-total-token-balance token))) + :networks (network-utils/network-list token networks) + :available-balance (utils/calculate-total-token-balance token) + :total-balance (utils/calculate-total-token-balance token + chain-ids))) (:tokens account)) sorted-tokens (sort-by :name compare tokens)] (if query @@ -452,3 +454,19 @@ :wallet/public-address :<- [:wallet/create-account] :-> :public-address) + +(rf/reg-sub + :wallet/wallet-send-enabled-networks + :<- [:wallet/wallet-send-token] + :<- [:wallet/wallet-send-disabled-from-chain-ids] + (fn [[{:keys [networks]} disabled-from-chain-ids]] + (->> networks + (filter #(not (contains? (set disabled-from-chain-ids) + (:chain-id %)))) + set))) + +(rf/reg-sub + :wallet/wallet-send-enabled-from-chain-ids + :<- [:wallet/wallet-send-enabled-networks] + (fn [send-enabled-networks] + (map :chain-id send-enabled-networks)))