summaryrefslogtreecommitdiff
path: root/examples/rssblog/hakyll.hs
blob: a0984c8e1d39d558f18959f7edb6ab416e3e0e65 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
module Main where

import Text.Hakyll (hakyll)
import Text.Hakyll.Render (renderAndConcat, renderChain, css)
import Text.Hakyll.File (getRecursiveContents, directory)
import Text.Hakyll.Renderables (createPagePath, createCustomPage)
import Data.List (sort)
import Control.Monad (mapM_, liftM)
import Data.Either (Either(..))

main = hakyll $ do
    -- Static directory.
    directory css "css"

    -- Find all post paths.
    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"] $
        createCustomPage "posts.html" ("templates/postitem.html" : postPaths)
        [("title", Left "All posts"), ("posts", Right postItems)]

    -- Render all posts.
    putStrLn "Generating posts..."
    mapM_ (renderChain ["templates/post.html", "templates/default.html"]) renderablePosts

    -- Render rss feed
    let recentRSSItems = renderAndConcat "templates/rssitem.xml" $ take 3 renderablePosts
    let rssPage = createCustomPage "rss.xml"
                        ("templates/postitem.html" : take 3 postPaths)
                        [("items", Right recentRSSItems)]
    renderChain ["templates/rss.xml"] rssPage