aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2006-12-16 19:43:00 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2006-12-16 19:43:00 +0000
commit7c319e55ff641b57688297c5e67169ec316235b1 (patch)
tree3cad75c4102b6c9925480f7c3dd62f9cc4f017b9 /src/Text/Pandoc
parent4ab3eb300360688004a597417f6ce79d828dcf91 (diff)
downloadpandoc-7c319e55ff641b57688297c5e67169ec316235b1.tar.gz
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
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs6
1 files changed, 3 insertions, 3 deletions
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