From f53e0a44ce6bd9457d042d191524e0ea2f773b33 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 28 Jan 2013 11:17:15 -0800 Subject: DocBook writer: for linebreak, but newline in literallayout. Closes #725. --- src/Text/Pandoc/Writers/Docbook.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index f11338590..90bd1d3a4 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -282,7 +282,7 @@ inlineToDocbook opts (Math t str) fixNS = everywhere (mkT fixNS') inlineToDocbook _ (RawInline f x) | f == "html" || f == "docbook" = text x | otherwise = empty -inlineToDocbook _ LineBreak = inTagsSimple "literallayout" empty +inlineToDocbook _ LineBreak = flush $ inTagsSimple "literallayout" (text "\n") inlineToDocbook _ Space = space inlineToDocbook opts (Link txt (src, _)) = if isPrefixOf "mailto:" src -- cgit v1.2.3