diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-08-24 21:07:47 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-08-24 21:07:47 -0700 |
| commit | 347242f5308cda8431045c5112967c49293b21ff (patch) | |
| tree | 9df38c0faef0849d99a2dda520aae4f2cc596011 /src/Text/Pandoc/Writers | |
| parent | a2c4261b32d3ed3fd6562a5260d25a82d9f75e9b (diff) | |
| download | pandoc-347242f5308cda8431045c5112967c49293b21ff.tar.gz | |
FB2 writer: put coverpage element between title and date...
...rather than in document-info element.
Closes #4854.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/FB2.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/FB2.hs b/src/Text/Pandoc/Writers/FB2.hs index 3227aaed8..6158052bb 100644 --- a/src/Text/Pandoc/Writers/FB2.hs +++ b/src/Text/Pandoc/Writers/FB2.hs @@ -135,8 +135,9 @@ description meta' = do Just (MetaString s) -> coverimage s _ -> return [] return $ el "description" - [ el "title-info" (genre : (as ++ bt ++ annotation ++ dd ++ lang)) - , el "document-info" (el "program-used" "pandoc" : coverpage) + [ el "title-info" (genre : + (as ++ bt ++ annotation ++ dd ++ coverpage ++ lang)) + , el "document-info" [el "program-used" "pandoc"] ] booktitle :: PandocMonad m => Meta -> FBM m [Content] |