464b174 · typeable/pandoc

git.iko.soy/typeable/pandoc

Fixed reference slides.

The Div container around references messed up the procedure for carving a document into slides. So we now remove the surrounding Div in prepSlides.

commit464b174d0f17c5a9f38d724523dcaf4e8a6b07fe authorJohn MacFarlane <fiddlosopher@gmail.com> dateWed 18 Sep 2013, 09:13 (13 years ago) parent3397af3

1 file changed+6−1

unifiedsplit

src/Text/Pandoc/Slides.hs+6−1

@@ -46,13 +46,18 @@ getSlideLevel = go 6

4646

4747-- | Prepare a block list to be passed to hierarchicalize.

4848prepSlides :: Int -> [Block] -> [Block]

49−prepSlides slideLevel = ensureStartWithH . splitHrule

49+prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader

5050 where splitHrule (HorizontalRule : Header n attr xs : ys)

5151 | n == slideLevel = Header slideLevel attr xs : splitHrule ys

5252 splitHrule (HorizontalRule : xs) = Header slideLevel nullAttr [Str "\0"] :

5353 splitHrule xs

5454 splitHrule (x : xs) = x : splitHrule xs

5555 splitHrule [] = []

56+ extractRefsHeader bs =

57+ case reverse bs of

58+ (Div (_,["references"],_) (Header n attrs xs : ys) : zs)

59+ -> reverse zs ++ (Header n attrs xs : ys)

60+ _ -> bs

5661 ensureStartWithH bs@(Header n _ _:_)

5762 | n <= slideLevel = bs

5863 ensureStartWithH bs = Header slideLevel nullAttr [Str "\0"] : bs