aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-07-29 08:38:46 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-07-29 08:38:46 -0700
commit3c06e2692a8fd7307658498b44401868e1059d61 (patch)
treed092775542cef9e206cb5bf320f3ed3bde8d6df8 /src/Text
parent1dde96e41879dd2ae39e8e79f8c77914f1885947 (diff)
downloadpandoc-3c06e2692a8fd7307658498b44401868e1059d61.tar.gz
Markdown atx headers: Allow `.` or `)` after `#` if no `fancy_lists`.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 28f69eae4..076706b4e 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -494,7 +494,8 @@ addToHeaderList (ident,classes,kvs) text = do
atxHeader :: MarkdownParser (F Blocks)
atxHeader = try $ do
level <- many1 (char '#') >>= return . length
- notFollowedBy (char '.' <|> char ')') -- this would be a list
+ notFollowedBy $ guardEnabled Ext_fancy_lists >>
+ (char '.' <|> char ')') -- this would be a list
skipSpaces
text <- trimInlinesF . mconcat <$> many (notFollowedBy atxClosing >> inline)
attr <- atxClosing