function | since v1.10.145 | Edit |
(file-display file {:keys [output-dir temp-output-dir?]})
(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))