diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Inlines.hs | 2 | ||||
| -rw-r--r-- | test/Tests/Readers/Org/Inline.hs | 10 |
2 files changed, 8 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Inlines.hs b/src/Text/Pandoc/Readers/Org/Inlines.hs index ea52ad6e1..cae590c5f 100644 --- a/src/Text/Pandoc/Readers/Org/Inlines.hs +++ b/src/Text/Pandoc/Readers/Org/Inlines.hs @@ -791,7 +791,7 @@ inlineLaTeX = try $ do cmd <- inlineLaTeXCommand ils <- (lift . lift) $ parseAsInlineLaTeX cmd maybe mzero returnF $ - parseAsMath cmd `mplus` parseAsMathMLSym cmd `mplus` ils + parseAsMathMLSym cmd `mplus` parseAsMath cmd `mplus` ils where parseAsMath :: String -> Maybe Inlines parseAsMath cs = B.fromList <$> texMathToPandoc cs diff --git a/test/Tests/Readers/Org/Inline.hs b/test/Tests/Readers/Org/Inline.hs index 856f01063..962e050f0 100644 --- a/test/Tests/Readers/Org/Inline.hs +++ b/test/Tests/Readers/Org/Inline.hs @@ -328,9 +328,13 @@ tests = "\\emph{Emphasis mine}" =?> para (emph "Emphasis mine") - , "Inline LaTeX math symbol" =: - "\\tau" =?> - para (emph "τ") + , "Inline math symbols" =: + "\\tau \\oplus \\alpha" =?> + para "τ ⊕ α" + + , "Inline LaTeX math command" =: + "\\crarr" =?> + para "↵" , "Unknown inline LaTeX command" =: "\\notacommand{foo}" =?> |