why did I not make it like this in the first place?

This commit is contained in:
nek0 2016-05-30 19:52:53 +02:00
parent 9fc9832618
commit 3107b23376
1 changed files with 3 additions and 9 deletions

View File

@ -70,7 +70,9 @@ main = do
let url = toFilePath ident
compiled <- getResourceBody >>= renderPandoc
let pageCtx = paginateContext pages num
let ctx = (postCtx tags) <> pageCtx <> flattrCtx (urlEncode title) (urlEncode $ "https://nek0.eu/" ++ url)
let flattrCtx = constField "enctitle" (urlEncode title) <>
constField "encurl" (urlEncode $ "https://nek0.eu/" ++ url)
let ctx = (postCtx tags) <> pageCtx <> flattrCtx
full <- loadAndApplyTemplate "templates/post.html" ctx compiled
_ <- saveSnapshot "content" compiled
loadAndApplyTemplate "templates/default.html" baseCtx full
@ -142,14 +144,6 @@ feedCtx = mconcat
--------------------------------------------------------------------------------
flattrCtx :: String -> String -> Context String
flattrCtx tit url = mconcat
[ constField "enctitle" tit
, constField "encurl" url
]
--------------------------------------------------------------------------------
feedConf :: FeedConfiguration
feedConf = FeedConfiguration
{ feedTitle = "nek0's blog"