From 9c3f7688ee1c44c5452cb30986f1e37317acb6e2 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 23 Jul 2014 10:06:36 -0700 Subject: DocBook reader: Better handle elements inside code environments. Of course, we can't include structure in the code block, but this way we at least preserve the text. Closes #1449. --- src/Text/Pandoc/Readers/DocBook.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index cf1d5132e..1e119e729 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -769,7 +769,12 @@ parseBlock (Elem e) = "" -> [] x -> [x] return $ codeBlockWith (attrValue "id" e, classes', []) - $ trimNl $ strContent e + $ trimNl $ strContentRecursive e + strContentRecursive = strContent . (\e' -> e'{ elContent = + map elementToStr $ elContent e' }) + elementToStr :: Content -> Content + elementToStr (Elem e') = Text $ CData CDataText (strContentRecursive e') Nothing + elementToStr x = x parseBlockquote = do attrib <- case filterChild (named "attribution") e of Nothing -> return mempty -- cgit v1.2.3