biegunka.budueba.com/site.hs at master · biegunka/biegunka.budueba.com · GitHub

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
{-# LANGUAGE OverloadedStrings #-}
module Main where

import Control.Applicative ((<$>))
import Data.Monoid (Monoid(..))
import Hakyll


main :: IO ()
main = hakyll $ do
    match "images/*" $ do
        route   idRoute
        compile copyFileCompiler

    match "css/*" $ do
        route   idRoute
        compile compressCssCompiler

    match "pages/*" $ do
        route $ setExtension "html"
        compile $ do
          nav <- templateCompiler >>= loadAndApplyTemplate "templates/navigation.html" mempty
          val <- pandocCompiler
          title <- loadAndApplyTemplate "templates/smalltitle.html" defaultContext val
          loadAndApplyTemplate "templates/default.html"
            (constField "navigation" (itemBody nav) `mappend`
             constField "title"      (itemBody title) `mappend`
             defaultContext) val
            >>= relativizeUrls

    match "pages/**/*" $ do
        route $ setExtension "html"
        compile $ do
          nav <- templateCompiler >>= loadAndApplyTemplate "templates/navigation.html" mempty
          val <- pandocCompiler
          title <- loadAndApplyTemplate "templates/bigtitle.html" defaultContext val
          loadAndApplyTemplate "templates/default.html"
            (constField "navigation" (itemBody nav) `mappend`
             constField "title"      (itemBody title) `mappend`
             defaultContext) val
            >>= relativizeUrls

    match "index.html" $ do
        route idRoute
        compile $ do
          nav <- templateCompiler >>= loadAndApplyTemplate "templates/navigation.html" mempty
          val <- getResourceBody
          title <- loadAndApplyTemplate "templates/smalltitle.html" defaultContext val
          loadAndApplyTemplate "templates/default.html"
            (constField "navigation" (itemBody nav) `mappend`
             constField "title"      (itemBody title) `mappend`
             defaultContext) val
            >>= relativizeUrls

    match "templates/*" $ compile templateCompiler