commit - 4cb58f8ea6c77836c8befa7bdd6ebefffb6ecb34
commit + c7d750b3478eb81f8831850bcb16bba8ee00a375
blob - 5630f0bdc493c7e46e1b2839f4ef6fcb0049417b
blob + d9d798d3aebc903dbedf51fa0b7ee9b89af5b948
--- src/blog/core.clj
+++ src/blog/core.clj
(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)
: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
[]
(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"))
(do
(deploy)
(local-deploy))
+
+ (do
+ (load-posts!)
+ (load-pages!)
+ ;; (clean)
+ (build)
+ (deploy)
+ (local-deploy))
)