diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-23 14:48:09 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-23 14:48:09 +0100 |
| commit | e180a2efa6477dd08b7c6c41816d6cfdf9f24afd (patch) | |
| tree | cd6ac6a630159e6411465f18a2e535244158ea6b | |
| parent | dd1ac8f48fdb4cf29c924690ecbed4557519b444 (diff) | |
| download | pandoc-e180a2efa6477dd08b7c6c41816d6cfdf9f24afd.tar.gz | |
Ms writer: fixed hard line breaks.
| -rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 3 | ||||
| -rw-r--r-- | test/writer.ms | 4 |
2 files changed, 2 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index 523167349..e716b147d 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -438,8 +438,7 @@ inlineToMs opts (Math DisplayMath str) = do inlineToMs _ (RawInline f str) | f == Format "man" = return $ text str | otherwise = return empty -inlineToMs _ (LineBreak) = return $ - cr <> text ".PD 0" $$ text ".P" $$ text ".PD" <> cr +inlineToMs _ (LineBreak) = return $ cr <> text ".br" <> cr inlineToMs opts SoftBreak = handleNotes opts cr inlineToMs opts Space = handleNotes opts space inlineToMs opts (Link _ txt (src, _)) = do diff --git a/test/writer.ms b/test/writer.ms index ec97f3f88..6b066fc39 100644 --- a/test/writer.ms +++ b/test/writer.ms @@ -68,9 +68,7 @@ Here's one with a bullet. * criminey. .LP There should be a hard line break -.PD 0 -.P -.PD +.br here. .PP * * * * * |