Ajax example (from Stack Overflow)

ajaxjayq

How to make a json(p) request from ClojureScript using jQuery

21 Jul 2011 by mjg123

ajax.cljs

(def jquery (js* "$"))

(defn show [msg]
  (let [data-as-json ((js* "JSON.stringify") msg nil 4)]
    ((js* "alert") data-as-json)))

(defn make-js-map
  "makes a javascript map from a clojure one"
  [cljmap]
  (let [out (js-obj)]
    (doall (map #(aset out (name (first %)) (second %)) cljmap))
    out))

(defn doajax []
  (.ajax jquery
    "http://api.stackoverflow.com/1.1/users/268619"
    (make-js-map
      {:success show
       :dataType "jsonp"
       :jsonp "jsonp"})))

(.ready (jquery (js* "document"))
  doajax)

index.html

<html>
  <head>
    <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery.min.js"></script>
    <script type="text/javascript" src="hello.js"></script>
  </head>
  <body>
  </body>
</html>