From f379da49246a8be07b0aa843ac2f3f441de33836 Mon Sep 17 00:00:00 2001
From: Teemu Patja <tp@iki.fi>
Date: Fri, 4 Aug 2017 11:50:51 +0300
Subject: [PATCH] Support for getting token USD value

* utility function for getting current USD value of a crypto token
  from cryptonator API
---
 src/clj/commiteth/util/crypto_fiat_value.clj | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 src/clj/commiteth/util/crypto_fiat_value.clj

diff --git a/src/clj/commiteth/util/crypto_fiat_value.clj b/src/clj/commiteth/util/crypto_fiat_value.clj
new file mode 100644
index 0000000..642bbcb
--- /dev/null
+++ b/src/clj/commiteth/util/crypto_fiat_value.clj
@@ -0,0 +1,14 @@
+(ns commiteth.util.crypto-fiat-value
+  (:require [clj-http.client :as http]
+            [clojure.data.json :as json]))
+
+
+(defn get-token-usd-price [token]
+  (let [url (str "https://api.cryptonator.com/api/ticker/"
+                 token
+                 "-usd")
+        m (->> (http/get url)
+               (:body)
+               (json/read-str))]
+    (-> (get-in m ["ticker" "price"])
+        (read-string))))