gistfile1.hs

-- | Creates a compiler to render a post list with a category headline
categoryPostList :: Pattern
                 -> String
                 -> Context String
                 -> ([Item String] -> Compiler [Item String])
                 -> Compiler String
categoryPostList pattern catname postCtx sortFilter = do
    let catCtx =
        constField "category" catname `mappend`
        defaultContext
    posts <- sortFilter =<< loadAll pattern
    catTpl <- loadBody "templates/post-by-category.html"
    itemTpl <- loadBody "templates/post-item.html"
    applyTemplateList itemTpl postCtx posts
        >>= applyTemplate catTpl catCtx