Started work on math compilation

1 files changed, 7 insertions, 2 deletions

diff --git a/src/Site.hs b/src/Site.hs
index 1bda7ec..e821322 100644
--- a/src/Site.hs
+++ b/src/Site.hs
@@ -20,9 +20,12 @@ import Control.Applicative (Alternative(..), Applicative(..))
 import qualified Crypto.Hash.SHA256 as SHA256 (hash)
 import qualified Data.ByteString.Char8 as CBS
 import Data.Hex
+import Data.Char (toLower)
 
 import System.FilePath (takeBaseName, (</>), (<.>))
 
+import Math (compileMath)
+
 main :: IO ()
 main = hakyllWith config $ do
   match "templates/*" $ compile templateCompiler
@@ -45,7 +48,9 @@ main = hakyllWith config $ do
     create [mathTranslation' mathStr] $ do
       route idRoute
       compile $ do
-        makeItem $ mathStr
+        makeItem mathStr
+          >>= loadAndApplyTemplate "templates/math.tex" defaultContext
+          >>= withItemBody (unsafeCompiler . compileMath)
 
   tags <- buildTags "posts/*" tagTranslation' >>= addTag "All Posts" "posts/*"
 
@@ -139,7 +144,7 @@ tagTranslation = mapMaybe charTrans
       | otherwise = Nothing
 
 mathTranslation' :: String -> Identifier
-mathTranslation' = fromCapture "math/*.svg" . CBS.unpack . hex . SHA256.hash . CBS.pack
+mathTranslation' = fromCapture "math/*.svg" . map toLower . CBS.unpack . hex . SHA256.hash . CBS.pack
 
 addTag :: MonadMetadata m => String -> Pattern -> Tags -> m Tags
 addTag name pattern tags = do