images.clj

(ns slideshow.images
  (:use [clojure.java.io :only [copy file input-stream output-stream]])
  (:import [java.io File FileReader FileWriter]))

(defn get-files [dir]
  (let [data (filter #(.isFile #^File %)
                     (file-seq (java.io.File. dir)))]
    (sort-by #(.lastModified %) < data)))

(defn get-images [dir]
  (filter #(re-find #"(?i)[.](gif|jpg|png)$" (.getName %)) (get-files dir)))

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