{-# LANGUAGE TemplateHaskell #-}
module WWW.Templates
    ( defaultTemplate
    , navigationTemplate
    , mathTemplate
    , tikzTemplate
    -- * Context
    , myContext
    ) where

import Prolog

import Hakyll

import Hakyll.TeX.TikZ (tikzTemplate)
import Hakyll.Web.Template.Util (slug)


defaultTemplate :: Template
defaultTemplate = $(embedTemplate "templates/default.html")

navigationTemplate :: Template
navigationTemplate = $(embedTemplate "templates/nav.html")

mathTemplate :: Template
mathTemplate = $(embedTemplate "templates/math.html")


myContext :: Context String
myContext = fold
    [ constField "personalEmail" "chris@mathematicaster.org"
    , constField "workEmail" "cwells@haverford.edu"
    , slug
    , defaultContext
    ]