Update .extend api

Author: tgriesser

src/mori.cljs

@@ -18,7 +18,8 @@
     sum inc dec even? odd? subseq
     apply])
   (:use-macros [mori.macros :only [make-inspectable]])
-  (:require [clojure.set :as set]
+  (:require [goog.object]
+            [clojure.set :as set]
             [clojure.data :as data]
             [clojure.core.reducers :as reducers]
             [cljs.reader :as reader]))
@@ -348,7 +349,7 @@
     ISeqable
     (-seq [this] (.call (aget methods "seq") this))))
 
-(defn ^:export extend [protocol-name obj methods]
+(defn extend! [protocol-name obj methods]
   (case protocol-name
     "IAssociative" (extend-to-iassociative obj methods)
     "ICloneable" (extend-to-icloneable obj methods)
@@ -365,6 +366,12 @@
     "ISeqable" (extend-to-iseqable obj methods)
     (throw (js/Error. (str "Cannot extend to " protocol-name)))))
 
+(defn ^:export extend [obj protocols]
+  (goog.object/forEach protocols 
+    (fn [val key o]
+      (extend! key obj val)))
+       obj)
+
 ;; =============================================================================
 ;; Closure hacks so we get exported ES6 Map/Set interface on collections
 ;; Following functions are NOT a part of the API