aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-07-21 14:54:43 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-07-21 14:54:43 -0700
commit450bef90e094048cc3a7947c213a68b37a85c3a8 (patch)
tree5c1a30a35529ca39ab95c83884a00f16a051463d /src/Text/Pandoc/Writers
parentda0842b5b5022b31aa22a78bc223e2df86a4f3a5 (diff)
downloadpandoc-450bef90e094048cc3a7947c213a68b37a85c3a8.tar.gz
DZSlides: Add `role="note"` for speaker notes.
Closes #1693.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 915b193f7..a2778ea97 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -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'