Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

DocBook writer: for linebreak, but newline in literallayout.

Browse source 
Closes #725.
This commit is contained in:
John MacFarlane 2013-01-28 11:17:15 -08:00
parent 2e00ca20de
commit f53e0a44ce
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Docbook.hs
View file

@ -282,7 +282,7 @@ inlineToDocbook opts (Math t str)
fixNS = everywhere (mkT fixNS') fixNS = everywhere (mkT fixNS')
inlineToDocbook _ (RawInline f x) | f == "html" || f == "docbook" = text x inlineToDocbook _ (RawInline f x) | f == "html" || f == "docbook" = text x
| otherwise = empty | otherwise = empty
inlineToDocbook _ LineBreak = inTagsSimple "literallayout" empty inlineToDocbook _ LineBreak = flush $ inTagsSimple "literallayout" (text "\n")
inlineToDocbook _ Space = space inlineToDocbook _ Space = space
inlineToDocbook opts (Link txt (src, _)) = inlineToDocbook opts (Link txt (src, _)) =
if isPrefixOf "mailto:" src if isPrefixOf "mailto:" src

3
tests/writer.docbook
View file

@ -67,7 +67,8 @@
Here’s one with a bullet. * criminey. Here’s one with a bullet. * criminey.
</para> </para>
<para> <para>
There should be a hard line break<literallayout></literallayout>here. There should be a hard line break<literallayout>
</literallayout>here.
</para> </para>
</sect1> </sect1>
<sect1 id="block-quotes"> <sect1 id="block-quotes">