Adding templates and cleaning up

1 files changed, 33 insertions, 0 deletions

diff --git a/src/WWW/Templates.hs b/src/WWW/Templates.hs
new file mode 100644
index 0000000..0068a07
--- /dev/null
+++ b/src/WWW/Templates.hs
@@ -0,0 +1,33 @@
+{-# LANGUAGE TemplateHaskell #-}
+module WWW.Templates
+    ( defaultTemplate
+    , navigationTemplate
+    , mathTemplate
+    , tikzTemplate
+    -- * Context
+    , myContext
+    ) where
+
+import Prolog
+
+import Hakyll
+
+import Hakyll.TeX.TikZ (tikzTemplate)
+
+
+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" "coc0014@auburn.edu"
+    , defaultContext
+    ]