diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-01-09 15:54:39 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-01-09 15:54:39 -0800 |
| commit | 0998f774ced02c8298e2427853d196b392bba299 (patch) | |
| tree | 1ed36c910959ba44f8c5413de9dde4817eb08d47 /src/Text/Pandoc/Writers | |
| parent | d599c4cdabd0d71fd9d27161c949b5e1e692436d (diff) | |
| download | pandoc-0998f774ced02c8298e2427853d196b392bba299.tar.gz | |
Fixed regression in example lists.
This was associated with e1be934dc2ff061e5200017d6503280686983e1f.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index f01ddac78..4e4a2b421 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -364,12 +364,13 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do items <- mapM listItemToLaTeX lst modify (\s -> s {stOLLevel = oldlevel}) let tostyle x = case numstyle of - Decimal -> "\\arabic" <> braces x - UpperRoman -> "\\Roman" <> braces x - LowerRoman -> "\\roman" <> braces x - UpperAlpha -> "\\Alph" <> braces x - LowerAlpha -> "\\alph" <> braces x - _ -> x + Decimal -> "\\arabic" <> braces x + UpperRoman -> "\\Roman" <> braces x + LowerRoman -> "\\roman" <> braces x + UpperAlpha -> "\\Alph" <> braces x + LowerAlpha -> "\\alph" <> braces x + Example -> "\\arabic" <> braces x + DefaultStyle -> "\\arabic" <> braces x let todelim x = case numdelim of OneParen -> x <> ")" TwoParens -> parens x |