diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-07-22 15:06:46 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-07-22 15:06:46 -0700 |
| commit | 2253c8ef65548afceb668075c92f4b289d1e86b0 (patch) | |
| tree | 9265e974f9ab8b8ae5f4ec44007a1e0dace83754 /src/Text | |
| parent | 4c88ecaeca4098cfc5913fea060042b9fe48680e (diff) | |
| download | pandoc-2253c8ef65548afceb668075c92f4b289d1e86b0.tar.gz | |
Require texmath >= 0.3, adjusted for new elements.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/TeXMath.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |