hashing for math filenames

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Site.hs b/src/Site.hs
index 279532f..1bda7ec 100644
--- a/src/Site.hs
+++ b/src/Site.hs
@@ -17,6 +17,10 @@ import Text.Pandoc.Walk (query)
 import Text.Pandoc.Error
 import Control.Applicative (Alternative(..), Applicative(..))
 
+import qualified Crypto.Hash.SHA256 as SHA256 (hash)
+import qualified Data.ByteString.Char8 as CBS
+import Data.Hex
+
 import System.FilePath (takeBaseName, (</>), (<.>))
 
 main :: IO ()
@@ -135,7 +139,7 @@ tagTranslation = mapMaybe charTrans
       | otherwise = Nothing
 
 mathTranslation' :: String -> Identifier
-mathTranslation' = fromCapture "math/*.svg" . id -- TODO hash math
+mathTranslation' = fromCapture "math/*.svg" . CBS.unpack . hex . SHA256.hash . CBS.pack
 
 addTag :: MonadMetadata m => String -> Pattern -> Tags -> m Tags
 addTag name pattern tags = do