diff options
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 610b28167..9e03ebc85 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -378,9 +378,8 @@ comment = try (do -- inline -- -inline = choice [ strong, emph, ref, lab, code, linebreak, spacer, - math, ellipses, - emDash, enDash, hyphen, quoted, apostrophe, +inline = choice [ strong, emph, strikeout, ref, lab, code, linebreak, spacer, + math, ellipses, emDash, enDash, hyphen, quoted, apostrophe, accentedChar, specialChar, specialInline, escapedChar, unescapedChar, str, endline, whitespace ] <?> "inline" @@ -510,6 +509,11 @@ emph = try (do result <- manyTill inline (char '}') return (Emph result)) +strikeout = try $ do + string "\\sout{" + result <- manyTill inline (char '}') + return (Strikeout result) + apostrophe = do char '\'' return Apostrophe |