"mob next [ci-skip]"

This commit is contained in:
Jan Krebs 2019-12-03 17:33:48 +01:00
parent 90935bab43
commit c19498abbb

View file

@ -3,18 +3,31 @@
[clojure.string :as s] [clojure.string :as s]
[me.raynes.fs :as fs])) [me.raynes.fs :as fs]))
(defn copy-dir
[source-path target-path ignored-files]
(fs/mkdirs target-path)
(let [^java.io.FilenameFilter filename-filter (apply reject-re-filter ignored-files)
files (.listFiles (io/file source-path) filename-filter)]
(doseq [^java.io.File f files]
(let [out (io/file target-path (.getName f))]
(if (.isDirectory f)
(copy-dir f out ignored-files)
(io/copy f out))))))
(defn copy-resources (defn copy-resources
[source-path target-path] [source-path target-path]
(cond (let [ignored-files []]
(cond
(not (.exists (io/file source-path))) (not (.exists (io/file source-path)))
(throw (IllegalArgumentException. (str "resource " source-path " not found"))) (throw (IllegalArgumentException. (str "resource " source-path " not found")))
(.isDirectory (io/file source-path)) (.isDirectory (io/file source-path))
(copy-dir source-path target-path ignored-files) (copy-dir source-path target-path ignored-files)
:else :else
(fs/copy source-path target-path))) (fs/copy source-path target-path))))
(defn copy-resources-from-theme (defn copy-resources-from-theme
[theme target] [theme target]
(let [source-path (str "templates/themes/" theme "/js") (let [source-path (str "templates/themes/" theme "/js")
target-path (str target "/js")] target-path (str target "/js")]
copy-resources source-path target-path)) copy-resources source-path target-path))