summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2016-02-04 14:27:03 +0100
committerGregor Kleen <gkleen@yggdrasil.li>2016-02-04 14:27:03 +0100
commitc995e84d71d02ce705412b2e82f336079acbf605 (patch)
tree1e569c59f2910bdcf7f816beec8a96980ed05424
parent05ae66bbb842c180cc39f22b2bdf7667f51138eb (diff)
downloaddirty-haskell.org-c995e84d71d02ce705412b2e82f336079acbf605.tar
dirty-haskell.org-c995e84d71d02ce705412b2e82f336079acbf605.tar.gz
dirty-haskell.org-c995e84d71d02ce705412b2e82f336079acbf605.tar.bz2
dirty-haskell.org-c995e84d71d02ce705412b2e82f336079acbf605.tar.xz
dirty-haskell.org-c995e84d71d02ce705412b2e82f336079acbf605.zip
better alt text for math
-rw-r--r--src/Site.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Site.hs b/src/Site.hs
index 03b6e16..bf501d8 100644
--- a/src/Site.hs
+++ b/src/Site.hs
@@ -214,16 +214,16 @@ texTransform :: Pandoc -> Compiler Pandoc
214texTransform = walkM texTransformInline <=< walkM texTransformBlock 214texTransform = walkM texTransformInline <=< walkM texTransformBlock
215 where 215 where
216 texTransformInline :: Inline -> Compiler Inline 216 texTransformInline :: Inline -> Compiler Inline
217 texTransformInline (Math mathType tex) = (\html -> Span ("", [classOf mathType], []) [RawInline "html" html]) <$> texTransform' (wrapMath tex) 217 texTransformInline (Math mathType tex) = (\html -> Span ("", [classOf mathType], []) [RawInline "html" html]) <$> texTransform' wrapMath tex
218 texTransformInline (RawInline "latex" tex) = (\html -> Span ("", [], []) [RawInline "html" html]) <$> texTransform' tex 218 texTransformInline (RawInline "latex" tex) = (\html -> Span ("", [], []) [RawInline "html" html]) <$> texTransform' id tex
219 texTransformInline x = return x 219 texTransformInline x = return x
220 texTransformBlock :: Block -> Compiler Block 220 texTransformBlock :: Block -> Compiler Block
221 texTransformBlock (RawBlock "latex" tex) = (\html -> Div ("", [], []) [RawBlock "html" html]) <$> texTransform' tex 221 texTransformBlock (RawBlock "latex" tex) = (\html -> Div ("", [], []) [RawBlock "html" html]) <$> texTransform' id tex
222 texTransformBlock x = return x 222 texTransformBlock x = return x
223 texTransform' :: String -> Compiler String 223 texTransform' :: (String -> String) -> String -> Compiler String
224 texTransform' tex = do 224 texTransform' texT tex = do
225 let 225 let
226 texId = texTranslation' tex 226 texId = texTranslation' $ texT tex
227 alignment <- loadSnapshotBody texId "alignment" 227 alignment <- loadSnapshotBody texId "alignment"
228 return $ printf "<object data=\"/%s\" type=\"image/svg+xml\" style=\"vertical-align:-%s\">%s</object>" 228 return $ printf "<object data=\"/%s\" type=\"image/svg+xml\" style=\"vertical-align:-%s\">%s</object>"
229 (toFilePath texId) (alignment :: String) tex 229 (toFilePath texId) (alignment :: String) tex