gistfile1.hs

entryListing :: Context a -> [Item a] -> Compiler String
entryListing ctx entry = do
    entryItemTpl <- loadBody "templates/entry-item.html"
    applyTemplateList entryItemTpl ctx entry


makePostList ctx = makeItem ""
                >>= loadAndApplyTemplate "templates/entries.html" ctx
                >>= loadAndApplyTemplate "templates/base.html" ctx
                >>= relativizeUrls

main :: IO ()
main = hakyll $ do
    create ["entries.html"] $ do
        route idRoute
        compile $ do
            items <- loadAll "entries/*"
            let itemsList = entryListing (entryCtx tags) $ recentFirst items
            let entriesCtx = mconcat [ constField "title" "Entries"
                                     , field "entrylist" $ \_ -> itemsList
                                     , defaultContext
                                     ]
            makePostList entriesCtx