From 87875763c8ea81c07ad01972e3740c3f3cdbd0c0 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 7 Mar 2020 21:54:29 -0800 Subject: Ms writer: fix definition lists so indent even when... paragraph indent is set to 0 (as is the default). Also ensure indent for display math that falls back to TeX. --- src/Text/Pandoc/Writers/Ms.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Writers/Ms.hs') diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index 42d6b932b..662d46618 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -321,8 +321,9 @@ definitionListItemToMs opts (label, defs) = do rest' <- liftM vcat $ mapM (\item -> blockToMs opts item) rest first' <- blockToMs opts first - return $ first' $$ literal ".RS" $$ rest' $$ literal ".RE" - return $ nowrap (literal ".IP " <> doubleQuotes labelText) $$ contents + return $ first' $$ literal ".RS 3" $$ rest' $$ literal ".RE" + return $ nowrap (literal ".IP " <> doubleQuotes labelText <> " 3") $$ + contents -- | Convert list of Pandoc block elements to ms. blockListToMs :: PandocMonad m @@ -400,7 +401,7 @@ inlineToMs opts (Math DisplayMath str) = do case res of Left il -> do contents <- inlineToMs opts il - return $ cr <> literal ".RS" $$ contents $$ literal ".RE" + return $ cr <> literal ".RS 3" $$ contents $$ literal ".RE" Right r -> return $ cr <> literal ".EQ" $$ literal r $$ literal ".EN" <> cr inlineToMs _ il@(RawInline f str) -- cgit v1.2.3