a6aaff1 · typeable/pandoc

git.iko.soy/typeable/pandoc

Slides: Preserve `<div class="references">` in references slide.

commita6aaff102ef75bf02c9a3256a2a750abae78d0b6 authorJohn MacFarlane <jgm@berkeley.edu> dateTue 29 Oct 2013, 10:40 (13 years ago) parentac7714c

1 file changed+2−2

unifiedsplit

src/Text/Pandoc/Slides.hs+2−2

@@ -55,8 +55,8 @@ prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader

5555 splitHrule [] = []

5656 extractRefsHeader bs =

5757 case reverse bs of

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

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

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

59+ -> reverse zs ++ (Header n attrs xs : [Div ("",["references"],[]) ys])

6060 _ -> bs

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

6262 | n <= slideLevel = bs