Introduce monger.js/load-resource, a helper that loads JS files from the classpath

Yes, to be used with map/reduce and so on.

src/monger/js.clj

@@ -0,0 +1,25 @@
+(ns monger.js
+  (:require [clojure.java.io]))
+
+;;
+;; Implementation
+;;
+
+(defn- normalize-resource
+  [^String path]
+  (if (.endsWith path ".js")
+    path
+    (str path ".js")))
+
+
+
+;;
+;; API
+;;
+
+(defn load-resource
+  (^String [^String path]
+  (with-open [rdr (clojure.java.io/reader (-> (Thread/currentThread)
+                                              .getContextClassLoader
+                                              (.getResourceAsStream (normalize-resource path))))]
+    (reduce str "" (line-seq rdr)))))

test/monger/test/js.clj

@@ -0,0 +1,10 @@
+(ns monger.test.js
+  (:require [monger js]
+            [clojure.java.io :only [reader]])
+  (:use [clojure.test]))
+
+
+(deftest load-js-resource-using-path-on-the-classpath
+  (are [c path] (= c (count (monger.js/load-resource path)))
+       60 "resources/mongo/js/mapfun1.js"
+       60 "resources/mongo/js/mapfun1"))

test/resources/mongo/js/mapfun1.js

@@ -0,0 +1,3 @@
+function() {
+  emit(this.state, this.price * this.quantity);
+}