|
@@ -9,14 +9,6 @@
|
|
|
(defmethod handle :mkdir [[_ dir]]
|
|
|
(fs/mkdirSync dir))
|
|
|
|
|
|
-(defn- ls-dir [dir]
|
|
|
- (->> (tree-seq
|
|
|
- (fn [f] (.isDirectory (.statSync fs f) ()))
|
|
|
- (fn [d] (map #(.join path d %) (.readdirSync fs d)))
|
|
|
- dir)
|
|
|
- (apply concat)
|
|
|
- (doall)))
|
|
|
-
|
|
|
(defmethod handle :readdir [[_ dir]]
|
|
|
(->> (tree-seq
|
|
|
(fn [f] (.isDirectory (fs/statSync f) ()))
|