diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Man.hs | 4 | ||||
| -rw-r--r-- | tests/writer.man | 66 |
2 files changed, 2 insertions, 68 deletions
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs index 3270337d7..f6f656c4e 100644 --- a/src/Text/Pandoc/Writers/Man.hs +++ b/src/Text/Pandoc/Writers/Man.hs @@ -149,7 +149,7 @@ blockToMan opts (Para inlines) = do contents <- liftM vcat $ mapM (wrapIfNeeded opts (inlineListToMan opts)) $ splitSentences inlines return $ text ".PP" $$ contents -blockToMan _ (RawHtml str) = return $ text str +blockToMan _ (RawHtml _) = return empty blockToMan _ HorizontalRule = return $ text $ ".PP\n * * * * *" blockToMan opts (Header level inlines) = do contents <- inlineListToMan opts inlines @@ -312,7 +312,7 @@ inlineToMan opts (Math DisplayMath str) = do contents <- inlineToMan opts (Code str) return $ text ".RS" $$ contents $$ text ".RE" inlineToMan _ (TeX _) = return empty -inlineToMan _ (HtmlInline str) = return $ text $ escapeCode str +inlineToMan _ (HtmlInline _) = return empty inlineToMan _ (LineBreak) = return $ text "\n.PD 0\n.P\n.PD\n" inlineToMan _ Space = return $ char ' ' inlineToMan opts (Link txt (src, _)) = do diff --git a/tests/writer.man b/tests/writer.man index aa3cbf647..692f8f036 100644 --- a/tests/writer.man +++ b/tests/writer.man @@ -439,45 +439,18 @@ sublist .SH HTML Blocks .PP Simple block on one line: -<div> foo -</div> - .PP And nested without indentation: -<div> -<div> -<div> foo -</div> -</div> -<div> bar -</div> -</div> - .PP Interpreted markdown in a table: -<table> -<tr> -<td> This is \f[I]emphasized\f[] -</td> -<td> And this is \f[B]strong\f[] -</td> -</tr> -</table> - -<script type="text/javascript">document.write('This *should not* be interpreted as markdown');</script> - .PP Here's a simple block: -<div> - foo -</div> - .PP This should be a code block, though: .PP @@ -494,30 +467,11 @@ As should this: \f[] .PP Now, nested: -<div> - <div> - <div> - foo -</div> - </div> -</div> - .PP This should just be an HTML comment: -<!-- Comment --> - .PP Multiline: -<!-- -Blah -Blah ---> - -<!-- - This is another comment. ---> - .PP Code block: .PP @@ -526,8 +480,6 @@ Code block: \f[] .PP Just plain comment, with trailing spaces on the line: -<!-- foo --> - .PP Code: .PP @@ -536,24 +488,6 @@ Code: \f[] .PP Hr's: -<hr> - -<hr /> - -<hr /> - -<hr> - -<hr /> - -<hr /> - -<hr class="foo" id="bar" /> - -<hr class="foo" id="bar" /> - -<hr class="foo" id="bar"> - .PP * * * * * .SH Inline Markup |