aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs20
1 files changed, 14 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 2345243d2..7fe77a69c 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -713,11 +713,15 @@ inlineToHtml opts inline =
htmlContents <- blockListToNote opts ref contents
-- push contents onto front of notes
put $ st {stNotes = (htmlContents:notes)}
- return $ H.sup $
- H.a ! A.href (toValue $ "#" ++ writerIdentifierPrefix opts ++ "fn" ++ ref)
- ! A.class_ "footnoteRef"
- ! prefixedId opts ("fnref" ++ ref)
- $ toHtml ref
+ let link = H.a ! A.href (toValue $ "#" ++
+ writerIdentifierPrefix opts ++ "fn" ++ ref)
+ ! A.class_ "footnoteRef"
+ ! prefixedId opts ("fnref" ++ ref)
+ $ toHtml ref
+ let link' = case writerEpubVersion opts of
+ Just EPUB3 -> link ! customAttribute "epub:type" "noteref"
+ _ -> link
+ return $ H.sup $ link'
(Cite _ il) -> do contents <- inlineListToHtml opts il
return $ H.span ! A.class_ "citation" $ contents
@@ -738,4 +742,8 @@ blockListToNote opts ref blocks =
_ -> otherBlocks ++ [lastBlock,
Plain backlink]
in do contents <- blockListToHtml opts blocks'
- return $ nl opts >> (H.li ! (prefixedId opts ("fn" ++ ref)) $ contents)
+ let noteItem = H.li ! (prefixedId opts ("fn" ++ ref)) $ contents
+ let noteItem' = case writerEpubVersion opts of
+ Just EPUB3 -> noteItem ! customAttribute "epub:type" "footnote"
+ _ -> noteItem
+ return $ nl opts >> noteItem'