diff options
| author | Ivo Clarysse <ivo@bcdevices.com> | 2016-04-29 16:06:55 -0700 |
|---|---|---|
| committer | Ivo Clarysse <ivo@bcdevices.com> | 2016-04-29 16:06:55 -0700 |
| commit | fd36e6b64a516ffd281af0667afc6d9c00a70d64 (patch) | |
| tree | 0366714003fc67183bf6708506401bf15b2e56bf /src/Text | |
| parent | 987ec3a7523f4fe529575004d76d93680f127fa3 (diff) | |
| download | pandoc-fd36e6b64a516ffd281af0667afc6d9c00a70d64.tar.gz | |
Docbook5 writer: Properly handle ulink/link
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index 79ccde9af..9acfe289a 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -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 |