diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-11-08 17:17:19 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-11-08 17:17:19 -0800 |
| commit | 237c10992e4cf22a8dd64b385fc44168468021c6 (patch) | |
| tree | 07cef5a4395b99661cc0d2956cadefe0c5d8e896 | |
| parent | c423dbb5a34c2d1195020e0f0ca3aae883d0749b (diff) | |
| parent | e3b4844bd77ef2cc0a288c0b5378e2569468c618 (diff) | |
| download | pandoc-237c10992e4cf22a8dd64b385fc44168468021c6.tar.gz | |
Merge pull request #2505 from tarleb/org-header-markup-fix
Org reader: fix markup parsing in headers
| -rw-r--r-- | src/Text/Pandoc/Readers/Org.hs | 2 | ||||
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 11 |
2 files changed, 12 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org.hs b/src/Text/Pandoc/Readers/Org.hs index d27acea2a..6e14febeb 100644 --- a/src/Text/Pandoc/Readers/Org.hs +++ b/src/Text/Pandoc/Readers/Org.hs @@ -731,7 +731,7 @@ headerTags = try $ headerStart :: OrgParser Int headerStart = try $ - (length <$> many1 (char '*')) <* many1 (char ' ') + (length <$> many1 (char '*')) <* many1 (char ' ') <* updateLastPreCharPos -- Don't use (or need) the reader wrapper here, we want hline to be diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index d318ea92c..f721618e5 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -540,6 +540,17 @@ tests = "* This: is not: tagged" =?> headerWith ("this-is-not-tagged", [], []) 1 "This: is not: tagged" + , "Header starting with strokeout text" =: + unlines [ "foo" + , "" + , "* +thing+ other thing" + ] =?> + mconcat [ para "foo" + , headerWith ("thing-other-thing", [], []) + 1 + ((strikeout "thing") <> " other thing") + ] + , "Comment Trees" =: unlines [ "* COMMENT A comment tree" , " Not much going on here" |