Converting callbacks to use core-async channels in ClojureScript

core.cljs

(ns callback-to-core-async.core
  (:require-macros [cljs.core.async :refer go])
  (:require [ajax.core :refer [GET]]
            [cljs.core.async :refer [<! put! chan]]))

(defn http-get [url]
  (let [out (chan)
        handler #(put! out %1)]
    (GET url {:handler handler :error-handler handler})
    out))

(enable-console-print!)

(go
  (let [result (<! (http-get "http://jsonplaceholder.typicode.com/users/1"))]
    (println result)))