AsciiDoc: Don't use Roman numerals in ordered lists.

AsiiDoc doesn't support them.

1 files changed, 6 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs
index f2436e3ff..ab2b01656 100644
--- a/src/Text/Pandoc/Writers/AsciiDoc.hs
+++ b/src/Text/Pandoc/Writers/AsciiDoc.hs
@@ -213,8 +213,12 @@ blockToAsciiDoc opts (Table caption aligns widths headers rows) =  do
 blockToAsciiDoc opts (BulletList items) = do
   contents <- mapM (bulletListItemToAsciiDoc opts) items
   return $ cat contents <> blankline
-blockToAsciiDoc opts (OrderedList (start, sty, _delim) items) = do
-  let markers  = orderedListMarkers (start, sty, Period)
+blockToAsciiDoc opts (OrderedList (_start, sty, _delim) items) = do
+  let sty' = case sty of
+                  UpperRoman -> UpperAlpha
+                  LowerRoman -> LowerAlpha
+                  x          -> x
+  let markers  = orderedListMarkers (1, sty', Period)  -- start num not used
   let markers' = map (\m -> if length m < 3
                                then m ++ replicate (3 - length m) ' '
                                else m) markers