Jsonp & Clojurescript

gistfile1.clj

(def tumblr-url "http://pipes.yahoo.com/pipes/pipe.run?_id=4ddef10340ec6ec0374cbd0f73bce819&_render=json")

(defn display-count [json-obj]
  (let [data (js->clj json-obj :keywordize-keys true)
        post-count (:count data)]
    (js/alert (str "Number of posts: " post-count))))

(defn display-items [json-obj]
  (let [data (js->clj json-obj :keywordize-keys true)
        items (:items (:value data))
        titles (map :title items)]
    (js/alert (pr-str titles))))

(defn retrieve-tumblr [callback error-callback]
  (.send (goog.net.Jsonp. tumblr-url "_callback")
    "" callback error-callback))

(retrieve-tumblr display-items #(js/alert (str "An error occurred: " %)))