Extract Financial Data from iexcloud.io

core.clj

(ns iex.core
  (:require [clj-http.client :as client])
  (:gen-class))

(defn try-wrap [f] 
  (fn [x y] 
    (try (f x y) 
      (catch Exception e "http-error"))))

(defn iex-stock-api
  "returns raw response body for a call to stock APIs"
  ([ticker path qstr]
    (let [cp { :cookie-policy :standard }]
      (-> (str "https://cloud.iexapis.com/beta/stock/" 
               ticker "/" path "?token=" 
               "-YOUR API TOKEN GOES HERE-" 
               "&" qstr)
          ((try-wrap client/get) cp)
          ((try-wrap :body) cp))))
  ([ticker path]
    (iex-stock-api ticker path "")))

(defn cash-flow [ticker]
  (iex-stock-api ticker "cash-flow" "last=12"))

(defn -main
  [& args]
  (println "use lein repl"))