Как скопировать каталог в Clojure?

Question

Есть ли библиотека, которая позволяет мне копировать каталог и все подкаталоги в Clojure? Что-то вроде:

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

Answer 1

Вы можете использовать следующий код для copy-dir:

копировать-Dir (копия-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)))) 

Или напрямую использовать имеющиеся fs library на Github.