Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fixed cover-image in EPUB YAML metadata.

Browse source
This commit is contained in:
John MacFarlane 2013-11-30 15:25:28 -08:00
parent 96b678d823
commit 17ef39d157
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
README
View file

@ -542,7 +542,7 @@ Options affecting specific writers
`--epub-cover-image=`*FILE*
: Use the specified image as the EPUB cover. It is recommended
that the image be less than 1000px in width and height. Note that
in a markdown source document you can also specify `epub-cover-image`
in a markdown source document you can also specify `cover-image`
in a YAML metadata block (see [EPUB Metadata], below).
`--epub-metadata=`*FILE*
@ -2820,7 +2820,7 @@ The following fields are recognized:
~ A string value.
`rights`
~ A string value.
`epub-cover-image`
`cover-image`
~ A string value (path to cover image).
Literate Haskell support

3
src/Text/Pandoc/Writers/EPUB.hs
View file

@ -279,7 +279,8 @@ metadataFromMeta opts meta = EPUBMetadata{
relation = metaValueToString <$> lookupMeta "relation" meta
coverage = metaValueToString <$> lookupMeta "coverage" meta
rights = metaValueToString <$> lookupMeta "rights" meta
coverImage = lookup "epub-cover-image" (writerVariables opts)
coverImage = lookup "epub-cover-image" (writerVariables opts) `mplus`
(metaValueToString <$> lookupMeta "cover-image" meta)
-- | Produce an EPUB file from a Pandoc document.
writeEPUB :: WriterOptions -- ^ Writer options