lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-28 10:25:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

Docbook5 writer: Properly handle ulink/link

Browse Source
This commit is contained in:
Ivo Clarysse
2016-04-29 16:06:55 -07:00
parent 987ec3a752
commit fd36e6b64a
2 changed files with 37 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Docbook.hs
+3 -1
View File
@@ -351,7 +351,9 @@ inlineToDocbook opts (Link attr txt (src, _))
| otherwise =
(if isPrefixOf "#" src
then inTags False "link" $ ("linkend", drop 1 src) : idAndRole attr
else inTags False "ulink" $ ("url", src) : idAndRole attr ) $
else if writerDocbook5 opts
then inTags False "link" $ ("xlink:href", src) : idAndRole attr
else inTags False "ulink" $ ("url", src) : idAndRole attr ) $
inlinesToDocbook opts txt
inlineToDocbook opts (Image attr _ (src, tit)) =
let titleDoc = if null tit