@@ -121,9 +121,18 @@ description meta' = do
121121 Just (MetaString s) -> [el "lang" $ iso639 s]
122122 _ -> []
123123 where iso639 = takeWhile (/= '-') -- Convert BCP 47 to ISO 639
124+ let coverimage url = do
125+ let img = Image nullAttr mempty (url, "")
126+ im <- insertImage InlineImage img
127+ return [el "coverpage" im]
128+ coverpage <- case lookupMeta "cover-image" meta' of
129+ Just (MetaInlines [Str s]) -> coverimage s
130+ Just (MetaString s) -> coverimage s
131+ _ -> return []
124132 return $ el "description"
125133 [ el "title-info" (genre : (bt ++ as ++ dd ++ lang))
126− , el "document-info" [ el "program-used" "pandoc" ] -- FIXME: +version
134+ , el "document-info" ([ el "program-used" "pandoc" ] -- FIXME: +version
135+ ++ coverpage)
127136 ]
128137
129138booktitle :: PandocMonad m => Meta -> FBM m [Content]