Public Vars

copy-tree (clj)

function

(copy-tree src dest) (copy-tree src dest {:keys [:replace-existing :copy-attributes :nofollow-links], :as opts})

Copies entire file tree from src to dest. Creates dest if needed using `create-dirs`, passing it the `:posix-file-permissions` option. Supports same options as copy.

Examples

babashka/babashka

(ns built-in
  (:require [babashka.fs :as fs]
          [babashka.process :refer [shell]]))

;; copy clojure spec as built-in
(fs/with-temp-dir [tmp-dir {}]
  (let [tmp-dir (fs/file tmp-dir)]
    (shell {:dir tmp-dir} "git clone https://github.com/babashka/spec.alpha")
    (let [spec-dir (fs/file tmp-dir "spec.alpha")]
      (shell {:dir spec-dir} "git reset 951b49b8c173244e66443b8188e3ff928a0a71e7 --hard")
      (fs/copy-tree (fs/file spec-dir "src" "main" "clojure") (fs/file "resources" "src" "babashka")
                    {:replace-existing true}))))

dundalek/dinodoc

(ns doc
  (:require
   [babashka.fs :as fs]
   [clojure.string :as str]
   [dinodoc.api :as dinodoc]))

(fs/copy-tree "reitit/doc/images" "docs/images")

dundalek/dinodoc

(ns doc
  (:require
   [babashka.fs :as fs]
   [clojure.string :as str]
   [dinodoc.api :as dinodoc]))

(fs/copy-tree "polylith/images" "docs/images")

stelcodes/nuzzle

(ns nuzzle.integration-test
  (:require
   [babashka.fs :as fs]
   [babashka.process :as p]
   [clojure.java.io :as io]
   [clojure.test :as t]
   [nuzzle.util :as util]))

(t/deftest example-sites
  (doseq [example-dir-file (-> "examples" io/file (.listFiles))]
    (t/testing (str "example site " example-dir-file)
      (let [cwd (-> "." fs/canonicalize str)
            example-path (-> example-dir-file fs/canonicalize str)
            example-dist-path (str example-path "/dist")
            dist-snapshot (util/create-dir-snapshot example-dist-path)
            new-example-path (str (fs/create-temp-dir))
            new-example-dist-path (str new-example-path "/dist")
            new-example-deps-path (str new-example-path "/deps.edn")
            new-example-feed-path (str new-example-dist-path "/feed.xml")
            _ (fs/copy-tree example-path new-example-path)
            _ (util/replace-in-file! new-example-deps-path
                                     #"codes\.stel/nuzzle \{:mvn/version \"[0-9\.]+\"\}"
                                     (str "codes.stel/nuzzle {:local/root " (pr-str cwd) "}"))
            ;; Print both out and err to *out* so kaocha will print it upon test failure
            {:keys [exit]} @(p/process ["bb" "clojure" "-T:site" "publish"] {:dir new-example-path
                                                                             :out *out*
                                                                             :err *out*})
            ;; Normalize atom feed creation timestamp
            _ (when (fs/exists? new-example-feed-path)
                (util/replace-in-file! new-example-feed-path
                                       #"  <a:updated>\S+</a:updated>"
                                       "  <a:updated>2022-01-01T00:00:00Z</a:updated>"))
            new-dist-snapshot (util/create-dir-snapshot new-example-dist-path)
            dist-diff (-> (util/create-dir-diff dist-snapshot new-dist-snapshot))]
        (t/is (zero? exit))
        (t/is (every? #(-> % val empty?) dist-diff))
        (if (and (zero? exit)
                 (every? #(-> % val empty?) dist-diff))
          (fs/delete-tree new-example-path)
          (println "diff -r" example-dist-path new-example-dist-path "\n"
                   "caddy file-server --listen :3030 --root" new-example-dist-path "\n"
                   "trash" example-dist-path "; cp -R" new-example-dist-path example-dist-path))))))