From ca1d4d3d4371c8175ea6addb1ca1b09c3b56a7bb Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Sat, 25 Jan 2025 14:33:21 -0600
Subject: Adding templates and cleaning up

---
 src/WWW/Templates.hs | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 src/WWW/Templates.hs

(limited to 'src/WWW/Templates.hs')

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
+    ]
-- 
cgit v1.2.3