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

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