ref: using changes in :wallet/tokens-filtered
This commit is contained in:
Cristian Lungu
parent
42a2b86723
commit
f248265182
|
|
@ -57,24 +57,36 @@
|
|||
|
||||
(defn normalize-market-values
|
||||
[market-values]
|
||||
(reduce (fn [acc [token-symbol data]]
|
||||
(assoc acc
|
||||
token-symbol
|
||||
{:market-cap (:MKTCAP data)
|
||||
:high-day (:HIGHDAY data)
|
||||
:low-day (:LOWDAY data)
|
||||
:change-pct-hour (:CHANGEPCTHOUR data)
|
||||
:change-pct-day (:CHANGEPCTDAY data)
|
||||
:change-pct-24h (:CHANGEPCT24HOUR data)
|
||||
:change-24h (:CHANGE24HOUR data)}))
|
||||
{}
|
||||
market-values))
|
||||
(reduce-kv (fn [acc token-symbol data]
|
||||
(assoc acc
|
||||
token-symbol
|
||||
{:market-cap (:MKTCAP data)
|
||||
:high-day (:HIGHDAY data)
|
||||
:low-day (:LOWDAY data)
|
||||
:change-pct-hour (:CHANGEPCTHOUR data)
|
||||
:change-pct-day (:CHANGEPCTDAY data)
|
||||
:change-pct-24h (:CHANGEPCT24HOUR data)
|
||||
:change-24h (:CHANGE24HOUR data)}))
|
||||
{}
|
||||
market-values))
|
||||
|
||||
(defn normalize-token-details
|
||||
[token-details]
|
||||
(reduce (fn [acc [token-symbol data]]
|
||||
(->> data
|
||||
(cske/transform-keys transforms/->kebab-case-keyword)
|
||||
(assoc acc token-symbol)))
|
||||
{}
|
||||
token-details))
|
||||
(reduce-kv (fn [acc token-symbol data]
|
||||
(->> data
|
||||
(cske/transform-keys transforms/->kebab-case-keyword)
|
||||
(assoc acc token-symbol)))
|
||||
{}
|
||||
token-details))
|
||||
|
||||
(defn normalize-prices
|
||||
[token-prices]
|
||||
(reduce-kv
|
||||
(fn [acc k v]
|
||||
(->> v
|
||||
(map (fn [[currency price]]
|
||||
[currency {:price price}]))
|
||||
(into {})
|
||||
(assoc acc k)))
|
||||
{}
|
||||
token-prices))
|
||||
|
|
|
|||
|
|
@ -25,7 +25,8 @@
|
|||
(defn fetch-prices
|
||||
[symbols currencies]
|
||||
(-> (rpc-events/call-async "wallet_fetchPrices" true symbols currencies)
|
||||
(promesa/then transforms/js->clj)))
|
||||
(promesa/then transforms/js->clj)
|
||||
(promesa/then tokens-data/normalize-prices)))
|
||||
|
||||
(defn fetch-additional-token-data
|
||||
[symbols currency]
|
||||
|
|
|
|||
|
|
@ -474,33 +474,65 @@
|
|||
sorted-tokens))
|
||||
sorted-tokens))))
|
||||
|
||||
;; NOTE: ideally we just pass the symbols list and individual components get the details themselves
|
||||
(rf/reg-sub
|
||||
:wallet.swap/popular-token-symbols
|
||||
:<- [:wallet/tokens]
|
||||
(fn [{:keys [symbol-lists tokens-by-symbol]} [_ chain-id query]]
|
||||
(when symbol-lists
|
||||
(let [tokens (->> (get symbol-lists chain-id)
|
||||
(mapv (fn [token-symbol]
|
||||
{:type constants/swap-tokens-popular
|
||||
:name (get-in tokens-by-symbol [chain-id (keyword token-symbol) :name])
|
||||
:symbol token-symbol})))]
|
||||
(if query
|
||||
(let [query-string (string/lower-case query)]
|
||||
(filter #(or (string/starts-with? (string/lower-case (:name %)) query-string)
|
||||
(string/starts-with? (string/lower-case (str (:symbol %))) query-string))
|
||||
tokens))
|
||||
tokens)))))
|
||||
|
||||
(rf/reg-sub
|
||||
:wallet.swap/get-popular-token-data
|
||||
:<- [:wallet/tokens]
|
||||
(fn [{:keys [tokens-by-symbol market-values-by-symbol prices-by-symbol details-by-symbol]}
|
||||
[_ chain-id token-symbol]]
|
||||
(let [token-symbol (keyword token-symbol)]
|
||||
(-> tokens-by-symbol
|
||||
(get-in [chain-id token-symbol])
|
||||
(assoc :market-values (get market-values-by-symbol token-symbol)
|
||||
:details (get details-by-symbol token-symbol)
|
||||
:market-values-per-currency (get prices-by-symbol token-symbol))))))
|
||||
|
||||
(-> (rf/subscribe [:wallet.swap/popular-token-symbols 1 "ETH"])
|
||||
deref)
|
||||
|
||||
;; NOTE: even with this structure, we don't have to filter out the chain-ids, as they are already
|
||||
;; split by chain-ids
|
||||
(rf/reg-sub
|
||||
:wallet/all-tokens-by-chain-id
|
||||
:<- [:wallet/tokens]
|
||||
(fn [{:keys [symbol-lists tokens-by-symbol market-values-by-symbol prices-by-symbol details-by-symbol]}
|
||||
[_ chain-id]]
|
||||
(->> (get symbol-lists chain-id)
|
||||
(map (fn [token-symbol]
|
||||
(-> tokens-by-symbol
|
||||
(get-in [chain-id (keyword token-symbol)])
|
||||
(assoc :market-values (get market-values-by-symbol token-symbol)
|
||||
:details (get details-by-symbol token-symbol)
|
||||
:market-values-per-currency (get prices-by-symbol token-symbol))))))))
|
||||
|
||||
(rf/reg-sub
|
||||
:wallet/tokens-filtered
|
||||
:<- [:wallet/tokens]
|
||||
:<- [:profile/currency]
|
||||
(fn [[{:keys [by-symbol market-values-per-token details-per-token prices-per-token]} currency]
|
||||
[_ {:keys [query chain-ids hide-token-fn]}]]
|
||||
(let [tokens (->> by-symbol
|
||||
(map (fn [token]
|
||||
(let [token-symbol (keyword (:symbol token))
|
||||
price (get-in prices-per-token [token-symbol currency])]
|
||||
(-> token
|
||||
(assoc :market-values
|
||||
(get market-values-per-token token-symbol))
|
||||
(assoc :details (get details-per-token token-symbol))
|
||||
(assoc-in [:market-values-per-currency currency :price]
|
||||
price)))))
|
||||
(filter (fn [{:keys [chain-id]}]
|
||||
(some #{chain-id} chain-ids)))
|
||||
(remove #(when hide-token-fn
|
||||
(hide-token-fn constants/swap-tokens-popular %))))
|
||||
sorted-tokens (utils/sort-tokens-by-name tokens)]
|
||||
(if query
|
||||
(let [query-string (string/lower-case query)]
|
||||
(filter #(or (string/starts-with? (string/lower-case (:name %)) query-string)
|
||||
(string/starts-with? (string/lower-case (:symbol %)) query-string))
|
||||
sorted-tokens))
|
||||
sorted-tokens))))
|
||||
(fn [[_ {:keys [chain-ids]}]]
|
||||
(rf/subscribe [:wallet/all-tokens-by-chain-id (first chain-ids)]))
|
||||
(fn [tokens [_ {:keys [query]}]]
|
||||
(if query
|
||||
(let [query-string (string/lower-case query)]
|
||||
(filter #(or (string/starts-with? (string/lower-case (:name %)) query-string)
|
||||
(string/starts-with? (string/lower-case (:symbol %)) query-string))
|
||||
tokens))
|
||||
tokens)))
|
||||
|
||||
(rf/reg-sub
|
||||
:wallet/token-by-symbol
|
||||
|
|
|
|||
Loading…
Reference in New Issue