@@ -345,7 +345,7 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
345 not (null $ query hasCodeBlock elts ++ query hasCode elts)
345 not (null $ query hasCodeBlock elts ++ query hasCode elts)
346 let frameoptions = ["allowdisplaybreaks", "allowframebreaks",
346 let frameoptions = ["allowdisplaybreaks", "allowframebreaks",
347 "b", "c", "t", "environment",
347 "b", "c", "t", "environment",
348− "label", "plain", "shrink"]
348+ "label", "plain", "shrink", "standout"]
349 let optionslist = ["fragile" | fragile] ++
349 let optionslist = ["fragile" | fragile] ++
350 [k | k <- classes, k `elem` frameoptions] ++
350 [k | k <- classes, k `elem` frameoptions] ++
351 [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions]
351 [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions]