git.iko.soy/typeable/pandoc
on master help sign in
Fixed `cover-image` in EPUB YAML metadata.
commit17ef39d1577a7c844f8747294f0e7a0486c1edaa authorJohn MacFarlane <jgm@berkeley.edu> dateSat 30 Nov 2013, 15:25 (13 years ago) parent96b678d
2 files changed+4−3
compare with master
unifiedsplit
README+2−2 src/Text/Pandoc/Writers/EPUB.hs+2−1
README+2−2
@@ -542,7 +542,7 @@ Options affecting specific writers
542542`--epub-cover-image=`*FILE*
543543: Use the specified image as the EPUB cover. It is recommended
544544 that the image be less than 1000px in width and height. Note that
545− in a markdown source document you can also specify `epub-cover-image`
545+ in a markdown source document you can also specify `cover-image`
546546 in a YAML metadata block (see [EPUB Metadata], below).
547547
548548`--epub-metadata=`*FILE*
@@ -2820,7 +2820,7 @@ The following fields are recognized:
28202820 ~ A string value.
28212821`rights`
28222822 ~ A string value.
2823−`epub-cover-image`
2823+`cover-image`
28242824 ~ A string value (path to cover image).
28252825
28262826Literate Haskell support
src/Text/Pandoc/Writers/EPUB.hs+2−1
@@ -279,7 +279,8 @@ metadataFromMeta opts meta = EPUBMetadata{
279279 relation = metaValueToString <$> lookupMeta "relation" meta
280280 coverage = metaValueToString <$> lookupMeta "coverage" meta
281281 rights = metaValueToString <$> lookupMeta "rights" meta
282− coverImage = lookup "epub-cover-image" (writerVariables opts)
282+ coverImage = lookup "epub-cover-image" (writerVariables opts) `mplus`
283+ (metaValueToString <$> lookupMeta "cover-image" meta)
283284
284285-- | Produce an EPUB file from a Pandoc document.
285286writeEPUB :: WriterOptions -- ^ Writer options