aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-04-16 19:02:49 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-04-16 19:02:49 -0700
commit57256d6d91669d1a0256132cd9336364656eb924 (patch)
treee6c97f6e6cb8a70297444b7fb7cedc80c2789dbf /src/Text/Pandoc
parent04478cf0e2930b00d962bcb55b28bc26889fd049 (diff)
downloadpandoc-57256d6d91669d1a0256132cd9336364656eb924.tar.gz
Beamer writer: don't use format specifier for default ordered lists.
This gives better results for styles that put ordered list markers in boxes or circles. Closes #4556.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index f354bc0a2..d9868b7cd 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -678,6 +678,7 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
let enum = text $ "enum" ++ map toLower (toRomanNumeral oldlevel)
let stylecommand
| numstyle == DefaultStyle && numdelim == DefaultDelim = empty
+ | beamer && numstyle == Decimal && numdelim == Period = empty
| beamer = brackets (todelim exemplar)
| otherwise = "\\def" <> "\\label" <> enum <>
braces (todelim $ tostyle enum)