Cleaned up character escaping in LaTeX writer.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@763 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 8 insertions, 15 deletions

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index f0bb92002..fed021323 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -95,21 +95,14 @@ latexHeader options (Meta title authors date) = do
 
 stringToLaTeX :: String -> String
 stringToLaTeX = escapeStringUsing latexEscapes
-  where latexEscapes = [
-          ('\\', "\\textbackslash{}"),
-          ('{', "\\{"),
-          ('}', "\\}"),
-          ('$', "\\$"),
-          ('%', "\\%"),
-          ('&', "\\&"),
-          ('~', "\\~"),
-          ('_', "\\_"),
-          ('#', "\\#"),
-          ('^', "\\^{}"),
-          ('|', "\\textbar{}"),
-          ('<', "\\textless{}"),
-          ('>', "\\textgreater{}")
-          ]
+  where latexEscapes = backslashEscapes "{}$%&_#" ++ 
+                       [ ('^', "\\^{}")
+                       , ('\\', "\\textbackslash{}")
+                       , ('~', "\\ensuremath{\\sim}")
+                       , ('|', "\\textbar{}")
+                       , ('<', "\\textless{}")
+                       , ('>', "\\textgreater{}")
+                       ]
 
 -- | Remove all code elements from list of inline elements
 -- (because it's illegal to have a \\verb inside a command argument)