EPUB writer: Fixed bug with --epub-stylesheet.

Now the contents of `writerEpubStylesheet` (set by `--epub-stylesheet`)
should again work, and take precedence over a stylesheet specified
in the metadata.
This commit is contained in:
John MacFarlane
2013-12-13 11:10:04 -08:00
parent 6d0cd9203c
commit ca3c292f30
+1 -2
View File
@@ -288,8 +288,7 @@ metadataFromMeta opts meta = EPUBMetadata{
rights = metaValueToString <$> lookupMeta "rights" meta
coverImage = lookup "epub-cover-image" (writerVariables opts) `mplus`
(metaValueToString <$> lookupMeta "cover-image" meta)
stylesheet = (StylesheetContents <$>
lookup "epub-stylesheet" (writerVariables opts)) `mplus`
stylesheet = (StylesheetContents <$> writerEpubStylesheet opts) `mplus`
((StylesheetPath . metaValueToString) <$>
lookupMeta "stylesheet" meta)