@@ -22,6 +22,7 @@ getSlideLevel = go 6
2222 where go least (Header n _ _ : x : xs)
2323 | n < least && nonHOrHR x = go n xs
2424 | otherwise = go least (x:xs)
25+ go least (Div _ bs : xs) = min (go least bs) (go least xs)
2526 go least (_ : xs) = go least xs
2627 go least [] = least
2728 nonHOrHR Header{} = False
@@ -45,4 +46,6 @@ prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader
4546 _ -> bs
4647 ensureStartWithH bs@(Header n _ _:_)
4748 | n <= slideLevel = bs
49+ ensureStartWithH bs@(Div _ (Header n _ _:_) : _)
50+ | n <= slideLevel = bs
4851 ensureStartWithH bs = Header slideLevel nullAttr [Str "\0"] : bs