add mimetype-converter support to ajax request

tmcf · Sep 18, 2012 · b836d14 · b836d14
1 parent 3a77c75
commit b836d14
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/src/jayq/core.cljs b/src/jayq/core.cljs
@@ -1,6 +1,7 @@
 (ns jayq.core
   (:refer-clojure :exclude [val empty remove find])
-  (:require [clojure.string :as string])
+  (:require [clojure.string :as string]
+            [cljs.reader :as reader])
   (:use [jayq.util :only [clj->js]]))
 
 (defn crate-meta [func]
@@ -195,6 +196,17 @@
   ([settings]
     (.ajax js/jQuery (clj->js settings))))
 
+(defn ^:private mimetype-converter [s]
+  (reader/read-string (str s)))
+
+(.ajaxSetup js/jQuery
+ (clj->js
+  {:contents {"clj" #"edn|clj"}
+   :converters
+   {"text edn" mimetype-converter
+    "text clj" mimetype-converter}}))
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Events
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;