From 3107b23376bba2fdb7b08f08b3d300bee177f021 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 30 May 2016 19:52:53 +0200 Subject: [PATCH] why did I not make it like this in the first place? --- src/Main.hs | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index a430209..b765b1c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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"