gistfile1.clj

(def *enc-files-dir* "/home/blah/sandbox/enc")
(def *dec-files-dir* "/home/blah/sandbox/dec")

(defstruct file-map :filename :path :modified)

(defn #^{:doc "Return vec of file-maps"}
  file-list [path]
  (vec 
   (map (fn [n]
	  (struct-map file-map
	    :filename (.getName n)
	    :path (str (.toURI n))
	    :modified (.lastModified n))) (vec (.listFiles (File. path))))))