@@ -47,7 +47,8 @@ authorToDocbook opts name' = do
4747 let colwidth = if writerWrapText opts == WrapAuto
4848 then Just $ writerColumns opts
4949 else Nothing
50− return $ B.rawInline "docbook" $ render colwidth $
50+ return $ B.rawInline "docbook" $
51+ render colwidth $ inTags True "personname" [] $
5152 if T.any (== ',') name
5253 then -- last name first
5354 let (lastname, rest) = T.break (==',') name