yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Exclude temp files from jar creation.

Browse source
This commit is contained in:
Phil Hagelberg 2010-02-01 20:57:34 -08:00
parent 3754311593
commit 94c675afe6
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/leiningen/jar.clj
View file

@ -26,6 +26,11 @@
(defn unix-path [path]
(.replaceAll path "\\\\" "/"))
(defn skip-file? [file]
(or (.isDirectory file)
(re-find #"^\.?#" (.getName file))
(re-find #"~$" (.getName file))))
(defmulti copy-to-jar (fn [project jar-os spec] (:type spec)))
(defn- trim-leading-str [s to-trim]
@ -37,7 +42,7 @@
[resources classes src]
(map noroot (map project [:resources-path :compile-path :source-path]))]
(doseq [child (file-seq (file (:path spec)))]
(when-not (.isDirectory child)
(when-not (skip-file? child)
(let [path (reduce trim-leading-str (unix-path (str child))
[root resources classes src "/"])]
(.putNextEntry jar-os (JarEntry. path))