From 2253c8ef65548afceb668075c92f4b289d1e86b0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 22 Jul 2010 15:06:46 -0700
Subject: [PATCH] Require texmath >= 0.3, adjusted for new elements.
---
pandoc.cabal | 2 +-
src/Text/Pandoc/Readers/TeXMath.hs | 3 +++
2 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/pandoc.cabal b/pandoc.cabal
index f6ebdde3c..9fd7bf916 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -154,7 +154,7 @@ Library
process >= 1, directory >= 1,
bytestring >= 0.9, zip-archive >= 0.1.1.4,
utf8-string >= 0.3, old-time >= 1,
- HTTP >= 4000.0.5, texmath, xml >= 1.3.5 && < 1.4,
+ HTTP >= 4000.0.5, texmath >= 0.3, xml >= 1.3.5 && < 1.4,
random, extensible-exceptions
if impl(ghc >= 6.10)
Build-depends: base >= 4 && < 5, syb
diff --git a/src/Text/Pandoc/Readers/TeXMath.hs b/src/Text/Pandoc/Readers/TeXMath.hs
index 40cf39987..b0c6e86d4 100644
--- a/src/Text/Pandoc/Readers/TeXMath.hs
+++ b/src/Text/Pandoc/Readers/TeXMath.hs
@@ -86,6 +86,9 @@ expToInlines (ESubsup x y z) = do
y' <- expToInlines y
z' <- expToInlines z
return $ x' ++ [Subscript y'] ++ [Superscript z']
+expToInlines (EDown x y) = expToInlines (ESub x y)
+expToInlines (EUp x y) = expToInlines (ESuper x y)
+expToInlines (EDownup x y z) = expToInlines (ESubsup x y z)
expToInlines (EText _ x) = Just [Emph [Str x]]
expToInlines _ = Nothing