40 lines
1.1 KiB
Clojure
40 lines
1.1 KiB
Clojure
(ns legacy.status-im.subs.networks
|
|
(:require
|
|
[re-frame.core :as re-frame]
|
|
[status-im.config :as config]
|
|
[utils.ethereum.chain :as chain]))
|
|
|
|
(defn- filter-networks
|
|
[network-type]
|
|
(fn [network]
|
|
(let [chain-id (chain/network->chain-id network)
|
|
testnet? (chain/testnet? chain-id)
|
|
custom? (:custom? network)]
|
|
(case network-type
|
|
:custom custom?
|
|
:mainnet (and (not custom?) (not testnet?))
|
|
:testnet (and (not custom?) testnet?)))))
|
|
|
|
(defn- label-networks
|
|
[default-networks]
|
|
(fn [network]
|
|
(let [custom? (not (default-networks (:id network)))]
|
|
(assoc network :custom? custom?))))
|
|
|
|
(re-frame/reg-sub
|
|
:get-networks
|
|
:<- [:networks/networks]
|
|
(fn [networks]
|
|
(let [networks (map (label-networks (into #{} (map :id config/default-networks)))
|
|
(sort-by :name (vals networks)))
|
|
types [:mainnet :testnet :custom]]
|
|
(zipmap
|
|
types
|
|
(map #(filter (filter-networks %) networks) types)))))
|
|
|
|
(re-frame/reg-sub
|
|
:manage-network-valid?
|
|
:<- [:networks/manage]
|
|
(fn [manage]
|
|
(not-any? :error (vals manage))))
|