Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Add data-cites field to citations in HTML5.

Browse source 
This contains a space-separated list of citation IDs.
This commit is contained in:
John MacFarlane 2013-01-18 12:16:12 -08:00
parent 809d74b86d
commit 4ed82686e4
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Writers/HTML.hs
View file

@ -731,8 +731,12 @@ inlineToHtml opts inline =
Just EPUB3 -> link ! customAttribute "epub:type" "noteref" Just EPUB3 -> link ! customAttribute "epub:type" "noteref"
_ -> link _ -> link
return $ H.sup $ link' return $ H.sup $ link'
(Cite _ il) -> do contents <- inlineListToHtml opts il (Cite cits il)-> do contents <- inlineListToHtml opts il
return $ H.span ! A.class_ "citation" $ contents let citationIds = unwords $ map citationId cits
let result = H.span ! A.class_ "citation" $ contents
return $ if writerHtml5 opts
then result ! customAttribute "data-cites" (toValue citationIds)
else result
blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html
blockListToNote opts ref blocks = blockListToNote opts ref blocks =