From d5c13dd4383e4809c4a6e935398a4bfa6e1b04e5 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Tue, 15 Oct 2019 01:55:32 +0300 Subject: Muse reader: do not split series of asterisks into symbols and emphasis Fixes #5821 --- src/Text/Pandoc/Readers/Muse.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 104fa914f..8a0456981 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -755,6 +755,7 @@ inline' = whitespace <|> mathTag <|> inlineLiteralTag <|> str + <|> asterisks <|> symbol "inline" @@ -909,6 +910,12 @@ inlineLiteralTag = try $ fmap pure $ B.rawInline str :: PandocMonad m => MuseParser m (F Inlines) str = return . B.str <$> many1 alphaNum <* updateLastStrPos +-- | Consume asterisks that were not used as emphasis opening. +-- This prevents series of asterisks from being split into +-- literal asterisk and emphasis opening. +asterisks :: PandocMonad m => MuseParser m (F Inlines) +asterisks = pure . B.str <$> many1 (char '*') + symbol :: PandocMonad m => MuseParser m (F Inlines) symbol = pure . B.str . pure <$> nonspaceChar -- cgit v1.2.3