add c.m-g/module-for

Author: swannodette

src/main/clojure/cljs/module_graph.cljc

@@ -333,3 +333,15 @@
       (fn [ret module-name {:keys [depends-on] :or {depends-on []} :as module}]
         (assoc ret module-name depends-on))
       {} modules)))
+
+(defn module-for
+  "Given an entry find the module it belongs to."
+  [entry modules]
+  (let [modules' (normalize modules)
+        entry'   (str (munge entry))]
+    (->> modules'
+      (some
+        (fn [[module-name {:keys [entries]} :as me]]
+          (when (some #{entry'} entries)
+            me)))
+      first)))

src/test/clojure/cljs/module_graph_tests.clj

@@ -7,7 +7,7 @@
 ;; You must not remove this notice, or any other, from this software.
 
 (ns cljs.module-graph-tests
-  (:require [clojure.test :refer [deftest is testing]]
+  (:require [clojure.test :as test :refer [deftest is testing]]
             [cljs.closure :as closure]
             [cljs.util :as util]
             [cljs.module-graph :as module-graph]))
@@ -145,4 +145,8 @@
         {:cljs-base ["/asset/js/cljs_base.js"]
          :shared ["/asset/js/shared.js"]
          :page1 ["/asset/js/page1.js"]
-         :page2 ["/asset/js/page2.js"]})))
+         :page2 ["/asset/js/page2.js"]})))
+
+(deftest test-module-for
+  (is (= :page1 (module-graph/module-for 'page1.a (modules opts))))
+  (is (= :page1 (module-graph/module-for "page1.a" (modules opts)))))