Delete Directories recursively with Clojure in only 4 lines of code.

delete_recursive.clj

(ns yourproject.yourns
  (:require [clojure.java.io :as io]))

(defn delete-directory-recursive
  "Recursively delete a directory."
  [^java.io.File file]
  ;; when `file` is a directory, list its entries and call this
  ;; function with each entry. can't `recur` here as it's not a tail
  ;; position, sadly. could cause a stack overflow for many entries?
  ;; thanks to @nikolavojicic for the idea to use `run!` instead of
  ;; `doseq` :)
  (when (.isDirectory file)
    (run! delete-directory-recursive (.listFiles file)))
  ;; delete the file or directory. if it it's a file, it's easily
  ;; deletable. if it's a directory, we already have deleted all its
  ;; contents with the code above (remember?)
  (io/delete-file file))

Even shorter :)

(run! delete-directory-recursive (.listFiles file))

...instead of doseq...

Great point, I didn't even know about run!. Thanks, edited!

That one line should work too:

(run! io/delete-file (reverse (file-seq file)))