@@ -1,35 +1,59 @@
1+{-# LANGUAGE OverloadedStrings #-}
1module Main where
2module Main where
3−import Text.Hakyll (hakyll)
4+import Prelude hiding (id)
4−import Text.Hakyll.Render
5+import Control.Category (id)
5−import Text.Hakyll.Context
6+import Control.Arrow ((>>>), (***), arr)
6−import Text.Hakyll.File (getRecursiveContents, directory)
7−import Text.Hakyll.CreateContext (createPage, createCustomPage, createListing)
8−import Data.List (sort)
7+import Data.Monoid (mempty, mconcat)
9−import Control.Monad (forM_, liftM)
8+
10−import Control.Monad.Reader (liftIO)
9+import Hakyll
11−import Data.Either (Either(..))
10+
13−main = hakyll "http://example.com" $ do
12+main = hakyll $ do
14− -- Static directory.
13+ -- Compress CSS
15− directory css "css"
14+ route "css/*" idRoute
16−
15+ compile "css/*" compressCssCompiler
17− -- Find all post paths.
16+
18− postPaths <- liftM (reverse . sort) $ getRecursiveContents "posts"
17+ -- Render posts
19− let postPages = map createPage postPaths
18+ route "posts/*" $ setExtension ".html"
20−
19+ compile "posts/*" $
21− -- Render index, including recent posts.
20+ pageCompiler
22− let index = createListing "index.html" ["templates/postitem.html"]
21+ >>> applyTemplateCompiler "templates/post.html"
23− (take 3 postPages) [("title", Left "Home")]
22+ >>> applyTemplateCompiler "templates/default.html"
23+ >>> relativizeUrlsCompiler
26+ route "posts.html" $ idRoute
27+ create "posts.html" $
29+ >>> arr (setField "title" "All posts")
30+ >>> requireAllA "posts/*" addPostList
31+ >>> applyTemplateCompiler "templates/posts.html"
32+ >>> applyTemplateCompiler "templates/default.html"
33+ >>> relativizeUrlsCompiler
36+ route "index.html" idRoute
37+ create "index.html" $
39+ >>> arr (setField "title" "Home")
40+ >>> requireAllA "posts/*" (id *** arr (take 3 . reverse . sortByBaseName) >>> addPostList)
41+ >>> applyTemplateCompiler "templates/index.html"
24− renderChain ["index.html", "templates/default.html"] index
42+ >>> applyTemplateCompiler "templates/default.html"
25−
43+ >>> relativizeUrlsCompiler
26− -- Render all posts list.
44+
27− let posts = createListing "posts.html" ["templates/postitem.html"]
45+ -- Read templates
28− postPages [("title", Left "All posts")]
46+ compile "templates/*" templateCompiler
29− renderChain ["posts.html", "templates/default.html"] posts
47+
31− -- Render all posts.
49+ return ()
32− liftIO $ putStrLn "Generating posts..."
50+
33− forM_ postPages $ renderChain [ "templates/post.html"
51+-- | Auxiliary compiler: generate a post list from a list of given posts, and
34− , "templates/default.html"
52+-- add it to the current page under @$posts@
54+addPostList :: Compiler (Page String, [Page String]) (Page String)
55+addPostList = setFieldA "posts" $
56+ arr (reverse . sortByBaseName)
57+ >>> require "templates/postitem.html" (\p t -> map (applyTemplate t) p)