From 7b879f867ce0f90382f185a2e4b700b41ad73f9d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 20 Sep 2019 22:31:56 -0700
Subject: [PATCH] Changes to Slides to be more flexible with Div structure.
Previously if you had
```
::: #foo
c
:::
```
slide level would be 1, not 2.
---
src/Text/Pandoc/Slides.hs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/Text/Pandoc/Slides.hs b/src/Text/Pandoc/Slides.hs
index 8fb1b63aa..4a53a1c23 100644
--- a/src/Text/Pandoc/Slides.hs
+++ b/src/Text/Pandoc/Slides.hs
@@ -22,6 +22,7 @@ getSlideLevel = go 6
where go least (Header n _ _ : x : xs)
| n < least && nonHOrHR x = go n xs
| otherwise = go least (x:xs)
+ go least (Div _ bs : xs) = min (go least bs) (go least xs)
go least (_ : xs) = go least xs
go least [] = least
nonHOrHR Header{} = False
@@ -45,4 +46,6 @@ prepSlides slideLevel = ensureStartWithH . splitHrule . extractRefsHeader
_ -> bs
ensureStartWithH bs@(Header n _ _:_)
| n <= slideLevel = bs
+ ensureStartWithH bs@(Div _ (Header n _ _:_) : _)
+ | n <= slideLevel = bs
ensureStartWithH bs = Header slideLevel nullAttr [Str "\0"] : bs