git.iko.soy/typeable/pandoc
on master help sign in
Don't strip meta and link elements in epub metadata.

Per http://idpf.org/epub/30/spec/epub30-publications.html#sec-metadata-elem, a metadata element can contain not just Dublin Core elements but also meta and link elements, but Pandoc currently strips those out. Patch from aberrancy. Closes #589.

commitd7e658c6432bf4c820029eefb9779dca24a1ddaf authorJohn MacFarlane <jgm@berkeley.edu> dateThu 23 Aug 2012, 19:09 (14 years ago) parentdc8e597
1 file changed+5−3
compare with master
unifiedsplit
src/Text/Pandoc/Writers/EPUB.hs+5−3
src/Text/Pandoc/Writers/EPUB.hs+5−3
@@ -248,12 +248,14 @@ metadataElement metadataXML uuid lang title authors date mbCoverImage =
248248 let userNodes = parseXML metadataXML
249249 elt = unode "metadata" ! [("xmlns:dc","http://purl.org/dc/elements/1.1/")
250250 ,("xmlns:opf","http://www.idpf.org/2007/opf")] $
251− filter isDublinCoreElement $ onlyElems userNodes
251+ filter isMetadataElement $ onlyElems userNodes
252252 dublinElements = ["contributor","coverage","creator","date",
253253 "description","format","identifier","language","publisher",
254254 "relation","rights","source","subject","title","type"]
255− isDublinCoreElement e = qPrefix (elName e) == Just "dc" &&
256− qName (elName e) `elem` dublinElements
255+ isMetadataElement e = (qPrefix (elName e) == Just "dc" &&
256+ qName (elName e) `elem` dublinElements) ||
257+ (qPrefix (elName e) == Nothing &&
258+ qName (elName e) `elem` ["link","meta"])
257259 contains e n = not (null (findElements (QName n Nothing (Just "dc")) e))
258260 newNodes = [ unode "dc:title" title | not (elt `contains` "title") ] ++
259261 [ unode "dc:language" lang | not (elt `contains` "language") ] ++