@@ -438,7 +438,7 @@ elementToHtml slideLevel opts (Sec level num (id',classes,keyvals) title' elemen
439 (x:xs) -> x ++ concatMap inDiv xs
439 (x:xs) -> x ++ concatMap inDiv xs
440 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
440 let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]
441− let classes' = ["titleslide" | titleSlide] ++ ["slide" | slide] ++
441+ let classes' = ["title-slide" | titleSlide] ++ ["slide" | slide] ++
442 ["section" | (slide || writerSectionDivs opts) &&
442 ["section" | (slide || writerSectionDivs opts) &&
443 not html5 ] ++
443 not html5 ] ++
444 ["level" ++ show level | slide || writerSectionDivs opts ]
444 ["level" ++ show level | slide || writerSectionDivs opts ]
@@ -1100,7 +1100,7 @@ inlineToHtml opts inline = do
1100 let link = H.a ! A.href (toValue $ "#" ++
1100 let link = H.a ! A.href (toValue $ "#" ++
1101 revealSlash ++
1101 revealSlash ++
1102 writerIdentifierPrefix opts ++ "fn" ++ ref)
1102 writerIdentifierPrefix opts ++ "fn" ++ ref)
1103− ! A.class_ "footnoteRef"
1103+ ! A.class_ "footnote-ref"
1104 ! prefixedId opts ("fnref" ++ ref)
1104 ! prefixedId opts ("fnref" ++ ref)
1105 $ (if isJust epubVersion
1105 $ (if isJust epubVersion
@@ -1120,7 +1120,7 @@ blockListToNote :: PandocMonad m => WriterOptions -> String -> [Block] -> StateT
1120blockListToNote opts ref blocks =
1120blockListToNote opts ref blocks =
1121 -- If last block is Para or Plain, include the backlink at the end of
1121 -- If last block is Para or Plain, include the backlink at the end of
1122 -- that block. Otherwise, insert a new Plain block with the backlink.
1122 -- that block. Otherwise, insert a new Plain block with the backlink.
1123− let backlink = [Link ("",["footnoteBack"],[]) [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])]
1123+ let backlink = [Link ("",["footnote-back"],[]) [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])]
1124 blocks' = if null blocks
1124 blocks' = if null blocks
1126 else let lastBlock = last blocks
1126 else let lastBlock = last blocks