diff options
Diffstat (limited to 'examples/rssblog/hakyll.hs')
| -rw-r--r-- | examples/rssblog/hakyll.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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"] $ |