From 699bd0011e9771cd5c03c65aec0ec79656c475a1 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 8 Jan 2010 12:41:58 +0100 Subject: Added tagblog example (tutorial coming up). --- examples/rssblog/hakyll.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'examples/rssblog') diff --git a/examples/rssblog/hakyll.hs b/examples/rssblog/hakyll.hs index 7ed1b8e..a0984c8 100644 --- a/examples/rssblog/hakyll.hs +++ b/examples/rssblog/hakyll.hs @@ -16,6 +16,12 @@ main = hakyll $ do postPaths <- liftM (reverse . sort) $ getRecursiveContents "posts" let renderablePosts = map createPagePath postPaths + -- Render index, including recent posts. + let recentPosts = renderAndConcat "templates/postitem.html" $ take 3 renderablePosts + renderChain ["index.html", "templates/default.html"] $ + createCustomPage "index.html" ("templates/postitem.html" : take 3 postPaths) + [("title", Left "Home"), ("posts", Right recentPosts)] + -- Render all posts list. let postItems = renderAndConcat "templates/postitem.html" $ renderablePosts renderChain ["posts.html", "templates/default.html"] $ -- cgit v1.2.3