"Mob Session DONE [ci-skip]"

master
jem 5 years ago
parent c003e79fc3
commit 90935bab43

@ -3,5 +3,18 @@
[clojure.string :as s]
[me.raynes.fs :as fs]))
(defn copy-resources
[source-path target-path]
(cond
(not (.exists (io/file source-path)))
(throw (IllegalArgumentException. (str "resource " source-path " not found")))
(.isDirectory (io/file source-path))
(copy-dir source-path target-path ignored-files)
:else
(fs/copy source-path target-path)))
(defn copy-resources-from-theme
[theme target])
[theme target]
(let [source-path (str "templates/themes/" theme "/js")
target-path (str target "/js")]
copy-resources source-path target-path))

Loading…
Cancel
Save