From a25e79b5bef9a55c076351d1321675e26513f8ac Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 10 Jan 2022 11:47:55 -0800
Subject: [PATCH] DocBook reader: Collapse internal spaces in literal...
and other similar tags. This seems to accord with what
the docbook toolchain does.
Closes #7821.
---
src/Text/Pandoc/Readers/DocBook.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index a0801124f..6fe493e4e 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -1241,7 +1241,9 @@ parseInline (Elem e) =
let classes' = case attrValue "language" e of
"" -> []
l -> [l]
- return $ codeWith (attrValue "id" e,classes',[]) $ strContentRecursive e
+ return $ codeWith (attrValue "id" e,classes',[]) $
+ T.unwords $ T.words $ strContentRecursive e
+ -- collapse internal spaces/newlines, see #7821
simpleList = mconcat . intersperse (str "," <> space) <$> mapM getInlines
(filterChildren (named "member") e)
segmentedList = do