"Mob Session DONE [ci-skip]"

src/cryogen_core/classpath_able_io.clj

@@ -39,52 +39,23 @@
       from-fs
       (file-from-cp resource-path))))
 
-; TODO: fix recursion as we put function calls on callstack here
-(defn copy-dir-2
-  [source-dir target-dir ignore-patterns]
-  (loop [source-list (.list source-dir)]
-    (when (not (nil? (first source-list)))
-      (let [f (first source-list)
-            target-file (io/file target-dir f)
-            source-file (io/file source-dir f)]
-        (println (str "frsit f: " f))
-        (if (.isFile source-file)
-          (do
-            (println (str "source file:    " source-file))
-            (io/make-parents target-file)
-            (io/copy f target-file)
-            (recur (drop 1 source-list)))
-          (do 
-            (println source-file)
-            (recur (concat (drop 1 source-list) (.list source-file)))))
-        ))))
-
-(defn copy-dir-3
-  [source-dir target-dir ignore-patterns]
-    (loop [source-list (.list source-dir)
-           f (first source-list)
-           source-file (io/file source-dir f)
-           target-file (io/file target-dir f)]
-        (if (.isFile source-file)
-          (do
-            (println source-file)
-            (io/make-parents target-file)
-            (io/copy f target-file)
-            (recur (drop 1 source-list) (second source-list) (io/file source-dir f)))
-          (copy-dir source-file target-file ignore-patterns))))
-
 (defn copy-dir
   [source-dir target-dir ignore-patterns]
-  (let [source-list (.list source-dir)]
+  (loop [l-source-list (.list source-dir)
-    (doseq [f source-list]
+         l-source-dir  source-dir
-      (let [target-file (io/file target-dir f)
+         l-target-dir  target-dir]
+    (let [f           (first l-source-list)
+          target-file (io/file target-dir f)
           source-file (io/file source-dir f)]
       (if (.isFile source-file)
         (do
           (println source-file)
           (io/make-parents target-file)
-            (io/copy f target-file))
+          (io/copy f target-file)
-          (copy-dir source-file target-file ignore-patterns))))))
+          ;; continue copying files
+          (recur (drop 1 source-list) source-dir target-dir))
+        ;; recur down to contained directory
+        (recur (drop 1 source-list) source-file target-file)))))
 
 (defn copy-resources
   [fs-prefix source-path target-path ignore-patterns]
@@ -103,6 +74,8 @@
 
 (defn copy-resources-from-theme
   [fs-prefix theme target-path]
-  (let [source-path (str "templates/themes/" theme "/js")]
+  (let [theme-path (str "templates/themes/" theme)]
-    (copy-resources fs-prefix source-path target-path "")))
+    (copy-resources fs-prefix (str theme-path "/css") target-path "")
+    (copy-resources fs-prefix (str theme-path "/js") target-path "")
+    (copy-resources fs-prefix (str theme-path "/html/404.html") target-path "")))
 

test/cryogen_core/classpath_able_io_test.clj

@@ -51,4 +51,8 @@
                (str target "/templates/themes/bootstrap4-test/js/subdir"))
               (verify-file-exists
                (str target "/templates/themes/bootstrap4-test/js/subdir/subdummy.js"))
+              (verify-file-exists
+               (str target "/templates/themes/bootstrap4-test/css/dummy.css"))
+              (verify-file-exists
+               (str target "/templates/themes/bootstrap4-test/html/404.html"))
               ))))