diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-10-15 15:11:07 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-10-15 15:11:07 -0700 |
| commit | 504bf3f8e79bd502f406264e2cc2794b129a26c0 (patch) | |
| tree | f422972e88ae338968181373ce8122c164e40f73 /src/Text/Pandoc/Writers | |
| parent | 047cb32dfcf182368a9de5658857e16894253285 (diff) | |
| download | pandoc-504bf3f8e79bd502f406264e2cc2794b129a26c0.tar.gz | |
Support all frame attributes in Beamer.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index b2e7dc1ba..770a674b7 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -300,9 +300,12 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts) if writerListings opts then query hasCode elts else []) - let allowframebreaks = "allowframebreaks" `elem` classes + let frameoptions = ["allowdisplaybreaks", "allowframebreaks", + "b", "c", "t", "environment", + "label", "plain", "shrink"] let optionslist = ["fragile" | fragile] ++ - ["allowframebreaks" | allowframebreaks] + [k | k <- classes, k `elem` frameoptions] ++ + [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions] let options = if null optionslist then "" else "[" ++ intercalate "," optionslist ++ "]" |