inline cljs.core source map JSON into empty compiler state

Author: swannodette

src/main/cljs/cljs/js.clj

@@ -9,12 +9,16 @@
 (ns cljs.js
   (:require [cljs.env :as env]
             [cljs.env.macros :as menv]
-            [cljs.analyzer :as ana]))
+            [cljs.analyzer :as ana]
+            [clojure.java.io :as io]))
 
 (defmacro with-state
   [state & body]
   `(menv/with-compiler-env ~state
      ~@body))
 
 (defmacro dump-core []
-  `(quote ~(get-in @env/*compiler* [::ana/namespaces 'cljs.core])))
+  `(quote ~(get-in @env/*compiler* [::ana/namespaces 'cljs.core])))
+
+(defmacro dump-core-source-map-json []
+  (slurp (io/resource "cljs/core.aot.js.map")))

src/main/cljs/cljs/js.cljs

@@ -7,7 +7,7 @@
 ;   You must not remove this notice, or any other, from this software.
 
 (ns cljs.js
-  (:require-macros [cljs.js :refer [dump-core]]
+  (:require-macros [cljs.js :refer [dump-core dump-core-source-map-json]]
                    [cljs.env.macros :as env])
   (:require [clojure.string :as string]
             [cljs.env :as env]
@@ -97,7 +97,11 @@
    eval and eval-str."
   ([]
    (doto (env/default-compiler-env)
-     (swap! assoc-in [::ana/namespaces 'cljs.core] (dump-core))))
+     (swap!
+       (fn [state]
+         (-> state
+           (assoc-in [::ana/namespaces 'cljs.core] (dump-core))
+           (assoc :core-source-map-json (dump-core-source-map-json)))))))
   ([init]
    (doto (empty-state) (swap! init))))