Merge pull request #12 from emezeske/master

Fix jQuery IReduce, add some missing functions

src/jayq/core.cljs

@@ -55,9 +55,9 @@
 
   IReduce
   (-reduce [this f]
-    (ci-reduce coll f (first this) (count this)))
+    (ci-reduce this f))
   (-reduce [this f start]
-    (ci-reduce coll f start i)))
+    (ci-reduce this f start)))
 
 (set! jQuery.prototype.call
       (fn
@@ -81,6 +81,9 @@
       (. $elem (attr a))
       (. $elem (attr a v)))))
 
+(defn remove-attr [$elem a]
+  (.removeAttr $elem (name a)))
+
 (defn data [$elem k & [v]]
   (let [k (name k)]
     (if-not v
@@ -98,6 +101,10 @@
   (let [cl (name cl)]
     (.removeClass $elem cl)))
 
+(defn has-class [$elem cl]
+  (let [cl (name cl)]
+    (.hasClass $elem cl)))
+
 (defn after [$elem content]
   (.after $elem content))
 
@@ -140,6 +147,9 @@
 (defn find [$elem selector]
   (.find $elem (name selector)))
 
+(defn closest [$elem selector & [context]]
+  (.closest $elem selector context))
+
 (defn clone [$elem]
   (.clone $elem))
 
@@ -154,6 +164,9 @@
     (.val $elem v)
     (. $elem (val))))
 
+(defn serialize [$elem]
+  (.serialize $elem))
+
 (defn queue [$elem callback]
   (. $elem (queue callback)))
 
@@ -169,13 +182,22 @@
                          :success callback})]
     (.ajax js/jQuery uri params)))
 
+(defn ajax
+  ([url settings]
+    (.ajax js/jQuery url (clj->js settings)))
+  ([settings]
+    (.ajax js/jQuery (clj->js settings))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Events
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defn bind [$elem ev func]
   (.bind $elem (name ev) func))
 
+(defn unbind [$elem ev & [func]]
+  (.unbind $elem (name ev) func))
+
 (defn trigger [$elem ev]
   (.trigger $elem (name ev)))