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