cljs.repl/js-src->cljs-src

function

since v0.0-2814

Edit

---

Source docstring:

Map a JavaScript output file back to the original ClojureScript source
file (.cljs or .cljc).

(defn ^File js-src->cljs-src
  [f]
  (let [f (io/file f)
        dir (.getParentFile f)
        base-name (string/replace (.getName f) ".js" "")
        cljsf (io/file dir (str base-name ".cljs"))]
    (if (.exists cljsf)
      cljsf
      (let [cljcf (io/file dir (str base-name ".cljc"))]
        (if (.exists cljcf)
          cljcf)))))

---