From 49286a25df24bd3bf6d5c20b47e819d83d6d8207 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 30 Dec 2020 13:36:18 -0800
Subject: Ms writer: don't justify inside table cells.
---
src/Text/Pandoc/Writers/Ms.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
(limited to 'src/Text/Pandoc')
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index 96914d3c6..0fc333bc2 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -263,8 +263,10 @@ blockToMs opts (Table _ blkCapt specs thead tbody tfoot) =
return $ makeRow cols) rows
setFirstPara
return $ literal ".PP" $$ caption' $$
+ literal ".na" $$ -- we don't want justification in table cells
literal ".TS" $$ literal "delim(@@) tab(\t);" $$ coldescriptions $$
- colheadings' $$ vcat body $$ literal ".TE"
+ colheadings' $$ vcat body $$ literal ".TE" $$
+ literal ".ad"
blockToMs opts (BulletList items) = do
contents <- mapM (bulletListItemToMs opts) items
--
cgit v1.2.3