diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 7 |
1 files changed, 7 insertions, 0 deletions
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 |