From 8ec3f6fc4646b4e61db8a624044c5e42e930691c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 1 Apr 2020 09:05:13 -0700
Subject: [PATCH] Docbook writer: Add personname element to docbook author.
Closes #6244.
---
src/Text/Pandoc/Writers/Docbook.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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