@@ -429,9 +429,11 @@ blockToHtml opts (Div attr@(_,classes,_) bs) = do
429 let contents' = nl opts >> contents >> nl opts
429 let contents' = nl opts >> contents >> nl opts
431 if "notes" `elem` classes
431 if "notes" `elem` classes
432+ then let opts' = opts{ writerIncremental = False } in
433+ -- we don't want incremental output inside speaker notes
432− then case writerSlideVariant opts of
434+ case writerSlideVariant opts of
433− RevealJsSlides -> addAttrs opts attr $ H5.aside $ contents'
435+ RevealJsSlides -> addAttrs opts' attr $ H5.aside $ contents'
434− NoSlides -> addAttrs opts attr $ H.div $ contents'
436+ NoSlides -> addAttrs opts' attr $ H.div $ contents'
435 _ -> mempty
437 _ -> mempty
436 else addAttrs opts attr $ H.div $ contents'
438 else addAttrs opts attr $ H.div $ contents'
437blockToHtml _ (RawBlock f str)
439blockToHtml _ (RawBlock f str)