core.clj

(defn make-path
  "Assembles a URI path from the provided pieces"
  [& parts]
  (string/join "/" (concat (list api-url api-version) parts)))



(defn check-errors
  "Checks response for common Chain.com API errrors"
  [response]
  (let [request-id (get (:headers response) "Chain-Request-Id")]
    (if (nil? request-id)
      (throw+ { :type    "ConnectivityError"
                :message "The request has not been assigned a Chain Request ID.
                          Most likely, there's a problem with the HTTP connection" }))))




(defn api-get
  [path & { :keys [params] :or { params {} }}]
  (http/get path
        { :basic-auth    [api-token api-key]
          :as            :json
          :client-params { "http.useragent" (str "chain-enterprise-clojure/" version) }
          :query-params params  }))



(defn issuer-nodes
  []
  (api-get (make-path "projects" project-id "issuer-nodes") :params {:page 10 }))

(def raw-data (issuer-nodes))


((comp (partial into {}) check-errors) raw-data)