diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-23 17:20:06 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-23 17:20:06 +0100 |
| commit | 6c07e431129c27bf6e541329dc140aaa23e7ac79 (patch) | |
| tree | fda9d6715a0501324fa73562535348984c73c494 /src/Text/Pandoc/Writers/Ms.hs | |
| parent | a939cfe769408ec41aee7ebe5ce4d36f5160d7d1 (diff) | |
Ms writer: use .IP for more standard definition lists.
Diffstat (limited to 'src/Text/Pandoc/Writers/Ms.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index e716b147d..0ca3ddea9 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -357,8 +357,7 @@ definitionListItemToMs opts (label, defs) = do mapM (\item -> blockToMs opts item) rest first' <- blockToMs opts first return $ first' $$ text ".RS" $$ rest' $$ text ".RE" - return $ text ".XP" $$ nowrap (text ".B \"" <> labelText <> text "\"") - $$ text "\\~\\~" <> contents + return $ nowrap (text ".IP \"" <> labelText <> text "\"") $$ contents -- | Convert list of Pandoc block elements to man. blockListToMs :: PandocMonad m |