commit - c3fdde36cb57f4301e05c13026cf11834e6d0bb8
commit + 9a594f34e404808b18d04a4ad36f77f36b6da245
blob - 41562124cbce4ce6e295b245ae5b41ed6e3c7f2f
blob + 16d2d1780f77335504d7ecc7d8564536216c316d
--- src/blog/core.clj
+++ src/blog/core.clj
@@ -60,6 +60,7 @@
              "resources/out/gemini/pages"
              "resources/out/gemini/post"
              "resources/out/gemini/tag"
+             "resources/out/gemini/img"
              "resources/out/http"
              "resources/out/http/css"
              "resources/out/http/pages"
@@ -126,24 +127,19 @@
         (rss/feed @posts)))
 
 (defn copy-dir
-  "Copy the content of resources/`dir` to resources/out/`dir`, assuming
+  "Copy the content of resources/`dir` to resources/out/`proto`/`dir`, assuming
   these two directories exists.  It does not copy recursively."
-  [dir]
+  [dir proto]
   (let [in (io/file (str "resources/" dir "/"))
-        out         (str "resources/out/http/" dir "/")]
+        out         (str "resources/out/" proto "/" dir "/")]
     (doseq [f (->> in file-seq (filter #(.isFile %)))]
       (io/copy f (io/file (str out (.getName f)))))))
 
-(comment
-  (copy-dir "img")
-  (io/copy (io/file "resources/img/unbound-dashboard.png")
-           (io/file "resources/out/http/img/unbound-dashboard.png"))
-)
-
 (defn copy-assets
   "Copy css and images to their places"
   []
-  (copy-dir "img")
+  (copy-dir "img" "http")
+  (copy-dir "img" "gemini")
   (copy-file "resources/favicon.ico" "resources/out/http/favicon.ico")
   (copy-file "resources/css/style.css" "resources/out/http/css/style.css"))