{-# LANGUAGE OverloadedStrings #-}

import Data.Monoid (mappend)

import Hakyll

import Text.Pandoc.Highlighting (Style, breezeDark, styleToCss)

import Text.Pandoc.Options (ReaderOptions (..), WriterOptions (..))

main :: IO ()

main = hakyll $ do

match ("images/*" .||. "favicon.ico") $ do

route idRoute

compile copyFileCompiler

match "css/*" $ do

route idRoute

compile compressCssCompiler

{- match (fromList ["about.rst", "contact.markdown"]) $ do

match "posts/*" $ do

route $ setExtension "html"

compile $ pandocCompiler

>>= loadAndApplyTemplate "templates/post.html" postCtx

>>= loadAndApplyTemplate "templates/default.html" postCtx

>>= relativizeUrls

{- create ["archive.html"] $ do

create ["css/syntax.css"] $ do

route idRoute

compile $ do

makeItem $ styleToCss breezeDark

create ["rss.xml"] $ do

route idRoute

compile $ do

let feedCtx = postCtx `mappend`

constField "description" "This is the post description"

posts <- fmap (take 10) . recentFirst =<< loadAll "posts/*"

renderRss myFeedConfiguration feedCtx posts

match "index.html" $ do

route idRoute

compile $ do

posts <- recentFirst =<< loadAll "posts/*"

let indexCtx =

listField "posts" postCtx (return posts) `mappend`

defaultContext

getResourceBody

>>= applyAsTemplate indexCtx

>>= loadAndApplyTemplate "templates/default.html" indexCtx

>>= relativizeUrls

match "templates/*" $ compile templateBodyCompiler

postCtx :: Context String

postCtx =

dateField "date" "%B %e, %Y" `mappend`

defaultContext

myFeedConfiguration :: FeedConfiguration

myFeedConfiguration = FeedConfiguration

{ feedTitle = "No Ink Involved"

, feedDescription = "Random articles written by a random person."

, feedAuthorName = "dmyx"

, feedAuthorEmail = ""

, feedRoot = "http://x17.ink"

}