diff options
| author | Brian Leung <[email protected]> | 2023-08-17 04:47:32 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2023-08-18 10:00:49 -0700 |
| commit | 2dde57569a13edd7fcb79dc80c8296b18560d88a (patch) | |
| tree | eed871fb0e6687ccc03a57d859df63b43729e4f6 /src | |
| parent | 6067e477acd933316ba23a1838aafffad872f627 (diff) | |
Org reader: allow example lines to end immediately after the colon
See the regexp at https://git.savannah.gnu.org/cgit/emacs/org-mode.git/tree/lisp/org-element.el?h=d1e4b9351941aa9241ab3aa0a34256376b7eca94#n2420.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/BlockStarts.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org/BlockStarts.hs b/src/Text/Pandoc/Readers/Org/BlockStarts.hs index f0cef406d..5a2667289 100644 --- a/src/Text/Pandoc/Readers/Org/BlockStarts.hs +++ b/src/Text/Pandoc/Readers/Org/BlockStarts.hs @@ -115,7 +115,7 @@ commentLineStart = try $ skipSpaces <* string "#" <* lookAhead (oneOf " \n") exampleLineStart :: Monad m => OrgParser m () -exampleLineStart = () <$ try (skipSpaces *> string ": ") +exampleLineStart = () <$ try (skipSpaces *> char ':' *> (void (char ' ') <|> lookAhead eol)) noteMarker :: Monad m => OrgParser m Text noteMarker = try $ do |