From e30d2c700a94177edf223b40999c05f95bc85742 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 26 Mar 2017 16:59:38 +0200
Subject: Ms writer: Use @ instead of | for inline math delimiter.

The `|` delimiter had a bad interaction with tbl.
See discussion in #1839.
---
 src/Text/Pandoc/Writers/Ms.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index ce3907bbe..60e1f6041 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -297,7 +297,7 @@ blockToMs opts (Table caption alignments widths headers rows) =
                         alignments iwidths) ++ "."
   colheadings <- mapM (blockListToMs opts) headers
   let makeRow cols = text "T{" $$
-                     (vcat $ intersperse (text "T}@T{") cols) $$
+                     (vcat $ intersperse (text "T}\tT{") cols) $$
                      text "T}"
   let colheadings' = if all null headers
                         then empty
@@ -307,7 +307,7 @@ blockToMs opts (Table caption alignments widths headers rows) =
                          return $ makeRow cols) rows
   setFirstPara
   return $ text ".PP" $$ caption' $$
-           text ".TS" $$ text "tab(@);" $$ coldescriptions $$
+           text ".TS" $$ text "delim(@@) tab(\t);" $$ coldescriptions $$
            colheadings' $$ vcat body $$ text ".TE"
 
 blockToMs opts (BulletList items) = do
@@ -453,7 +453,7 @@ inlineToMs opts (Math InlineMath str) = do
   res <- convertMath writeEqn InlineMath str
   case res of
        Left il -> inlineToMs opts il
-       Right r -> return $ text "|" <> text (escapeBar r) <> text "|"
+       Right r -> return $ text "@" <> text (escapeBar r) <> text "@"
 inlineToMs opts (Math DisplayMath str) = do
   res <- convertMath writeEqn InlineMath str
   case res of
-- 
cgit v1.2.3