site.hs

--------------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
import           Data.Monoid (mappend)
import           Hakyll
import Debug.Trace

--------------------------------------------------------------------------------
main :: IO ()
main =
  hakyll $ do
    match "images/*" $ do
      route idRoute
      compile copyFileCompiler
    match "css/*" $ do
      route idRoute
      compile compressCssCompiler
    match "blocks/sites/*.md" $ do
      route $
        composeRoutes
          (gsubRoute "blocks/sites/" (const ""))
          (setExtension "html")
      compile $
        pandocCompiler >>=
        loadAndApplyTemplate "templates/default.html" defaultContext >>=
        relativizeUrls
    match "posts/*" $ do
      route $ setExtension "html"
      compile $
        pandocCompiler >>= loadAndApplyTemplate "templates/post.html" postCtx >>=
        loadAndApplyTemplate "templates/default.html" postCtx >>=
        relativizeUrls
    match "blocks/**.md" $ compile pandocCompiler

    create ["about.html"] $ do
      route idRoute
      compile $ do
        about <- thesesCompiler "blocks/about/*.md"
        let aboutCtx =
              constField "title" "Über uns" `mappend` constField "about" about `mappend`
              defaultContext
        makeItem "" >>= loadAndApplyTemplate "templates/about.html" aboutCtx >>=
          loadAndApplyTemplate "templates/default.html" aboutCtx >>=
          relativizeUrls
    create ["mitmachen.html"] $ do
      route idRoute
      compile $ do
        articles <- thesesCompiler "blocks/mitmachen/*.md"
        let ctx =
              constField "title" "Mitmachen" `mappend` constField "articles" articles `mappend`
              defaultContext
        makeItem "" >>= loadAndApplyTemplate "templates/mitmachen.html" ctx >>=
          loadAndApplyTemplate "templates/default.html" ctx >>=
          relativizeUrls
    create ["wahlprogramm.html"] $ do
      route idRoute
      compile $ do
        wahlprogramm <- thesesCompiler "blocks/wahlprogramm/*.md"
        let wahlprogrammCtx =
              constField "title" "Wahlprogramm" `mappend` constField "wahlprogramm" wahlprogramm `mappend`
              defaultContext
        makeItem "" >>= loadAndApplyTemplate "templates/wahlprogramm.html" wahlprogrammCtx >>=
          loadAndApplyTemplate "templates/default.html" wahlprogrammCtx >>=
          relativizeUrls
    create ["datenschutz.html"] $ do
      route idRoute
      compile $ do
        datenschutz <- thesesCompiler "blocks/datenschutz/*.md"
        let datenschutzCtx =
              constField "title" "Datenschutz" `mappend` constField "datenschutz" datenschutz `mappend`
              defaultContext
        makeItem "" >>= loadAndApplyTemplate "templates/datenschutz.html" datenschutzCtx >>=
          loadAndApplyTemplate "templates/default.html" datenschutzCtx >>=
          relativizeUrls
    create ["impressum.html"] $ do
      route idRoute
      compile $ do
        impressum <- thesesCompiler "blocks/impressum/*.md"
        let impressumCtx =
              constField "title" "Impressum" `mappend` constField "impressum" impressum `mappend`
              defaultContext
        makeItem "" >>= loadAndApplyTemplate "templates/impressum.html" impressumCtx >>=
          loadAndApplyTemplate "templates/default.html" impressumCtx >>=
          relativizeUrls

    create ["index.html"] $ do
      route idRoute
      compile $ do
        theses <- thesesCompiler "blocks/theses/*.md"
        let indexCtx =
              constField "title" "Home" `mappend` constField "theses" theses `mappend`
              defaultContext
        makeItem "" >>= loadAndApplyTemplate "templates/index.html" indexCtx >>=
          loadAndApplyTemplate "templates/default.html" indexCtx >>=
          relativizeUrls
    match "templates/*" $ compile templateBodyCompiler

--------------------------------------------------------------------------------
thesesCompiler :: Pattern -> Compiler String
thesesCompiler p = do
  theses <- loadAll p
  thesisTemplate <- loadBody "templates/thesis.html"
  applyTemplateList thesisTemplate defaultContext theses

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