Get Exchange Rates

get_year_end_tax_currency_rates.clj

(import 'java.time.format.DateTimeFormatter
        'java.time.LocalDateTime)

(require '[org.httpkit.client :as hk])

(def previous-year 
  (let [date (LocalDateTime/now)
      formatter (DateTimeFormatter/ofPattern "yyyy")]
  (-> (.format date formatter)
      (Integer/parseInt)
      (- 1))))

(let [x (hk/request {:url (str "https://api.fiscaldata.treasury.gov/services/api/" 
                   "fiscal_service/v1/accounting/od/rates_of_exchange")
             :method :get
             :query-params {"fields" "country_currency_desc,exchange_rate"
                            "filter" (str "country_currency_desc:in:(Canada-Dollar,Euro Zone-Euro),"
                                           "record_date:eq:" previous-year "-12-31")}})]
  (let [{data "data"} (json/parse-string (:body @x))]
    (doseq [currency data]
    (let [{name "country_currency_desc" rate "exchange_rate"} currency]
      (println (str name " : " rate))))))