diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-22 05:14:43 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-22 05:14:43 +0000 |
commit | d03ec5a4a243a80856b53fa0cdf222d8dfdb1dd7 (patch) | |
tree | 6e7601bffb133fb88431274854437325ca4b7576 /src/Text/Pandoc/Readers | |
parent | a2194f23dbc3251908a5cc20198a2b3fbad7b759 (diff) | |
download | pandoc-d03ec5a4a243a80856b53fa0cdf222d8dfdb1dd7.tar.gz |
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
Diffstat (limited to 'src/Text/Pandoc/Readers')
-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 |