renamed copy-dir

This commit is contained in:
Lukas Schondorff 2019-12-13 11:41:16 +01:00 committed by GitHub
parent 0a9ee92a27
commit b49ebe6186
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -33,7 +33,7 @@
file-from-fs)
(catch Exception e
nil))))
(defn file-from-cp-or-filesystem
[fs-prefix resource-path]
(let [from-fs (file-from-fs fs-prefix resource-path)]
@ -42,12 +42,12 @@
(file-from-cp resource-path))))
(defn copy-file
[source-file ;first element of (.list source-dir)
[source-file
target-file]
(do (io/make-parents target-file)
(io/copy source-file target-file)))
(defn copy-dir
(defn do-copy
[source-dir target-dir ignore-patterns]
(loop [source-list (.list source-dir)
file-path-prefix [""]]
@ -70,15 +70,9 @@
(let [source-file (file-from-cp-or-filesystem fs-prefix source-path)
target-file (io/file target-path source-path)
is-source-dir? (.isDirectory source-file)]
(cond
(nil? source-file)
(if (nil? source-file)
(throw (IllegalArgumentException. (str "resource " source-path " not found")))
is-source-dir?
(copy-dir source-file target-file ignore-patterns)
:else (copy-file source-file target-file)
;; TODO: Call copy-file fct. - take care on parameter.
)))
(do-copy source-file target-file ignore-patterns))))
(defn copy-resources-from-theme
[fs-prefix theme target-path]
@ -86,4 +80,3 @@
(copy-resources fs-prefix (str theme-path "/css") target-path "")
(copy-resources fs-prefix (str theme-path "/js") target-path "")
(copy-resources fs-prefix (str theme-path "/html/404.html") target-path "")))