aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/Docbook.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2011-10-25 12:44:20 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2011-10-25 12:44:20 -0700
commit1b81981c5f681d5c3f48c8d54d6f0a64c9e482ca (patch)
treeb90494974135760a7467e158969ec43035b4cfa7 /src/Text/Pandoc/Writers/Docbook.hs
parentc8bc0391a8bccb9b301e9d1ff84dec2aa168691e (diff)
downloadpandoc-1b81981c5f681d5c3f48c8d54d6f0a64c9e482ca.tar.gz
HTML reader now recognizes DocBook block and inline tags.
It was always possible to include raw DocBook tags in a markdown document, but now pandoc will be able to distinguish block from inline tags and behave accordingly. Thus, for example, <sidebar> hello </sidebar> will not be wrapped in `<para>` tags.
Diffstat (limited to 'src/Text/Pandoc/Writers/Docbook.hs')
-rw-r--r--src/Text/Pandoc/Writers/Docbook.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs
index 29c042cf9..9f8b921e7 100644
--- a/src/Text/Pandoc/Writers/Docbook.hs
+++ b/src/Text/Pandoc/Writers/Docbook.hs
@@ -255,7 +255,8 @@ inlineToDocbook _ EnDash = text "–"
inlineToDocbook _ (Code _ str) =
inTagsSimple "literal" $ text (escapeStringForXML str)
inlineToDocbook opts (Math _ str) = inlinesToDocbook opts $ readTeXMath str
-inlineToDocbook _ (RawInline _ _) = empty
+inlineToDocbook _ (RawInline f x) | f == "html" || f == "docbook" = text x
+ | otherwise = empty
inlineToDocbook _ LineBreak = inTagsSimple "literallayout" empty
inlineToDocbook _ Space = space
inlineToDocbook opts (Link txt (src, _)) =