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

DZSlides: Add role="note" for speaker notes.

Browse source 
Closes #1693.
This commit is contained in:
John MacFarlane 2015-07-21 14:54:43 -07:00
parent da0842b5b5
commit 450bef90e0
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -458,7 +458,8 @@ blockToHtml opts (Div attr@(_,classes,_) bs) = do
if speakerNotes
then case writerSlideVariant opts of
RevealJsSlides -> addAttrs opts' attr $ H5.aside $ contents'
DZSlides -> addAttrs opts' attr $ H5.div $ contents'
DZSlides -> (addAttrs opts' attr $ H5.div $ contents')
! (H5.customAttribute "role" "note")
NoSlides -> addAttrs opts' attr $ H.div $ contents'
_ -> mempty
else addAttrs opts attr $ H.div $ contents'