@@ -402,7 +402,8 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
402 not (null $ query hasCodeBlock elts ++ query hasCode elts)
402 not (null $ query hasCodeBlock elts ++ query hasCode elts)
403 let frameoptions = ["allowdisplaybreaks", "allowframebreaks", "fragile",
403 let frameoptions = ["allowdisplaybreaks", "allowframebreaks", "fragile",
404 "b", "c", "t", "environment",
404 "b", "c", "t", "environment",
405− "label", "plain", "shrink", "standout"]
405+ "label", "plain", "shrink", "standout",
406 let optionslist = ["fragile" | fragile && isNothing (lookup "fragile" kvs)] ++
407 let optionslist = ["fragile" | fragile && isNothing (lookup "fragile" kvs)] ++
407 [k | k <- classes, k `elem` frameoptions] ++
408 [k | k <- classes, k `elem` frameoptions] ++
408 [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions]
409 [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions]