diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index b619a3a89..6aa0f1205 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -511,11 +511,11 @@ doverb = do _ -> mzero withVerbatimMode $ (code . T.unpack . untokenize) <$> - manyTill (verbTok marker) (symbol marker) + manyTill (notFollowedBy newlineTok >> verbTok marker) (symbol marker) verbTok :: PandocMonad m => Char -> LP m Tok verbTok stopchar = do - t@(Tok pos toktype txt) <- satisfyTok (not . isNewlineTok) + t@(Tok pos toktype txt) <- anyTok case T.findIndex (== stopchar) txt of Nothing -> return t Just i -> do @@ -545,9 +545,13 @@ doinlinecode classes = do _ -> mzero let stopchar = if marker == '{' then '}' else marker withVerbatimMode $ - (codeWith ("",classes,[]) . T.unpack . untokenize) <$> + (codeWith ("",classes,[]) . map nlToSpace . T.unpack . untokenize) <$> manyTill (verbTok stopchar) (symbol stopchar) +nlToSpace :: Char -> Char +nlToSpace '\n' = ' ' +nlToSpace x = x + keyval :: PandocMonad m => LP m (String, String) keyval = try $ do Tok _ Word key <- satisfyTok isWordTok |