@@ -628,6 +628,7 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
628628 put $ st {stOLLevel = oldlevel + 1}
629629 items <- mapM listItemToLaTeX lst
630630 modify (\s -> s {stOLLevel = oldlevel})
631+ let beamer = stBeamer st
631632 let tostyle x = case numstyle of
632633 Decimal -> "\\arabic" <> braces x
633634 UpperRoman -> "\\Roman" <> braces x
@@ -641,11 +642,21 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
641642 TwoParens -> parens x
642643 Period -> x <> "."
643644 _ -> x <> "."
645+ let exemplar = case numstyle of
646+ Decimal -> "1"
647+ UpperRoman -> "I"
648+ LowerRoman -> "i"
649+ UpperAlpha -> "A"
650+ LowerAlpha -> "a"
651+ Example -> "1"
652+ DefaultStyle -> "1"
644653 let enum = text $ "enum" ++ map toLower (toRomanNumeral oldlevel)
645654 let stylecommand = if numstyle == DefaultStyle && numdelim == DefaultDelim
646655 then empty
647− else "\\def" <> "\\label" <> enum <>
648− braces (todelim $ tostyle enum)
656+ else if beamer
657+ then brackets (todelim exemplar)
658+ else "\\def" <> "\\label" <> enum <>
659+ braces (todelim $ tostyle enum)
649660 let resetcounter = if start == 1 || oldlevel > 4
650661 then empty
651662 else "\\setcounter" <> braces enum <>