ClojureScript HTML5 FetchAPI usage

html5fetch_api.cljs

;; This works easiest using the thread-first macro ( -> )
;; I couldn't get it to work with fetch().then().then()[...].catch() for error handling.
(fn []
  (->
    (js/fetch "/weather-data.json")
    (.then
      (fn [resp]
        (println "status: " (.-status resp))
        (when (= 200 (.-status resp))
          (->
            (.json resp)
            (.then
              (fn [json]
                (println "got txt: " json)))))))))

;; A more useful examlpe, defining a fetch function, and a handler example following this defn.
(defn fetch-json 
  [uri handle-json-fn]
  (->
    (js/fetch uri)
    (.then
      (fn [resp]
        (println "status: " (.-status resp))
        (when (= 200 (.-status resp))
          (->
            (.json resp)
            (.then handle-json-fn)))))))

(fetch-json "/weather-data.json"
  (fn [json]
    (println "this is the json I got: " json)))