Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Ms writer: fixed hard line breaks.

Browse source
This commit is contained in:
John MacFarlane 2017-03-23 14:48:09 +01:00
parent dd1ac8f48f
commit e180a2efa6
2 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Writers/Ms.hs
View file

@ -438,8 +438,7 @@ inlineToMs opts (Math DisplayMath str) = do
inlineToMs _ (RawInline f str) inlineToMs _ (RawInline f str)
| f == Format "man" = return $ text str | f == Format "man" = return $ text str
| otherwise = return empty | otherwise = return empty
inlineToMs _ (LineBreak) = return $ inlineToMs _ (LineBreak) = return $ cr <> text ".br" <> cr
cr <> text ".PD 0" $$ text ".P" $$ text ".PD" <> cr
inlineToMs opts SoftBreak = handleNotes opts cr inlineToMs opts SoftBreak = handleNotes opts cr
inlineToMs opts Space = handleNotes opts space inlineToMs opts Space = handleNotes opts space
inlineToMs opts (Link _ txt (src, _)) = do inlineToMs opts (Link _ txt (src, _)) = do

4
test/writer.ms
View file

@ -68,9 +68,7 @@ Here's one with a bullet.
* criminey. * criminey.
.LP .LP
There should be a hard line break There should be a hard line break
.PD 0 .br
.P
.PD
here. here.
.PP .PP
* * * * * * * * * *