   [f]
   (.setLastModified f (System/currentTimeMillis)))
 
-(defn git-files [& {:keys [untracked]}]
+(defn git-files
+  "Returns a list of files roughly equivalent to what you'd get with the git
+  command line `git ls-files`. The :untracked option includes untracked files."
+  [& {:keys [untracked]}]
   (git/ls-files :untracked untracked))
 
 (defn file-filter

                 (sync-user-dirs!))]
    (binding [*warnings* (atom 0)]
      (reset-build!)
      ((task-stack #(do (sync! %) %)) (commit! (reset-fileset nil))))))

(defmacro boot
  "Builds the project as if `argv` was given on the command line."

        (apply file/sync :theirs (first d) s)))))

(defn- set-fake-class-path!
  "Sets the fake.class.path system property to reflect all JAR files on the
  pod class path plus the :source-paths and :resource-paths. Note that these
  directories are not actually on the class path (this is why it's the fake
  class path). This property is a workaround for IDEs and tools that expect
  the full class path to be determined by the java.class.path property."
  []
  (let [dirs (->> (get-env)
                  ((juxt :source-paths :resource-paths))
