copy assets task

gistfile1.txt

(core/deftask assets
  "copy assets to build-dir"
  [v verbose bool "Print trace messages"]
  (core/with-pre-wrap [fs]
    (let [tgt (core/tmp-dir!)
          in-files (->> fs
                        core/output-files
                        (core/not-by-ext [".clj"])
                        (map (juxt core/tmp-path core/tmp-file)))]
      (doseq [[rel-path in-file] in-files]
        (let [out-file (doto (io/file tgt (str rel-path "/foo")) io/make-parents)]
          (println "     in-file: " in-file)
          (println "tmp out-file: " out-file)
          (core/cp fs in-file out-file)))
      (core/add-asset fs tgt)
      (core/commit! fs))))

(core/deftask assets
  "copy assets to build-dir"
  [v verbose bool "Print trace messages"]
  (core/with-pre-wrap [fs]
    (let [tgt (core/tmp-dir!)
          in-files (->> fs
                        core/output-files
                        (core/not-by-ext [".clj"])
                        (map (juxt core/tmp-path core/tmp-file)))]
      (doseq [[rel-path in-file] in-files]
        (let [out-file (doto (io/file tgt rel-path "foo") io/make-parents)]
          (println "     in-file: " in-file)
          (println "tmp out-file: " out-file)
          (clojure.java.io/copy in-file out-file))) ;; use regular io/copy here
      (-> fs (core/add-asset tgt) core/commit!)))) ;; fs is an immutable value, operations return a new immutable fs, commit! mutates the filesystem