diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-07 23:34:54 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-07 23:34:54 +0000 |
commit | 05436988950d271f8a55ee48b4d7794da9b40172 (patch) | |
tree | 61b4489961b7c0d8fa0e0b33fb416c623bdbe1a8 | |
parent | 5082b5411bdb1acb5b0dba9cbdfa346b96f1e309 (diff) | |
download | pandoc-05436988950d271f8a55ee48b4d7794da9b40172.tar.gz |
Don't print raw HTML in man output.
Resolves Issue #183.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1657 788f1e2b-df1e-0410-8736-df70ead52e1b
-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 |