Get USD value for token-value map

* get current USD value for an arbirary size token-value map
2017-08-04 12:16:13 +03:00 · 2017-08-04 12:16:13 +03:00 · 209698c170
parent f379da4924
commit 209698c170
1 changed files with 9 additions and 0 deletions
--- a/src/clj/commiteth/util/crypto_fiat_value.clj
+++ b/src/clj/commiteth/util/crypto_fiat_value.clj
@ -12,3 +12,12 @@
               (json/read-str))]
    (-> (get-in m ["ticker" "price"])
        (read-string))))
+
+
+(defn bounty-usd-value
+  "Get current USD value of a bounty. bounty is a map of token-name to value"
+  [bounty]
+  (reduce + (map (fn [[token value]]
+                   (let [usd-price (get-token-usd-price token)]
+                     (* usd-price value)))
+                 bounty)))