add copy for user resources

This commit is contained in:
jem 2019-12-16 15:34:09 +01:00
parent 1b025378ee
commit 404110092f

View file

@ -118,6 +118,12 @@
(when (.isFile source-file) (when (.isFile source-file)
(io/copy source-file target-file))))))) (io/copy source-file target-file)))))))
(defn copy-resources-from-user!
[fs-prefix resources target-path ignore-patterns]
(let [resource-path "templates"]
(copy-resources! fs-prefix resource-path resources
target-path ignore-patterns)))
(defn copy-resources-from-theme! (defn copy-resources-from-theme!
[fs-prefix theme target-path ignore-patterns] [fs-prefix theme target-path ignore-patterns]
(let [theme-path (str "templates/themes/" theme)] (let [theme-path (str "templates/themes/" theme)]