diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-10-29 10:40:40 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-10-29 10:40:40 -0700 |
| commit | a6aaff102ef75bf02c9a3256a2a750abae78d0b6 (patch) | |
| tree | cfd2f0e89435ee2e3333c3a249f366f26a072b97 /src/Text | |
| parent | ac7714ca398eaf25dd512754c1cb9aee297ff3d1 (diff) | |
| download | pandoc-a6aaff102ef75bf02c9a3256a2a750abae78d0b6.tar.gz | |
Slides: Preserve `<div class="references">` in references slide.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Slides.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Slides.hs b/src/Text/Pandoc/Slides.hs index db4aa2509..50c46d17f 100644 --- a/src/Text/Pandoc/Slides.hs +++ b/src/Text/Pandoc/Slides.hs @@ -55,8 +55,8 @@ prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader splitHrule [] = [] extractRefsHeader bs = case reverse bs of - (Div (_,["references"],_) (Header n attrs xs : ys) : zs) - -> reverse zs ++ (Header n attrs xs : ys) + (Div ("",["references"],[]) (Header n attrs xs : ys) : zs) + -> reverse zs ++ (Header n attrs xs : [Div ("",["references"],[]) ys]) _ -> bs ensureStartWithH bs@(Header n _ _:_) | n <= slideLevel = bs |