aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2020-04-01 09:05:13 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2020-04-01 09:05:13 -0700
commit8ec3f6fc4646b4e61db8a624044c5e42e930691c (patch)
treed79d96dd76b0e6258635e75c7f7ebd6214aa39c8 /src/Text/Pandoc/Writers
parentf6615ad85ef4e7ffa8403ca974783eafa6b512ee (diff)
downloadpandoc-8ec3f6fc4646b4e61db8a624044c5e42e930691c.tar.gz
Docbook writer: Add personname element to docbook author.
Closes #6244.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/Docbook.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs
index bda27f0f2..f05a29157 100644
--- a/src/Text/Pandoc/Writers/Docbook.hs
+++ b/src/Text/Pandoc/Writers/Docbook.hs
@@ -47,7 +47,8 @@ authorToDocbook opts name' = do
let colwidth = if writerWrapText opts == WrapAuto
then Just $ writerColumns opts
else Nothing
- return $ B.rawInline "docbook" $ render colwidth $
+ return $ B.rawInline "docbook" $
+ render colwidth $ inTags True "personname" [] $
if T.any (== ',') name
then -- last name first
let (lastname, rest) = T.break (==',') name