git.iko.soy/typeable/pandoc
on master help sign in
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

commitee644ddda05db1b5af66f0fe4f32de68f3b9f182 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateWed 19 Mar 2008, 18:46 (19 years ago) parentdcb37d3
1 file changed+2−2
compare with master
unifiedsplit
Text/Pandoc/Writers/OpenDocument.hs+2−2
Text/Pandoc/Writers/OpenDocument.hs+2−2
@@ -224,7 +224,7 @@ blockToOpenDocument o bs
224224 | Header i b <- bs = inHeaderTags i <$> wrap o b
225225 | BlockQuote b <- bs = doBlockQuote b
226226 | CodeBlock _ s <- bs = preformatted s
227− | RawHtml s <- bs = preformatted s
227+ | RawHtml _ <- bs = return empty
228228 | DefinitionList b <- bs = defList b
229229 | BulletList b <- bs = bulletListToOpenDocument o b
230230 | OrderedList a b <- bs = orderedList a b
@@ -310,7 +310,7 @@ inlineToOpenDocument o ils
310310 | Code s <- ils = preformatted s
311311 | Math s <- ils = inlinesToOpenDocument o (readTeXMath s)
312312 | TeX s <- ils = preformatted s
313− | HtmlInline s <- ils = preformatted s
313+ | HtmlInline _ <- ils = return empty
314314 | Link l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
315315 | Image l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
316316 | Note l <- ils = mkNote l