diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-28 11:17:15 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-28 11:18:05 -0800 |
| commit | f53e0a44ce6bd9457d042d191524e0ea2f773b33 (patch) | |
| tree | 681e65e2adf36591fb3cfdb6370603f5c922f29a | |
| parent | 2e00ca20de28598399bbcba8e45dc09366ae9db4 (diff) | |
| download | pandoc-f53e0a44ce6bd9457d042d191524e0ea2f773b33.tar.gz | |
DocBook writer: for linebreak, but newline in literallayout.
Closes #725.
| -rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 2 | ||||
| -rw-r--r-- | tests/writer.docbook | 3 |
2 files changed, 3 insertions, 2 deletions
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 diff --git a/tests/writer.docbook b/tests/writer.docbook index 54d27f789..d8a5c505b 100644 --- a/tests/writer.docbook +++ b/tests/writer.docbook @@ -67,7 +67,8 @@ Here’s one with a bullet. * criminey. </para> <para> - There should be a hard line break<literallayout></literallayout>here. + There should be a hard line break<literallayout> +</literallayout>here. </para> </sect1> <sect1 id="block-quotes"> |