diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-17 00:52:45 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-17 00:52:45 -0800 |
commit | b7cbd42d071a296220b3a08a1b2ea333150ca198 (patch) | |
tree | 1e6f258a6ab5c992630cf08ad5332b43bcfc4759 | |
parent | fed260439e6f8ed57dd3b2a3aedd5b5ccbd968a6 (diff) | |
download | pandoc-b7cbd42d071a296220b3a08a1b2ea333150ca198.tar.gz |
Use attributes for author/date.
-rw-r--r-- | src/Text/Pandoc/Writers/Asciidoc.hs | 2 | ||||
m--------- | templates | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/Asciidoc.hs b/src/Text/Pandoc/Writers/Asciidoc.hs index c8319764a..53b607cfc 100644 --- a/src/Text/Pandoc/Writers/Asciidoc.hs +++ b/src/Text/Pandoc/Writers/Asciidoc.hs @@ -52,7 +52,7 @@ pandocToAsciidoc :: WriterOptions -> Pandoc -> State WriterState String pandocToAsciidoc opts (Pandoc (Meta title authors date) blocks) = do title' <- inlineListToAsciidoc opts title let title'' = title' $$ text (replicate (offset title') '=') - authors' <- take 1 `fmap` mapM (inlineListToAsciidoc opts) authors + authors' <- mapM (inlineListToAsciidoc opts) authors -- asciidoc only allows a singel author date' <- inlineListToAsciidoc opts date let titleblock = not $ null title && null authors && null date diff --git a/templates b/templates -Subproject 8b89d7c975800f70024fd9a4204f615fec78946 +Subproject 279110eb7cfedd20e626cdeaaf94ccc6fbb1e8a |