Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fixed regression in example lists.

Browse source 
This was associated with e1be934dc2.
This commit is contained in:
John MacFarlane 2013-01-09 15:54:39 -08:00
parent d599c4cdab
commit 0998f774ce
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/Text/Pandoc/Writers/LaTeX.hs
View file

@ -364,12 +364,13 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
items <- mapM listItemToLaTeX lst items <- mapM listItemToLaTeX lst
modify (\s -> s {stOLLevel = oldlevel}) modify (\s -> s {stOLLevel = oldlevel})
let tostyle x = case numstyle of let tostyle x = case numstyle of
Decimal -> "\\arabic" <> braces x Decimal -> "\\arabic" <> braces x
UpperRoman -> "\\Roman" <> braces x UpperRoman -> "\\Roman" <> braces x
LowerRoman -> "\\roman" <> braces x LowerRoman -> "\\roman" <> braces x
UpperAlpha -> "\\Alph" <> braces x UpperAlpha -> "\\Alph" <> braces x
LowerAlpha -> "\\alph" <> braces x LowerAlpha -> "\\alph" <> braces x
_ -> x Example -> "\\arabic" <> braces x
DefaultStyle -> "\\arabic" <> braces x
let todelim x = case numdelim of let todelim x = case numdelim of
OneParen -> x <> ")" OneParen -> x <> ")"
TwoParens -> parens x TwoParens -> parens x