Clojure: List files in directory

ls-files.clj

(ns x.y
  (:import
    [java.io File]))

(defn ls-match
  "Given the directory handle d, lists all files matching the given
   regex. Returns the Java File instances.
   Example:
   (ls-match (File. \"./dir\") #\"(?i).drl$\")"
  ([^File d]
    (ls-match d #"^[~_.]"))
  ([^File d regex]
    (.listFiles d
      (reify
        java.io.FileFilter
        (accept [this f]
          (and
            (.isFile f)
            (boolean (re-find regex (.getName f)))))))))