@@ -263,8 +263,10 @@ blockToMs opts (Table _ blkCapt specs thead tbody tfoot) =
263 return $ makeRow cols) rows
263 return $ makeRow cols) rows
264 setFirstPara
264 setFirstPara
265 return $ literal ".PP" $$ caption' $$
265 return $ literal ".PP" $$ caption' $$
266+ literal ".na" $$ -- we don't want justification in table cells
266 literal ".TS" $$ literal "delim(@@) tab(\t);" $$ coldescriptions $$
267 literal ".TS" $$ literal "delim(@@) tab(\t);" $$ coldescriptions $$
267− colheadings' $$ vcat body $$ literal ".TE"
268+ colheadings' $$ vcat body $$ literal ".TE" $$
269blockToMs opts (BulletList items) = do
271blockToMs opts (BulletList items) = do
270 contents <- mapM (bulletListItemToMs opts) items
272 contents <- mapM (bulletListItemToMs opts) items