diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-04-04 10:34:16 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-04-04 10:34:16 +0200 |
| commit | 7410d259c2ab11de0b01e37a6561eec0c9d69aaf (patch) | |
| tree | 51a3aceca5aa79fb4d069506757fe0d1ee29fa79 /src/Text | |
| parent | 13cee8c32fb941383e62ab1309904736e25c1b06 (diff) | |
| parent | 3e817124fe58bf4dbe23fbc93062eb5d34382148 (diff) | |
| download | pandoc-7410d259c2ab11de0b01e37a6561eec0c9d69aaf.tar.gz | |
Merge pull request #3556 from nunull/issue1831_footnoteBackRefs
Add class to footnote back references
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 42726bc61..ef5e6b416 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -1047,7 +1047,7 @@ blockListToNote :: PandocMonad m => WriterOptions -> String -> [Block] -> StateT blockListToNote opts ref blocks = -- If last block is Para or Plain, include the backlink at the end of -- that block. Otherwise, insert a new Plain block with the backlink. - let backlink = [Link nullAttr [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])] + let backlink = [Link ("",["footnoteBack"],[]) [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])] blocks' = if null blocks then [] else let lastBlock = last blocks |