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")
|
tags <- buildTags "site/posts/*.md" (fromCapture "tags/*.html")
|
||||||
|
|
||||||
--build tagcloud
|
--build tagcloud
|
||||||
let baseCtx = tagCloudField "tags" 100 100 tags <>
|
let baseCtx = tagCloudField "tagCloud" 100 100 tags <>
|
||||||
defaultContext
|
defaultContext
|
||||||
|
|
||||||
match "site/index.md" $ do
|
match "site/index.md" $ do
|
||||||
|
@ -88,7 +88,7 @@ main =
|
||||||
let pageCtx = paginateContext pages num
|
let pageCtx = paginateContext pages num
|
||||||
let flattrCtx = constField "enctitle" (urlEncode title) <>
|
let flattrCtx = constField "enctitle" (urlEncode title) <>
|
||||||
constField "encurl" (urlEncode $ "https://nek0.eu/" ++ url)
|
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
|
full <- loadAndApplyTemplate "templates/post.html" ctx compiled
|
||||||
_ <- saveSnapshot "content" compiled
|
_ <- saveSnapshot "content" compiled
|
||||||
loadAndApplyTemplate "templates/default.html" (baseCtx <> ctx) full
|
loadAndApplyTemplate "templates/default.html" (baseCtx <> ctx) full
|
||||||
|
|
Loading…
Reference in a new issue