commit c7d750b3478eb81f8831850bcb16bba8ee00a375
from: Omar Polo <op@omarpolo.com>
date: Tue Aug 03 11:30:48 2021 UTC

ignore drafts; dots stuff & useful comments

commit - 4cb58f8ea6c77836c8befa7bdd6ebefffb6ecb34
commit + c7d750b3478eb81f8831850bcb16bba8ee00a375
blob - 5630f0bdc493c7e46e1b2839f4ef6fcb0049417b
blob + d9d798d3aebc903dbedf51fa0b7ee9b89af5b948
--- src/blog/core.clj
+++ src/blog/core.clj
@@ -82,7 +82,9 @@
 (defn post-pages [{:keys [proto]}]
   (let [tags (keys @per-tag)
         ext  (if (= proto :gemini) ".gmi" ".html")
-        ffn  (if (= proto :gemini) gemini-post identity)]
+        ffn  (if (= proto :gemini) gemini-post identity)
+        ffn' #(when (ffn %)
+                (not (:draft? %)))]
     (map-indexed (fn [i posts]
                    {:filename (if (= i 0)
                                 (str "index" ext)
@@ -92,7 +94,7 @@
                     :posts posts
                     :has-next true
                     :has-prev true})
-                 (partition-all 6 (filter ffn @posts)))))
+                 (partition-all 6 (filter ffn' @posts)))))
 
 (defn fix-next-last
   "Fix the :has-prev/:has-next for the post pages.  This assumes
@@ -171,6 +173,8 @@ Disallow: /cgi/man/
   []
   (copy-dir "img" "http")
   (copy-dir "img" "gemini")
+  (copy-dir "dots" "http")
+  (copy-dir "dots" "gemini")
   (copy-file "resources/favicon.ico" "resources/out/http/favicon.ico")
   (copy-file "resources/css/style.css" "resources/out/http/css/style.css"))
 
@@ -263,4 +267,12 @@ Disallow: /cgi/man/
   (do
     (deploy)
     (local-deploy))
+
+  (do
+    (load-posts!)
+    (load-pages!)
+    ;; (clean)
+    (build)
+    (deploy)
+    (local-deploy))
 )