LaTeX/Beamer writer: support "blocks" inside columns and other Divs.

Example:

```

<div class="columns">
<div class="column" width="40%">
- Item
</div>
<div class="column" width="60%">
- Item
</div>
</div>
```

Closes #4016.
This commit is contained in:
John MacFarlane 2017-10-31 11:07:39 -07:00
parent 556c6c2c6d
commit 2a81ff3245

View file

@ -371,6 +371,10 @@ toSlides bs = do
concat `fmap` mapM (elementToBeamer slideLevel) (hierarchicalize bs')
elementToBeamer :: PandocMonad m => Int -> Element -> LW m [Block]
elementToBeamer _slideLevel (Blk (Div attr bs)) = do
-- make sure we support "blocks" inside divs
bs' <- concat `fmap` mapM (elementToBeamer 0) (hierarchicalize bs)
return [Div attr bs']
elementToBeamer _slideLevel (Blk b) = return [b]
elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
| lvl > slideLevel = do