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

Beamer writer: avoid duplicated fragile property in some cases.

Browse source 
Closes #5208.
This commit is contained in:
John MacFarlane 2019-01-09 08:36:04 -08:00
parent 253f342a80
commit 7e481d73cf
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/LaTeX.hs
View file

@ -471,7 +471,9 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
"b", "c", "t", "environment",
"label", "plain", "shrink", "standout",
"noframenumbering"]
let optionslist = ["fragile" | fragile && isNothing (lookup "fragile" kvs)] ++
let optionslist = ["fragile" | fragile
, isNothing (lookup "fragile" kvs)
, "fragile" `notElem` classes] ++
[k | k <- classes, k `elem` frameoptions] ++
[k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions]
let options = if null optionslist