images.clj

(defn copy-imgs [dir]
  (let [imgs (get-images dir)]
    (for [img imgs]
      (with-open [i (input-stream img)
                  o (output-stream (file (str
                                          "static/copies/"
                                          (.getName img))))]
        (copy i o)))))