feature status-im#6250 - added xdai and poa sidechains

Signed-off-by: Goran Jovic <goranjovic@gmail.com>

Author: goranjovic

resources/images/tokens/poa/0-native.png

@@ -88,7 +88,8 @@
 (defn personal-send-request-short-preview
   [label-key {:keys [content]}]
   (let [{:keys [amount asset network]} (:params content)
-        token (tokens/asset-for (keyword network) (keyword asset))]
+        token (when (and network asset)
+                (tokens/asset-for (keyword network) (keyword asset)))]
     [chat-preview/text {}
      (i18n/label label-key {:amount (i18n/label-number amount)
                             :asset  (wallet.utils/display-symbol token)})]))
@@ -227,7 +228,10 @@
                         :font  :default}
             (wallet.utils/display-symbol token)]]]]
         (when (and fiat-amount
-                   platform/mobile?)
+                   platform/mobile?
+                   ;;NOTE(goranjovic) - have to hide cross network asset fiat value until we can support
+                   ;; multiple chain prices simultaneously
+                   (not network-mismatch?))
           [react/view transactions-styles/command-send-fiat-amount
            [react/text {:style (transactions-styles/command-send-fiat-amount-text outgoing)}
             (str "~ " fiat-amount " " (or currency (i18n/label :usd-currency)))]])
@@ -412,7 +416,10 @@
                                [react/text {:style (transactions-styles/command-request-currency-text outgoing)
                                             :font  :default}
                                 asset]]]
-                             (when platform/mobile?
+                             (when (and platform/mobile?
+                                        ;;NOTE(goranjovic) - have to hide cross network asset fiat value until we can support
+                                        ;; multiple chain prices simultaneously
+                                        (not network-mismatch?))
                                [react/view transactions-styles/command-request-fiat-amount-row
                                 [react/text {:style (transactions-styles/command-request-fiat-amount-text outgoing)}
                                  (str "~ " fiat-amount " " (or currency (i18n/label :usd-currency)))]])

resources/images/tokens/poa/0-native@2x.png

@@ -47,6 +47,20 @@
                            :UpstreamConfig {:Enabled true
                                             :URL     "https://mainnet.infura.io/z6GCTmjdP3FETEJmMBI4"}}}})
 
+(def sidechain-networks
+  {"xdai_rpc" {:id     "xdai_rpc",
+               :name   "xDai Chain",
+               :config {:NetworkId      (ethereum/chain-keyword->chain-id :xdai)
+                        :DataDir        "/ethereum/xdai_rpc"
+                        :UpstreamConfig {:Enabled true
+                                         :URL     "https://dai.poa.network"}}}
+   "poa_rpc"  {:id     "poa_rpc",
+               :name   "POA Network",
+               :config {:NetworkId      (ethereum/chain-keyword->chain-id :poa)
+                        :DataDir        "/ethereum/poa_rpc"
+                        :UpstreamConfig {:Enabled true
+                                         :URL     "https://poa.infura.io"}}}})
+
 (def testnet-networks
   {"testnet"     {:id     "testnet",
                   :name   "Ropsten",
@@ -83,12 +97,14 @@
 
 (def default-networks
   (into {} (filter network-enabled?
-                   (merge testnet-networks mainnet-networks))))
+                   (merge testnet-networks mainnet-networks sidechain-networks))))
 
 (defn default-account-settings []
   {:wallet {:visible-tokens {:testnet #{:STT :HND}
                              :mainnet #{:SNT}
-                             :rinkeby #{:MOKSHA :KDO}}}})
+                             :rinkeby #{:MOKSHA :KDO}
+                             :xdai    #{}
+                             :poa     #{}}}})
 
 (def currencies
   {:aed {:id :aed :code "AED" :display-name (i18n/label :t/currency-display-name-aed) :symbol "د.إ"}

resources/images/tokens/poa/0-native@3x.png

@@ -8,7 +8,8 @@
             [status-im.utils.ethereum.tokens :as tokens]
             [status-im.utils.hex :as utils.hex]
             [status-im.utils.money :as money]
-            [status-im.utils.fx :as fx]))
+            [status-im.utils.fx :as fx]
+            [status-im.ui.screens.wallet.utils :as wallet.utils]))
 
 (def min-gas-price-wei (money/bignumber 1))
 
@@ -233,8 +234,12 @@
                             :chain         chain
                             :success-event :update-token-balance-success
                             :error-event   :update-token-balance-fail}
-       :get-prices         {:from          (if mainnet? (conj tokens "ETH") ["ETH"])
+       :get-prices         {:from          (if mainnet?
+                                             (conj tokens "ETH")
+                                             [(-> (tokens/native-currency chain)
+                                                  (wallet.utils/exchange-symbol))])
                             :to            [(:code currency)]
+                            :mainnet?      mainnet?
                             :success-event :update-prices-success
                             :error-event   :update-prices-fail}
        :db                 (-> db

resources/images/tokens/xdai/0-native.png

@@ -6,7 +6,8 @@
             [status-im.utils.ethereum.core :as ethereum]
             [status-im.utils.fx :as fx]
             [status-im.utils.semaphores :as semaphores]
-            [status-im.utils.utils :as utils]))
+            [status-im.utils.utils :as utils]
+            [status-im.i18n :as i18n]))
 
 (fx/defn update-sync-state
   [{{:keys [sync-state sync-data] :as db} :db} error sync]
@@ -73,6 +74,8 @@
                     (when (and (not error) ; error most probably means we are offline
                                (not= network-id fetched-network-id))
                       (utils/show-popup
-                       "Ethereum node started incorrectly"
-                       "Ethereum node was started with incorrect configuration, application will be stopped to recover from that condition."
+                       (i18n/label :t/ethereum-node-started-incorrectly-title)
+                       (i18n/label :t/ethereum-node-started-incorrectly-description
+                                   {:network-id         network-id
+                                    :fetched-network-id fetched-network-id})
                        #(re-frame/dispatch [:protocol.ui/close-app-confirmed]))))))))

resources/images/tokens/xdai/0-native@2x.png

@@ -53,9 +53,14 @@
       [react/view styles/network-icon
        [vector-icons/icon :icons/network {:color :white}]]
       [react/text {:style (styles/network-text text-color)}
-       (if (ethereum/testnet? network-id)
-         (i18n/label :t/testnet-text {:testnet (get-in ethereum/chains [(ethereum/chain-id->chain-keyword network-id) :name] "Unknown")})
-         (i18n/label :t/mainnet-text))]]]))
+       (cond (ethereum/testnet? network-id)
+             (i18n/label :t/testnet-text {:testnet (get-in ethereum/chains [(ethereum/chain-id->chain-keyword network-id) :name] "Unknown")})
+
+             (ethereum/sidechain? network-id)
+             (i18n/label :t/sidechain-text {:sidechain (get-in ethereum/chains [(ethereum/chain-id->chain-keyword network-id) :name] "Unknown")})
+
+             :else
+             (i18n/label :t/mainnet-text))]]]))
 
 (defn logo
   ([] (logo nil))

resources/images/tokens/xdai/0-native@3x.png

@@ -79,9 +79,10 @@
 ;; TODO(oskarth): At some point we want to get list of relevant assets to get prices for
 (re-frame/reg-fx
  :get-prices
- (fn [{:keys [from to success-event error-event]}]
+ (fn [{:keys [from to mainnet? success-event error-event]}]
    (prices/get-prices from
                       to
+                      mainnet?
                       #(re-frame/dispatch [success-event %])
                       #(re-frame/dispatch [error-event %]))))
 

src/status_im/chat/commands/impl/transactions.cljs

@@ -7,5 +7,13 @@
       (money/token->unit decimals)
       money/to-fixed))
 
-(defn display-symbol [{:keys [symbol-display symbol]}]
-  (clojure.core/name (or symbol-display symbol)))
+;;NOTE(goranjovic) - we are internally using symbol ETH for native currencies of any ethereum network
+;; some sidechains have different names for this native currency, which we handle with `symbol-display` override.
+(defn display-symbol [{:keys [symbol-display symbol] :as token}]
+  (when token
+    (clojure.core/name (or symbol-display symbol))))
+
+;;NOTE(goranjovic) - in addition to custom symbol display, some sidechain native currencies are listed under a different
+;; ticker on exchange networks. We handle that with `symbol-exchange` override.
+(defn exchange-symbol [{:keys [symbol-exchange symbol-display symbol]}]
+  (clojure.core/name (or symbol-exchange symbol-display symbol)))

src/status_im/constants.cljs

@@ -10,7 +10,9 @@
 (def chains
   {:mainnet {:id 1 :name "Mainnet"}
    :testnet {:id 3 :name "Ropsten"}
-   :rinkeby {:id 4 :name "Rinkeby"}})
+   :rinkeby {:id 4 :name "Rinkeby"}
+   :xdai    {:id 100 :name "xDai"}
+   :poa     {:id 99 :name "POA"}})
 
 (defn chain-id->chain-keyword [i]
   (or (some #(when (= i (:id (val %))) (key %)) chains)
@@ -20,7 +22,12 @@
   (get-in chains [k :id]))
 
 (defn testnet? [id]
-  (contains? #{(chain-keyword->chain-id :testnet) (chain-keyword->chain-id :rinkeby)} id))
+  (contains? #{(chain-keyword->chain-id :testnet)
+               (chain-keyword->chain-id :rinkeby)} id))
+
+(defn sidechain? [id]
+  (contains? #{(chain-keyword->chain-id :xdai)
+               (chain-keyword->chain-id :poa)} id))
 
 (defn network-with-upstream-rpc? [network]
   (get-in network [:config :UpstreamConfig :Enabled]))

src/status_im/models/wallet.cljs

@@ -18,8 +18,9 @@
 (def parameter-separator "&")
 (def key-value-separator "=")
 
+;;TODO(goranjovic) - rewrite all of these with something more readable than regex
 (def uri-pattern (re-pattern (str scheme scheme-separator "([^" query-separator "]*)(?:\\" query-separator "(.*))?")))
-(def authority-path-pattern (re-pattern (str "^([^" chain-id-separator function-name-separator "]*)(?:" chain-id-separator "(\\d))?(?:" function-name-separator "(\\w*))?")))
+(def authority-path-pattern (re-pattern (str "^([^" chain-id-separator function-name-separator "]*)(?:" chain-id-separator "(\\d+))?(?:" function-name-separator "(\\w*))?")))
 (def key-value-format (str "([^" parameter-separator key-value-separator "]+)"))
 (def query-pattern (re-pattern (str key-value-format key-value-separator key-value-format)))
 

src/status_im/protocol/core.cljs

@@ -25,7 +25,16 @@
     :rinkeby {:name           "Rinkeby Ether"
               :symbol         :ETH
               :symbol-display :ETHri
-              :decimals       18}}))
+              :decimals       18}
+    :poa     {:name           "POA"
+              :symbol         :ETH
+              :symbol-display :POA
+              :decimals       18}
+    :xdai    {:name            "xDAI"
+              :symbol          :ETH
+              :symbol-display  :xDAI
+              :symbol-exchange :DAI
+              :decimals        18}}))
 
 (def native-currency-symbols
   (set (map #(-> % val :symbol) all-native-currencies)))

src/status_im/ui/components/common/common.cljs

@@ -19,16 +19,25 @@
 (defn- gen-price-url [fsyms tsyms]
   (str api-url "/pricemultifull?fsyms=" (->url-param-syms fsyms) "&tsyms=" (->url-param-syms tsyms) "&" status-identifier))
 
-(defn- format-price-resp [resp]
-  (into {} (for [[from entries] (:RAW (types/json->clj resp))]
-             {from (into {} (for [[to entry] entries]
-                              {to {:from     (name from)
-                                   :to       (name to)
-                                   :price    (:PRICE entry)
-                                   :last-day (:OPEN24HOUR entry)}}))})))
+(defn- format-price-resp [resp mainnet?]
+  ;;NOTE(this check is to allow value conversion for sidechains with native currencies listed on cryptocompare
+  ;; under a symbol different than display symbol. Specific use case xDAI and POA.
+  (if mainnet?
+    (into {} (for [[from entries] (:RAW (types/json->clj resp))]
+               {from (into {} (for [[to entry] entries]
+                                {to {:from     (name from)
+                                     :to       (name to)
+                                     :price    (:PRICE entry)
+                                     :last-day (:OPEN24HOUR entry)}}))}))
+    (into {} (for [[_ entries] (:RAW (types/json->clj resp))]
+               {:ETH (into {} (for [[to entry] entries]
+                                {to {:from     "ETH"
+                                     :to       (name to)
+                                     :price    (:PRICE entry)
+                                     :last-day (:OPEN24HOUR entry)}}))}))))
 
-(defn get-prices [from to on-success on-error]
+(defn get-prices [from to mainnet? on-success on-error]
   (http/get
    (gen-price-url from to)
-   (fn [resp] (on-success (format-price-resp resp)))
+   (fn [resp] (on-success (format-price-resp resp mainnet?)))
    on-error))

src/status_im/ui/screens/wallet/events.cljs

@@ -3,15 +3,19 @@
             [status-im.utils.types :as types]
             [taoensso.timbre :as log]))
 
+(def etherscan-supported?
+  #{:testnet :mainnet :rinkeby})
+
 (defn- get-network-subdomain [chain]
   (case chain
     (:testnet) "ropsten"
     (:mainnet) nil
     (:rinkeby) "rinkeby"))
 
 (defn get-transaction-details-url [chain hash]
-  (let [network-subdomain (get-network-subdomain chain)]
-    (str "https://" (when network-subdomain (str network-subdomain ".")) "etherscan.io/tx/" hash)))
+  (when (etherscan-supported? chain)
+    (let [network-subdomain (get-network-subdomain chain)]
+      (str "https://" (when network-subdomain (str network-subdomain ".")) "etherscan.io/tx/" hash))))
 
 (def etherscan-api-key "DMSI4UAAKUBVGCDMVP3H2STAMSAUV7BYFI")
 
@@ -56,8 +60,10 @@
                {})))
 
 (defn get-transactions [chain account on-success on-error]
-  (let [url (get-transaction-url chain account)]
-    (log/debug "HTTP GET" url)
-    (http/get url
-              #(on-success (format-transactions-response % account))
-              on-error)))
+  (if (etherscan-supported? chain)
+    (let [url (get-transaction-url chain account)]
+      (log/debug "HTTP GET" url)
+      (http/get url
+                #(on-success (format-transactions-response % account))
+                on-error))
+    (log/info "Etherscan not supported for " chain)))