aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAmneesh Singh <[email protected]>2023-08-26 12:33:21 +0530
committerJohn MacFarlane <[email protected]>2023-08-26 17:16:34 -0700
commite4467ba10c6d793ffe4b598719d3ba882240db97 (patch)
tree7d41d5264d739f809080435d2cc64307b6990ab9 /src
parentf7035d080c617cda3804a7d0932da8283a5c681c (diff)
Org reader: allow escaping commas in macro arguments
Signed-off-by: Amneesh Singh <[email protected]>
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Org/Inlines.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Inlines.hs b/src/Text/Pandoc/Readers/Org/Inlines.hs
index dd27ad91a..1cb945c1e 100644
--- a/src/Text/Pandoc/Readers/Org/Inlines.hs
+++ b/src/Text/Pandoc/Readers/Org/Inlines.hs
@@ -892,7 +892,8 @@ macro = try $ do
updateState $ \s -> s { orgStateMacroDepth = recursionDepth }
return res
where
- argument = manyChar $ notFollowedBy eoa *> noneOf ","
+ argument = manyChar $ notFollowedBy eoa *> (escapedComma <|> noneOf ",")
+ escapedComma = try $ char '\\' *> oneOf ",\\"
eoa = string ")}}}"
smart :: PandocMonad m => OrgParser m (F Inlines)