From 79a4ea03e2d0a252fd24af3444cf5b64ee724100 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Wed, 26 Jun 2013 20:54:31 -0700
Subject: Stop escaping `|` in LaTeX math.

This caused problems with array environments.  Closes #891.
---
 src/Text/Pandoc/Writers/LaTeX.hs | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 89cf9812a..a99c8968c 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -212,13 +212,6 @@ stringToLaTeX  isUrl (x:xs) = do
        '\x2013' | ligatures -> "--" ++ rest
        _        -> x : rest
 
--- This is needed because | in math mode interacts badly with
--- highlighting-kate, which redefines | as a short verb command.
-escapeMath :: String -> String
-escapeMath ('|':xs) = "\\vert " ++ escapeMath xs
-escapeMath (x:xs)   = x : escapeMath xs
-escapeMath []       = ""
-
 -- | Puts contents into LaTeX command.
 inCmd :: String -> Doc -> Doc
 inCmd cmd contents = char '\\' <> text cmd <> braces contents
@@ -622,9 +615,9 @@ inlineToLaTeX (Quoted qt lst) = do
                       else char '\x2018' <> inner <> char '\x2019'
 inlineToLaTeX (Str str) = liftM text $ stringToLaTeX False str
 inlineToLaTeX (Math InlineMath str) =
-  return $ char '$' <> text (escapeMath str) <> char '$'
+  return $ char '$' <> text str <> char '$'
 inlineToLaTeX (Math DisplayMath str) =
-  return $ "\\[" <> text (escapeMath str) <> "\\]"
+  return $ "\\[" <> text str <> "\\]"
 inlineToLaTeX (RawInline "latex" str) = return $ text str
 inlineToLaTeX (RawInline "tex" str) = return $ text str
 inlineToLaTeX (RawInline _ _) = return empty
-- 
cgit v1.2.3