From 450bef90e094048cc3a7947c213a68b37a85c3a8 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 21 Jul 2015 14:54:43 -0700
Subject: [PATCH] DZSlides: Add `role="note"` for speaker notes.
Closes #1693.
---
src/Text/Pandoc/Writers/HTML.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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'