diff options
| -rw-r--r-- | hakyll.cabal | 1 | ||||
| -rw-r--r-- | src/Hakyll/Configs/SmallBlog.hs | 100 |
2 files changed, 101 insertions, 0 deletions
diff --git a/hakyll.cabal b/hakyll.cabal index 47b0948..0e3a6e9 100644 --- a/hakyll.cabal +++ b/hakyll.cabal @@ -105,6 +105,7 @@ Library Hakyll.Core.Writable Hakyll.Core.Writable.CopyFile Hakyll.Core.Writable.WritableTuple + Hakyll.Configs.SmallBlog Hakyll.Main Hakyll.Web.Blaze Hakyll.Web.CompressCss diff --git a/src/Hakyll/Configs/SmallBlog.hs b/src/Hakyll/Configs/SmallBlog.hs new file mode 100644 index 0000000..fd24982 --- /dev/null +++ b/src/Hakyll/Configs/SmallBlog.hs @@ -0,0 +1,100 @@ +-- | This module provides a simple default configuration which behaves similar +-- to the Jekyll static site generator. +-- +-- <http://jekyllrb.com/> +-- +-- The idea is that you don't have to write your configuration yourself: you +-- just follow some conventions, and Hakyll does the rest. +-- +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -fno-warn-unused-do-bind #-} +module Hakyll.Configs.SmallBlog + ( SmallBlogConfiguration + , defaultSmallBlogConfiguration + , smallBlog + , smallBlogWith + ) where + +import Control.Arrow ((>>>)) + +import Hakyll + +-- | Configuration datatype for the 'smallBlog' ruleset +-- +data SmallBlogConfiguration = SmallBlogConfiguration + { -- | Number of recent posts that are available + numberOfRecentPosts :: Int + } deriving (Show) + +-- | Defaults for 'SmallBlogConfiguration' +-- +defaultSmallBlogConfiguration :: SmallBlogConfiguration +defaultSmallBlogConfiguration = SmallBlogConfiguration + { numberOfRecentPosts = 3 + } + +-- | A default configuration for a small blog +-- +smallBlog :: Rules +smallBlog = smallBlogWith defaultSmallBlogConfiguration + +-- | Version of 'smallBlog' which allows setting a config +-- +smallBlogWith :: SmallBlogConfiguration -> Rules +smallBlogWith conf = do + -- Images and static files + ["favicon.ico"] --> copy + ["img/**", "images/**"] --> copy + ["static/**", "files/**"] --> copy + + -- CSS files + ["css/*.css", "style/*.css", "stylesheets/*.css"] --> css + + -- All templates + ["templates/*"] --> template + + -- "Dynamic" content + ["posts/*"] --> post + + -- Top-level pages + ["*.markdown", "*.html", "*.rst", "*.lhs"] --> topLevel + where + -- Useful combinator here + xs --> f = mapM_ (\p -> match p $ f) xs + + -- Completely static + copy = route idRoute >> compile copyFileCompiler + + -- CSS directories + css = route (setExtension "css") >> compile compressCssCompiler + + -- Templates + template = compile templateCompiler + + -- Posts + post = do + route $ setExtension "html" + compile $ pageCompiler + >>> applyTemplateCompiler "templates/post.html" + >>> applyTemplateCompiler "templates/default.html" + >>> relativizeUrlsCompiler + + -- Top-level pages + topLevel = do + route $ setExtension "html" + compile $ pageCompilerWithFields defaultHakyllParserState + defaultHakyllWriterOptions id topLevelFields + >>> applyTemplateCompiler "templates/default.html" + >>> relativizeUrlsCompiler + + -- Add the fields we need to top-level pages + topLevelFields = setFieldPostList recentFirst "allPosts" + >>> setFieldPostList (take nRecent . recentFirst) "recentPosts" + >>> setFieldPostList chronological "chronologicalPosts" + + -- Create a post list based on ordering/selection + setFieldPostList f k = setFieldPageList f + "templates/post-item.html" k "posts/*" + + -- Number of most recent posts to show + nRecent = numberOfRecentPosts conf |