From ee644ddda05db1b5af66f0fe4f32de68f3b9f182 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Wed, 19 Mar 2008 18:46:09 +0000 Subject: OpenDocument writer: Don't print raw HTML. (Note: For the DocBook writer, it makes sense to pass through HTML raw, since the "HTML" might be DocBook XML. But this isn't desirable for the OpenDocument writer, it seems to me.) git-svn-id: https://pandoc.googlecode.com/svn/trunk@1254 788f1e2b-df1e-0410-8736-df70ead52e1b --- Text/Pandoc/Writers/OpenDocument.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Text/Pandoc') diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index b21871823..f06af9fe7 100644 --- a/Text/Pandoc/Writers/OpenDocument.hs +++ b/Text/Pandoc/Writers/OpenDocument.hs @@ -224,7 +224,7 @@ blockToOpenDocument o bs | Header i b <- bs = inHeaderTags i <$> wrap o b | BlockQuote b <- bs = doBlockQuote b | CodeBlock _ s <- bs = preformatted s - | RawHtml s <- bs = preformatted s + | RawHtml _ <- bs = return empty | DefinitionList b <- bs = defList b | BulletList b <- bs = bulletListToOpenDocument o b | OrderedList a b <- bs = orderedList a b @@ -310,7 +310,7 @@ inlineToOpenDocument o ils | Code s <- ils = preformatted s | Math s <- ils = inlinesToOpenDocument o (readTeXMath s) | TeX s <- ils = preformatted s - | HtmlInline s <- ils = preformatted s + | HtmlInline _ <- ils = return empty | Link l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l | Image l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l | Note l <- ils = mkNote l -- cgit v1.2.3