aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/LaTeX.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs10
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