46 lines
1.5 KiB
Clojure
46 lines
1.5 KiB
Clojure
(ns legacy.status-im.ethereum.macros
|
|
(:require
|
|
[clojure.java.io :as io]
|
|
[clojure.string :as string]))
|
|
|
|
(defn token-icon-path
|
|
[path]
|
|
(fn [el]
|
|
(let [el (string/replace el ".png" "")
|
|
s (str path el ".png")
|
|
s-js (str "." s)]
|
|
(when (.exists (io/file s))
|
|
[el `(js/require ~s-js)]))))
|
|
|
|
(defmacro resolve-icons
|
|
"In react-native arguments to require must be static strings.
|
|
Resolve all icons at compilation time so no variable is used."
|
|
[network]
|
|
(let [path (str "./resources/images/tokens/" (name network) "/")
|
|
files (->> (io/file path)
|
|
file-seq
|
|
(filter #(string/ends-with? % "png"))
|
|
(map #(first (string/split (.getName %) #"@")))
|
|
distinct)]
|
|
(into {} (map (token-icon-path path) files))))
|
|
|
|
(defn network->icon
|
|
[network]
|
|
(let [s (str "./resources/images/tokens/" (name network) "/0-native.png")
|
|
s-js (str "." s)]
|
|
(if (.exists (io/file s))
|
|
`(js/require ~s-js)
|
|
`(js/require "../resources/images/tokens/default-token.png"))))
|
|
|
|
(defmacro resolve-native-currency-icons
|
|
"In react-native arguments to require must be static strings.
|
|
Resolve all icons at compilation time so no variable is used."
|
|
[all-native-currencies]
|
|
(into {}
|
|
(map (fn [[network native-currency]]
|
|
[network
|
|
(assoc-in native-currency
|
|
[:icon :source]
|
|
(network->icon network))])
|
|
all-native-currencies)))
|