diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-07-29 08:38:46 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-07-29 08:38:46 -0700 |
| commit | 3c06e2692a8fd7307658498b44401868e1059d61 (patch) | |
| tree | d092775542cef9e206cb5bf320f3ed3bde8d6df8 | |
| parent | 1dde96e41879dd2ae39e8e79f8c77914f1885947 (diff) | |
| download | pandoc-3c06e2692a8fd7307658498b44401868e1059d61.tar.gz | |
Markdown atx headers: Allow `.` or `)` after `#` if no `fancy_lists`.
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 3 |
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 |