diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-12-26 11:17:32 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-12-26 11:17:32 -0800 |
commit | b52cbb71c2cbd3a380c36877c3066e17660f1ade (patch) | |
tree | 4cf0f00e46af905292f969b4eb67d508845fc467 /src | |
parent | b5ae5373213634a92cb9cca6ae17e8df995e246c (diff) | |
download | pandoc-b52cbb71c2cbd3a380c36877c3066e17660f1ade.tar.gz |
LaTeX writer: Allow fragile=singleslide attribute in beamer slides.
Closes #4169.
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 666aea07c..d6ccc1512 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -398,10 +398,10 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts) hasCode _ = [] let fragile = "fragile" `elem` classes || not (null $ query hasCodeBlock elts ++ query hasCode elts) - let frameoptions = ["allowdisplaybreaks", "allowframebreaks", + let frameoptions = ["allowdisplaybreaks", "allowframebreaks", "fragile", "b", "c", "t", "environment", "label", "plain", "shrink", "standout"] - let optionslist = ["fragile" | fragile] ++ + let optionslist = ["fragile" | fragile && lookup "fragile" kvs == Nothing] ++ [k | k <- classes, k `elem` frameoptions] ++ [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions] let options = if null optionslist |