FB2 writer: put coverpage element between title and date...

...rather than in document-info element.

Closes #4854.
This commit is contained in:
John MacFarlane 2018-08-24 21:07:47 -07:00
parent a2c4261b32
commit 347242f530

View file

@ -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]