Skip to content

Instantly share code, notes, and snippets.

@jarodl

jarodl/gist:513330

Created August 7, 2010 23:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jarodl/513330 to your computer and use it in GitHub Desktop.
Save jarodl/513330 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn file-maps [#^String dir]
(let [files (file-seq (File. dir))
names (map #(.getName %) files)
paths (map #(.getPath %) files)]
(map (fn [name path] (assoc {} :title name :path path
:lines (ds/read-lines path)))
names paths)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment