rename tagcloud
This commit is contained in:
parent
0c9c3b4672
commit
7d42847087
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue