summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2022-05-19 09:56:57 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2022-05-19 09:56:57 -0700
commit4cbf4f648971b191fb968476a396912651bb1c88 (patch)
tree086680f991f3aeacd17489844da01dbb260d657f
parentb8fb79b5c0d3d2dc07f321e633d6b24a800ef130 (diff)
Beamer: allow containsverbatim as alternative to fragile.
Closes #8080.
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 2f4190139..e06510705 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -287,10 +287,11 @@ blockToLaTeX (Div (identifier,"slide":dclasses,dkvs)
let frameoptions = ["allowdisplaybreaks", "allowframebreaks", "fragile",
"b", "c", "t", "environment", "s", "squeeze",
"label", "plain", "shrink", "standout",
- "noframenumbering"]
+ "noframenumbering", "containsverbatim"]
let optionslist = ["fragile" | fragile
, isNothing (lookup "fragile" kvs)
- , "fragile" `notElem` classes] ++
+ , "fragile" `notElem` classes
+ , "containsverbatim" `notElem` classes] ++
[k | k <- classes, k `elem` frameoptions] ++
[k <> "=" <> v | (k,v) <- kvs, k `elem` frameoptions] ++
[v | ("frameoptions", v) <- kvs]