如何在Clojure中复制目录？

Question

是否有一个库允许我在 Clojure 中复制目录和所有子目录？就像是：

(copy "source-dir" "destination-dir")

Answer 1

您可以使用以下代码copy-dir：

复制目录（从到复制目录）

将目录从 复制from到to. 如果 to已存在，则将该目录复制到与from该to目录内同名的目录中。

(defn copy-dir
  "Copy a directory from `from` to `to`. If `to` already exists, copy the directory
   to a directory with the same name as `from` within the `to` directory."
  [from to]
  (when (exists? from)
    (if (file? to)
      (throw (IllegalArgumentException. (str to " is a file")))
      (let [from (file from)
            to (if (exists? to)
                 (file to (base-name from))
                 (file to))
            trim-size (-> from str count inc)
            dest #(file to (subs (str %) trim-size))]
        (mkdirs to)
        (dorun
         (walk (fn [root dirs files]
                 (doseq [dir dirs]
                   (when-not (directory? dir)
                     (-> root (file dir) dest mkdirs)))
                 (doseq [f files]
                   (copy+ (file root f) (dest (file root f)))))
               from))
        to))))

或者直接使用Github 上提供的fs 库。