aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-20 21:51:29 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-20 21:55:30 +0100
commit48c88d566d19683a7d5b63f88c8b4487234e3712 (patch)
tree1ae336f35247b25c5b79b1a08b937e2341f93f18 /src/Text
parent2d94d4833290692f1673b83a8068ac466cc77619 (diff)
downloadpandoc-48c88d566d19683a7d5b63f88c8b4487234e3712.tar.gz
Add `space_in_atx_header` extension.
This is enabled by default in pandoc and GitHub markdown but not the other flavors. This requirse a space between the opening #'s and the header text in ATX headers (as CommonMark does but many other implementations do not). This is desirable to avoid falsely capturing things ilke #hashtag or #5 Closes #3512.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Extensions.hs3
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs1
2 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Extensions.hs b/src/Text/Pandoc/Extensions.hs
index b543d489f..54f38f4a0 100644
--- a/src/Text/Pandoc/Extensions.hs
+++ b/src/Text/Pandoc/Extensions.hs
@@ -112,6 +112,7 @@ data Extension =
| Ext_intraword_underscores -- ^ Treat underscore inside word as literal
| Ext_blank_before_blockquote -- ^ Require blank line before a blockquote
| Ext_blank_before_header -- ^ Require blank line before a header
+ | Ext_space_in_atx_header -- ^ Require space between # and header text
| Ext_strikeout -- ^ Strikeout using ~~this~~ syntax
| Ext_superscript -- ^ Superscript using ^this^ syntax
| Ext_subscript -- ^ Subscript using ~this~ syntax
@@ -168,6 +169,7 @@ pandocExtensions = extensionsFromList
, Ext_intraword_underscores
, Ext_blank_before_blockquote
, Ext_blank_before_header
+ , Ext_space_in_atx_header
, Ext_strikeout
, Ext_superscript
, Ext_subscript
@@ -223,6 +225,7 @@ githubMarkdownExtensions = extensionsFromList
, Ext_ascii_identifiers
, Ext_backtick_code_blocks
, Ext_autolink_bare_uris
+ , Ext_space_in_atx_header
, Ext_intraword_underscores
, Ext_strikeout
, Ext_hard_line_breaks
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 169872391..0cc10c1d4 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -534,6 +534,7 @@ atxHeader = try $ do
level <- atxChar >>= many1 . char >>= return . length
notFollowedBy $ guardEnabled Ext_fancy_lists >>
(char '.' <|> char ')') -- this would be a list
+ guardDisabled Ext_space_in_atx_header <|> notFollowedBy nonspaceChar
skipSpaces
(text, raw) <- withRaw $
trimInlinesF . mconcat <$> many (notFollowedBy atxClosing >> inline)