blob: 76e6f503ac4f9370cf30b70930b606026ac05670 (
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
|
{-# LANGUAGE OverloadedStrings #-}
import Hakyll qualified as H
pandoc :: H.Compiler (H.Item String)
pandoc =
H.pandocCompiler
>>= H.loadAndApplyTemplate "templates/default.html" H.defaultContext
>>= H.relativizeUrls
index :: H.Rules ()
index =
H.match "index.md" $ do
H.route $ H.setExtension "html"
H.compile pandoc
css :: H.Rules ()
css =
H.match "css/*" $ do
H.route H.idRoute
H.compile H.compressCssCompiler
template :: H.Rules ()
template = H.match "templates/*" $ H.compile H.templateBodyCompiler
main :: IO ()
main = H.hakyllWith H.defaultConfiguration $ index >> css >> template
|
