diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-26 16:59:38 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-26 16:59:38 +0200 |
| commit | e30d2c700a94177edf223b40999c05f95bc85742 (patch) | |
| tree | d6129a8ad207429bd447b65995ee5b74820cd5d1 /src/Text | |
| parent | 1b967d90365090a8d55e3c400262c8af51a60bf7 (diff) | |
| download | pandoc-e30d2c700a94177edf223b40999c05f95bc85742.tar.gz | |
Ms writer: Use @ instead of | for inline math delimiter.
The `|` delimiter had a bad interaction with tbl.
See discussion in #1839.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |