From 7c319e55ff641b57688297c5e67169ec316235b1 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 16 Dec 2006 19:43:00 +0000
Subject: Modified markdown reader to allow ordered list items to begin with
 (single) letters, as well as numbers.  The list item marker may now be
 terminated either by '.' or by ')'.  These extensions to standard markdown
 are documented in README.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@211 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Readers/Markdown.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index df2f43e87..cbefa09fe 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -45,7 +45,7 @@ autoLinkEnd = '>'
 mathStart = '$'
 mathEnd = '$'
 bulletListMarkers = "*+-"
-orderedListDelimiters = "."
+orderedListDelimiters = ".)"
 escapeChar = '\\'
 hruleChars = "*-_"
 quoteChars = "'\""
@@ -276,7 +276,7 @@ orderedListStart =
     try (do
            option ' ' newline -- if preceded by a Plain block in a list context
            skipNonindentSpaces
-           many1 digit
+           many1 digit <|> count 1 letter
            oneOf orderedListDelimiters
            oneOf spaceChars
            skipSpaces)
@@ -535,7 +535,7 @@ title = choice [titleWith '(' ')', titleWith '"' '"', titleWith '\'' '\''] <?> "
 
 link = choice [explicitLink, referenceLink] <?> "link"
 
-explicitLink = 
+explicitLink =
     try (do
            label <- reference
            src <- source 
-- 
cgit v1.2.3