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

Ms writer: fixed rawblock/inline to accept "ms" format.

Browse source
This commit is contained in:
John MacFarlane 2017-03-24 09:56:40 +01:00
parent 718254340f
commit 4248231a7e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -233,8 +233,8 @@ blockToMs opts (Para inlines) = do
splitSentences inlines
return $ text ".LP" $$ contents
blockToMs _ b@(RawBlock f str)
| f == Format "man" = return $ text str
| otherwise = do
| f == Format "ms" = return $ text str
| otherwise = do
report $ BlockNotRendered b
return empty
blockToMs _ HorizontalRule =
@ -432,8 +432,8 @@ inlineToMs opts (Math DisplayMath str) = do
Right r -> return $
cr <> text ".EQ" $$ text (escapeBar r) $$ text ".EN"
inlineToMs _ il@(RawInline f str)
| f == Format "man" = return $ text str
| otherwise = do
| f == Format "ms" = return $ text str
| otherwise = do
report $ InlineNotRendered il
return empty
inlineToMs _ (LineBreak) = return $ cr <> text ".br" <> cr