diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2019-05-05 14:48:37 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2019-05-05 14:48:37 +0200 |
| commit | 33e2d46dbea6ca216b44d2f5d6cf3b74899caef6 (patch) | |
| tree | 4e70707fb5ce33160b1707f9ffe4e1d64c2041c2 | |
| parent | 7e7bc3493ef7ca17fbd8746bae8731dfecef60dd (diff) | |
| download | pandoc-33e2d46dbea6ca216b44d2f5d6cf3b74899caef6.tar.gz | |
Org reader: prefer plain symbols over math symbols
Symbols like `\alpha` are output plain and unemphasized, not as math.
Fixes: #5483
| -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}" =?> |