From 2dde57569a13edd7fcb79dc80c8296b18560d88a Mon Sep 17 00:00:00 2001 From: Brian Leung Date: Thu, 17 Aug 2023 04:47:32 -0700 Subject: 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. --- src/Text/Pandoc/Readers/Org/BlockStarts.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3