@@ -269,10 +269,13 @@ elementToListItem opts (Sec lev num (id',classes,_) headerText subsecs)
269269 let subList = if null subHeads
270270 then mempty
271271 else unordList opts subHeads
272+ -- in reveal.js, we need #/apples, not #apples:
273+ let revealSlash = ['/' | writerSlideVariant opts == RevealJsSlides]
272274 return $ Just
273275 $ if null id'
274276 then (H.a $ toHtml txt) >> subList
275− else (H.a ! A.href (toValue $ "#" ++ writerIdentifierPrefix opts ++ id')
277+ else (H.a ! A.href (toValue $ "#" ++ revealSlash ++
278+ writerIdentifierPrefix opts ++ id')
276279 $ toHtml txt) >> subList
277280elementToListItem _ _ = return Nothing
278281
@@ -477,9 +480,12 @@ blockToHtml opts (Header level (ident,_,_) lst) = do
477480 then (H.span ! A.class_ "header-section-number" $ toHtml
478481 $ showSecNum secnum) >> strToHtml " " >> contents
479482 else contents
483+ let revealSlash = ['/' | writerSlideVariant opts == RevealJsSlides]
480484 let contents'' = if writerTableOfContents opts && not (null ident)
481485 then H.a ! A.href (toValue $
482− '#' : writerIdentifierPrefix opts ++ ident) $ contents'
486+ '#' : revealSlash ++
487+ writerIdentifierPrefix opts ++
488+ ident) $ contents'
483489 else contents'
484490 return $ case level of
485491 1 -> H.h1 contents''
@@ -701,7 +707,11 @@ inlineToHtml opts inline =
701707 return $ obfuscateLink opts (renderHtml linkText) s
702708 (Link txt (s,tit)) -> do
703709 linkText <- inlineListToHtml opts txt
704− let link = H.a ! A.href (toValue s) $ linkText
710+ let s' = case s of
711+ '#':xs | writerSlideVariant opts ==
712+ RevealJsSlides -> '#':'/':xs
713+ _ -> s
714+ let link = H.a ! A.href (toValue s') $ linkText
705715 return $ if null tit
706716 then link
707717 else link ! A.title (toValue tit)
@@ -732,7 +742,10 @@ inlineToHtml opts inline =
732742 htmlContents <- blockListToNote opts ref contents
733743 -- push contents onto front of notes
734744 put $ st {stNotes = (htmlContents:notes)}
745+ let revealSlash = ['/' | writerSlideVariant opts
746+ == RevealJsSlides]
735747 let link = H.a ! A.href (toValue $ "#" ++
748+ revealSlash ++
736749 writerIdentifierPrefix opts ++ "fn" ++ ref)
737750 ! A.class_ "footnoteRef"
738751 ! prefixedId opts ("fnref" ++ ref)