9b0378b · typeable/pandoc

git.iko.soy/typeable/pandoc

OpenDocument: Skip raw HTML.

Previously it was erroneously included as verbatim text. Closes #1035.

commit9b0378b939f46183fc152b1a49a69f3007de295a authorJohn MacFarlane <jgm@berkeley.edu> dateSat 16 Nov 2013, 22:49 (13 years ago) parent892ba2d

1 file changed+2−2

unifiedsplit

src/Text/Pandoc/Writers/OpenDocument.hs+2−2

@@ -376,8 +376,8 @@ inlineToOpenDocument o ils

376376 | Code _ s <- ils = withTextStyle Pre $ inTextStyle $ preformatted s

377377 | Math t s <- ils = inlinesToOpenDocument o (readTeXMath' t s)

378378 | Cite _ l <- ils = inlinesToOpenDocument o l

379− | RawInline f s <- ils = if f == "opendocument" || f == "html"

380− then withTextStyle Pre $ inTextStyle $ preformatted s

379+ | RawInline f s <- ils = if f == "opendocument"

380+ then return $ preformatted s

381381 else return empty

382382 | Link l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l

383383 | Image _ (s,t) <- ils = return $ mkImg s t