renamed copy-dir
This commit is contained in:
parent
0a9ee92a27
commit
b49ebe6186
1 changed files with 5 additions and 12 deletions
|
@ -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 "")))
|
||||
|
||||
|
|
Loading…
Reference in a new issue