micrub/ajax.cljs

## 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>
	(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)
	<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>