lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-25 17:56:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

epub Writer: Fix belongs-to-collection XML id choice (#7267)

Browse Source 
The epub writer previously used the same XML id for both the book
identifier and the epub collection. This causes an error on epubcheck.
This commit is contained in:
nuew
2021-05-10 09:26:32 -06:00
committed by GitHub
parent ba4ec8c5c0
commit ff7176de80
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/EPUB.hs
+3 -3
View File
@@ -991,12 +991,12 @@ metadataElement version md currentTime =
showDateTimeISO8601 currentTime | version == EPUB3 ]
belongsToCollectionNodes =
maybe []
(\belongsToCollection -> (unode "meta" ! [("property", "belongs-to-collection"), ("id", "epub-id-1")] $ belongsToCollection )
(\belongsToCollection -> (unode "meta" ! [("property", "belongs-to-collection"), ("id", "epub-collection-1")] $ belongsToCollection )
:
[unode "meta" ! [("refines", "#epub-id-1"), ("property", "collection-type")] $ ("series" :: Text) ])
[unode "meta" ! [("refines", "#epub-collection-1"), ("property", "collection-type")] $ ("series" :: Text) ])
(epubBelongsToCollection md)++
maybe []
(\groupPosition -> [unode "meta" ! [("refines", "#epub-id-1"), ("property", "group-position")] $ groupPosition ])
(\groupPosition -> [unode "meta" ! [("refines", "#epub-collection-1"), ("property", "group-position")] $ groupPosition ])
(epubGroupPosition md)
dcTag n s = unode ("dc:" <> n) s
dcTag' n s = [dcTag n s]