@@ -22,6 +22,7 @@ getSlideLevel = go 6
22 where go least (Header n _ _ : x : xs)
22 where go least (Header n _ _ : x : xs)
23 | n < least && nonHOrHR x = go n xs
23 | n < least && nonHOrHR x = go n xs
24 | otherwise = go least (x:xs)
24 | otherwise = go least (x:xs)
25+ go least (Div _ bs : xs) = min (go least bs) (go least xs)
25 go least (_ : xs) = go least xs
26 go least (_ : xs) = go least xs
26 go least [] = least
27 go least [] = least
27 nonHOrHR Header{} = False
28 nonHOrHR Header{} = False
@@ -45,4 +46,6 @@ prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader
46 ensureStartWithH bs@(Header n _ _:_)
47 ensureStartWithH bs@(Header n _ _:_)
47 | n <= slideLevel = bs
48 | n <= slideLevel = bs
49+ ensureStartWithH bs@(Div _ (Header n _ _:_) : _)
50+ | n <= slideLevel = bs
48 ensureStartWithH bs = Header slideLevel nullAttr [Str "\0"] : bs
51 ensureStartWithH bs = Header slideLevel nullAttr [Str "\0"] : bs