@@ -446,13 +446,14 @@ blockToHtml opts (Para lst) = do
446446 contents <- inlineListToHtml opts lst
447447 return $ H.p contents
448448blockToHtml opts (Div attr@(_,classes,_) bs) = do
449− contents <- blockListToHtml opts bs
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
452+ contents <- blockListToHtml opts' bs
450453 let contents' = nl opts >> contents >> nl opts
451454 return $
452− if "notes" `elem` classes
453− then let opts' = opts{ writerIncremental = False } in
454− -- we don't want incremental output inside speaker notes
455− case writerSlideVariant opts of
455+ if speakerNotes
456+ then case writerSlideVariant opts of
456457 RevealJsSlides -> addAttrs opts' attr $ H5.aside $ contents'
457458 NoSlides -> addAttrs opts' attr $ H.div $ contents'
458459 _ -> mempty