meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wip

Browse source
This commit is contained in:
mattis 2019-12-13 11:56:16 +01:00
parent 4d467957ee
commit 0d7521d87f
1 changed files with 6 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/cryogen_core/classpath_able_io.clj
View file

@ -15,26 +15,12 @@
(filter #(not (re-matches ignore-patterns %)) source-list))
(defn delete-file-recursive
[folder]
(loop [folder-list (.list folder)
file-list (filter )
file-path-prefix [""]]
(let [f (first source-list)
second? (not (nil? (second source-list)))
source-file (io/file folder (str (first file-path-prefix) f))]
(if (.isFile source-file)
(do
(io/delete-file source-file)
(when second?
(recur (drop 1 source-list) file-path-prefix)))
(let [sub-dir-list (.list source-file)
sub-dir-list-count (count sub-dir-list)]
(when (> sub-dir-list-count 0)
(recur (concat sub-dir-list (drop 1 source-list))
(concat (repeat sub-dir-list-count
(str (first file-path-prefix) f "/"))
(drop 1 file-path-prefix)))))))))
[folders]
(let [file-list (filter #(.isFile %) folders)
dir-list (filter #(not (.isFile %)) folders)]
(doseq [file file-list] (io/delete-file file))
(when (not (empty? dir-list))
(recur (drop 1 dir-list)))))
(defn file-from-cp
[resource-path]