From d03ec5a4a243a80856b53fa0cdf222d8dfdb1dd7 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 22 Jul 2007 05:14:43 +0000 Subject: Added support for strikeout (\sout) to latex reader. (Thanks to Bradley Sif for the patch.) git-svn-id: https://pandoc.googlecode.com/svn/trunk@754 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Readers/LaTeX.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'src/Text') 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 -- cgit v1.2.3