@@ -446,13 +446,14 @@ blockToHtml opts (Para lst) = do
446 contents <- inlineListToHtml opts lst
446 contents <- inlineListToHtml opts lst
447 return $ H.p contents
447 return $ H.p contents
448blockToHtml opts (Div attr@(_,classes,_) bs) = do
448blockToHtml opts (Div attr@(_,classes,_) bs) = do
449+ let speakerNotes = "notes" `elem` classes
450+ -- we don't want incremental output inside speaker notes, see #1394
451+ let opts' = if speakerNotes then opts{ writerIncremental = False } else opts
449− contents <- blockListToHtml opts bs
452+ contents <- blockListToHtml opts' bs
450 let contents' = nl opts >> contents >> nl opts
453 let contents' = nl opts >> contents >> nl opts
452− if "notes" `elem` classes
455+ if speakerNotes
453− then let opts' = opts{ writerIncremental = False } in
454− -- we don't want incremental output inside speaker notes
455− case writerSlideVariant opts of
456+ then case writerSlideVariant opts of
456 RevealJsSlides -> addAttrs opts' attr $ H5.aside $ contents'
457 RevealJsSlides -> addAttrs opts' attr $ H5.aside $ contents'
457 NoSlides -> addAttrs opts' attr $ H.div $ contents'
458 NoSlides -> addAttrs opts' attr $ H.div $ contents'
458 _ -> mempty
459 _ -> mempty