Skip to content

Instantly share code, notes, and snippets.

Created May 21, 2010 08:01
  • Star 0 You must be signed in to star a gist
  • Fork 2 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save anonymous/408610 to your computer and use it in GitHub Desktop.
(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))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment