Clojureでglobでのファイル検索 ref: http://qiita.com/kurogelee/items/97bccacf69e95a338e6d

file1.txt

(files-glob "." "**/*.clj")

glob.clj

(require '[clojure.java.io :as io])
(require '[clojure.string :as s])
(import '[java.nio.file FileSystem FileSystems])
(import '[java.io File])

(def file-separator (System/getProperty "file.separator"))

(defn files-glob [dir glob]
  (let [dir (io/as-file dir)
        path (str "glob:" (.getPath (io/file dir glob)))
        path (if (= file-separator "\\") (s/replace path "\\" "\\\\") path)
        m (.. ^FileSystem (FileSystems/getDefault) (getPathMatcher path))]
    (filter #(.matches m (.toPath ^File %)) (file-seq dir))))