 
 (defn- process-execute-path
   [file {:keys [in-exit-context?] :as opts}]
-  (load {:file file}
-    (fn [{:keys [lang source cache]}]
-      (if source
-        (case lang
-          :clj (execute-source ["text" source] opts)
-          :js (process-macros-deps cache
-                (fn [res]
-                  (if-let [error (:error res)]
-                    (handle-error (js/Error. error) false in-exit-context?)
-                    (process-libs-deps cache
-                      (fn [res]
-                        (if-let [error (:error res)]
-                          (handle-error (js/Error. error) false in-exit-context?)
-                          (js/eval source))))))))
-        (handle-error (js/Error. (str "Could not load file " file)) false in-exit-context?)))))
+  (binding [theme (assoc theme :err-font (:verbose-font theme))]
+    (load {:file file}
+      (fn [{:keys [lang source cache]}]
+        (if source
+          (case lang
+            :clj (execute-source ["text" source] opts)
+            :js (process-macros-deps cache
+                  (fn [res]
+                    (if-let [error (:error res)]
+                      (handle-error (js/Error. error) false in-exit-context?)
+                      (process-libs-deps cache
+                        (fn [res]
+                          (if-let [error (:error res)]
+                            (handle-error (js/Error. error) false in-exit-context?)
+                            (js/eval source))))))))
+                                                                       (handle-error (js/Error. (str "Could not load file " file)) false in-exit-context?))))))
 
 (defn- dir*
   [nsname]

          (cljs/eval-str
            (atom @st)
            source-text
            "Expression"
            (merge
              {:ns            initial-ns
               :source-map    false

  [path]
  (str "file:///" path))

(defn- log-cache-activity
  [read-write path cache-json sourcemap-json]
  (when (:verbose @app-env)
    (println-verbose
      (str
        (if (= :read read-write)
          "Loading"
          "Caching")
        " compiled JS "
        (when cache-json "and analysis cache ")
        (when sourcemap-json "and source map ")
        "for " path))))

(defn- write-cache
  [path name source cache]
  (when (and path source cache (:cache-path @app-env))
    (let [cache-json (cljs->transit-json cache)
          sourcemap-json (cljs->transit-json (get-in @planck.repl/st [:source-maps name]))]
      (log-cache-activity :write path cache-json sourcemap-json)
      (js/PLANCK_CACHE (cache-prefix-for-path path (is-macros? cache))
        (str (form-compiled-by-string (form-build-affecting-options)) "\n" source)
        cache-json
        sourcemap-json))))

(defn- caching-js-eval
  [{:keys [path name source cache]}]
  (when (and path source cache (:cache-path @app-env))
    (write-cache path name source cache))
  (if (and (not (empty? path))
           (not= expression-name path))
    (let [exception (js/PLANCK_EVAL source (file-url (js-path-for-name name)))]
      (when exception
        (throw exception)))
