Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Changes to Slides to be more flexible with Div structure.

Browse source 
Previously if you had

```
::: #foo
c
:::
```

slide level would be 1, not 2.
This commit is contained in:
John MacFarlane 2019-09-20 22:31:56 -07:00
parent 7389919bb4
commit 7b879f867c
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Slides.hs
View file

@ -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