site/site.hs at master · mtikekar/site · 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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
--------------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
import           Data.Monoid (mappend)
import           Hakyll
import           Hakyll.Core.Compiler
import           Text.Pandoc
import           Control.Applicative ((<$>))

--------------------------------------------------------------------------------
pandocCompilerWithUnsafeTransform :: ReaderOptions -> WriterOptions -> (Pandoc -> IO Pandoc) -> Compiler (Item String)
pandocCompilerWithUnsafeTransform ropt wopt f = cached cacheName $
        readPandocWith ropt <$> getResourceBody
    >>= withItemBody (unsafeCompiler . f)
    >>= return . (writePandocWith wopt)
  where
    cacheName = "Hakyll.Web.Page.pageCompilerWithPandoc"

myPandocCompiler = pandocCompilerWithUnsafeTransform def def {writerHTMLMathMethod=MathJax "", writerHighlight=True} (doInclude "posts/")
{- need to add mathjax.js link to template -}

doInclude :: FilePath -> Pandoc -> IO Pandoc
doInclude incPath = bottomUpM doInc where
    doInc :: Block -> IO Block
    doInc cb@(CodeBlock (id, classes, namevals) contents) =
      case lookup "include" namevals of
           Just f     -> do
                          src <- readFile (incPath ++ f)
                          let vals = filter ((/= "include") . fst) namevals
                          return $ CodeBlock (id, classes, vals) (contents ++ src)
           Nothing    -> return cb
    doInc x = return x

main :: IO ()
main = hakyll $ do
    create [".nojekyll"] $ do
        route idRoute
        compile (makeItem ("No jekyll\n"::String))

    create ["README.md"] $ do
        route idRoute
        compile (makeItem ("mehultikekar.github.io\n======================\n\nPersonal website\n"::String))

    match ("images/*.jpg" .||. "images/*.png") $ do
        route   idRoute
        compile copyFileCompiler

    match ("posts/src/*") $ do
        route idRoute
        compile copyFileCompiler

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

    match "posts/*.markdown" $ do
        route $ setExtension "html"
        compile $ myPandocCompiler
            >>= loadAndApplyTemplate "templates/post.html"    postCtx
            >>= loadAndApplyTemplate "templates/default.html" (mappend postCtx $ constField "syntax" "1")
            >>= relativizeUrls

    create ["blog.html"] $ do
        route idRoute
        compile $ do
            posts <- recentFirst =<< loadAll "posts/*"
            let archiveCtx =
                    listField "posts" postCtx (return posts) `mappend`
                    constField "title" "Blog"                `mappend`
                    defaultContext

            makeItem ""
                >>= loadAndApplyTemplate "templates/archive.html" archiveCtx
                >>= loadAndApplyTemplate "templates/default.html" archiveCtx
                >>= relativizeUrls

    match "contact.html" $ do
        route idRoute
        compile $ getResourceBody
            >>= loadAndApplyTemplate "templates/default.html" defaultContext
            >>= relativizeUrls

    match "research.markdown" $ do
        route   $ setExtension "html"
        compile $ pandocCompiler
            >>= loadAndApplyTemplate "templates/default.html" defaultContext
            >>= relativizeUrls

    match "index.html" $ do
        route idRoute
        compile $ do
            posts <- recentFirst =<< loadAll "posts/*"
            let indexCtx =
                    listField "posts" postCtx (return posts) `mappend`
                    constField "title" "Home"                `mappend`
                    defaultContext

            getResourceBody
                >>= applyAsTemplate indexCtx
                >>= loadAndApplyTemplate "templates/default.html" indexCtx
                >>= relativizeUrls

    match "templates/*" $ compile templateCompiler


--------------------------------------------------------------------------------
postCtx :: Context String
postCtx =
    dateField "date" "%B %e, %Y" `mappend`
    defaultContext