Some filesystem operations in Clojure

gistfile1.clj

(defn- cpr!
  "Recursive copy. src and dst are directories.  The *contents* of src will be
  copied *into* dst (just as if you included trainling slashes in the rsync
  command)."
  [src dst]
  (when (not (.exists dst))
    (.mkdir dst))

  (let [root-len (count (.getPath src))
        relative (fn [file]
                   (.. file getPath (substring (inc root-len))))]
    (doseq [path (rest (file-seq src))]
      (let [dst-file (io/file dst (relative path))]
        (if (.isDirectory path)
          (.mkdir dst-file)
          (io/copy path dst-file))))))

(defn- rmr!
  "Recursively delete a directory or file"
  [target]
  (doseq [file (reverse (file-seq target))]
    (.delete file)))