kopia lustrzana https://github.com/tonsky/FiraCode
12 wiersze
289 B
Clojure
12 wiersze
289 B
Clojure
|
(ns fira-code.files
|
||
|
|
(:refer-clojure :exclude [find])
|
||
|
|
(:require
|
||
|
|
[clojure.java.io :as io]
|
||
|
|
[clojure.string :as str]))
|
||
|
|
|
||
|
|
|
||
|
|
(defn find [path re]
|
||
|
|
(->> (file-seq (io/file path))
|
||
|
|
(next) ;; skip directory itself
|
||
|
|
(filter #(re-matches re (.getPath %)))
|
||
|
|
(sort-by #(.getPath %))))
|