diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-04-01 09:05:13 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-04-01 09:05:13 -0700 |
| commit | 8ec3f6fc4646b4e61db8a624044c5e42e930691c (patch) | |
| tree | d79d96dd76b0e6258635e75c7f7ebd6214aa39c8 /src/Text/Pandoc/Writers | |
| parent | f6615ad85ef4e7ffa8403ca974783eafa6b512ee (diff) | |
| download | pandoc-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.hs | 3 |
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 |