@@ -46,13 +46,18 @@ getSlideLevel = go 6
47-- | Prepare a block list to be passed to hierarchicalize.
47-- | Prepare a block list to be passed to hierarchicalize.
48prepSlides :: Int -> [Block] -> [Block]
48prepSlides :: Int -> [Block] -> [Block]
49−prepSlides slideLevel = ensureStartWithH . splitHrule
49+prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader
50 where splitHrule (HorizontalRule : Header n attr xs : ys)
50 where splitHrule (HorizontalRule : Header n attr xs : ys)
51 | n == slideLevel = Header slideLevel attr xs : splitHrule ys
51 | n == slideLevel = Header slideLevel attr xs : splitHrule ys
52 splitHrule (HorizontalRule : xs) = Header slideLevel nullAttr [Str "\0"] :
52 splitHrule (HorizontalRule : xs) = Header slideLevel nullAttr [Str "\0"] :
53 splitHrule xs
53 splitHrule xs
54 splitHrule (x : xs) = x : splitHrule xs
54 splitHrule (x : xs) = x : splitHrule xs
55 splitHrule [] = []
55 splitHrule [] = []
56+ extractRefsHeader bs =
58+ (Div (_,["references"],_) (Header n attrs xs : ys) : zs)
59+ -> reverse zs ++ (Header n attrs xs : ys)
56 ensureStartWithH bs@(Header n _ _:_)
61 ensureStartWithH bs@(Header n _ _:_)
57 | n <= slideLevel = bs
62 | n <= slideLevel = bs
58 ensureStartWithH bs = Header slideLevel nullAttr [Str "\0"] : bs
63 ensureStartWithH bs = Header slideLevel nullAttr [Str "\0"] : bs