From f0e10a9ea21f351f2617b23f2e615f8d82f089bd Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Fri, 6 Nov 2015 02:12:44 +0000
Subject: hashing for math filenames

---
 src/Site.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

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