From 2230371304f299ca7333af8ad0ee7bcd099a4aa0 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Sat, 9 Sep 2017 11:51:36 +0300 Subject: Muse reader: debug inline code markup --- src/Text/Pandoc/Readers/Muse.hs | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 2454057fa..3b089772f 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -575,13 +575,6 @@ enclosedInlines :: (PandocMonad m, Show a, Show b) enclosedInlines start end = try $ trimInlinesF . mconcat <$> enclosed start end inline -verbatimBetween :: PandocMonad m - => Char - -> MuseParser m String -verbatimBetween c = try $ do - char c - many1Till anyChar $ char c - inlineTag :: PandocMonad m => (Inlines -> Inlines) -> String @@ -617,9 +610,13 @@ code = try $ do sp <- if sourceColumn pos == 1 then pure mempty else skipMany1 spaceChar >> pure B.space - cd <- verbatimBetween '=' + char '=' + contents <- many1Till (noneOf "\n\r" <|> (newline <* notFollowedBy newline)) $ char '=' + guard $ not $ null contents + guard $ head contents `notElem` " \t\n" + guard $ last contents `notElem` " \t\n" notFollowedBy nonspaceChar - return $ return (sp B.<> B.code cd) + return $ return (sp B.<> B.code contents) codeTag :: PandocMonad m => MuseParser m (F Inlines) codeTag = do -- cgit v1.2.3