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

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

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