@@ -55,8 +55,8 @@ prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader
55 splitHrule [] = []
55 splitHrule [] = []
56 extractRefsHeader bs =
56 extractRefsHeader bs =
57 case reverse bs of
57 case reverse bs of
58− (Div (_,["references"],_) (Header n attrs xs : ys) : zs)
58+ (Div ("",["references"],[]) (Header n attrs xs : ys) : zs)
59− -> reverse zs ++ (Header n attrs xs : ys)
59+ -> reverse zs ++ (Header n attrs xs : [Div ("",["references"],[]) ys])
61 ensureStartWithH bs@(Header n _ _:_)
61 ensureStartWithH bs@(Header n _ _:_)
62 | n <= slideLevel = bs
62 | n <= slideLevel = bs