@@ -717,10 +717,8 @@ rawLaTeXBlock = snd <$> try (withRaw (environment <|> blockCommand))
718rawLaTeXInline :: Parser [Char] ParserState Inline
718rawLaTeXInline :: Parser [Char] ParserState Inline
719rawLaTeXInline = do
719rawLaTeXInline = do
720− (res, raw) <- withRaw inlineCommand
720+ raw <- (snd <$> withRaw inlineCommand) <|> (snd <$> withRaw blockCommand)
722− then return (Str "")
723− else RawInline "latex" <$> (applyMacros' raw)
721+ RawInline "latex" <$> applyMacros' raw
725environments :: M.Map String (LP Blocks)
723environments :: M.Map String (LP Blocks)
726environments = M.fromList
724environments = M.fromList