cljs.repl/file-display

functionsince v1.10.145Edit
(file-display file {:keys [output-dir temp-output-dir?]})

Source code @ clojurescript:src/main/clojure/cljs/repl.cljc
(defn file-display
  [file {:keys [output-dir temp-output-dir?]}]
  (if temp-output-dir?
    (let [canonicalize (fn [file] (.getCanonicalPath (io/file file)))
          can-file (canonicalize file)
          can-out (canonicalize output-dir)]
      (if (.startsWith can-file can-out)
        (subs can-file (inc (count can-out)))
        (subs can-file (inc (.lastIndexOf can-file java.io.File/separator)))))
    file))