From 7d42847087a0eda0fa23b9bb897e51ceb1cb285e Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 10 Apr 2023 22:11:21 +0200 Subject: [PATCH] rename tagcloud --- src/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 61a4b41..2c87983 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -40,7 +40,7 @@ main = tags <- buildTags "site/posts/*.md" (fromCapture "tags/*.html") --build tagcloud - let baseCtx = tagCloudField "tags" 100 100 tags <> + let baseCtx = tagCloudField "tagCloud" 100 100 tags <> defaultContext match "site/index.md" $ do @@ -88,7 +88,7 @@ main = let pageCtx = paginateContext pages num let flattrCtx = constField "enctitle" (urlEncode title) <> constField "encurl" (urlEncode $ "https://nek0.eu/" ++ url) - let ctx = (postCtx tags) <> pageCtx <> flattrCtx + let ctx = (postCtx tags) <> pageCtx <> flattrCtx <> baseCtx full <- loadAndApplyTemplate "templates/post.html" ctx compiled _ <- saveSnapshot "content" compiled loadAndApplyTemplate "templates/default.html" (baseCtx <> ctx) full