images.clj

(defn get-files [dir]                                                                                                                                                           
  (let [data (filter #(.isFile ^File %)                                                                                                                                         
                     (file-seq (java.io.File. dir)))]                                                                                                                           
    (sort-by #(.lastModified %) < data)))                                                                                                                                       
                                                                                                                                                                                
(defn image? [f]                                                                                                                                                                
  "takes a file object and returns true if it has an                                                                                                                            
   approved image extension."                                                                                                                                                   
  (if (re-find #"(?i)[.](gif|jpg|png)$" (.getName f))                                                                                                                           
    true                                                                                                                                                                        
    false))                                                                                                                                                                     
                                                                                                                                                                                
(defn get-imgs [dir]                                                                                                                                                            
  (filter image? (get-files dir)))