rename tagcloud

This commit is contained in:
nek0 2023-04-10 22:11:21 +02:00
parent 0c9c3b4672
commit 7d42847087
1 changed files with 2 additions and 2 deletions

View File

@ -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