Revert "Improve parsing of raw LaTeX blocks..."

This reverts commit 22863a3e12.
This commit is contained in:
John MacFarlane
2025-11-04 14:09:37 +01:00
parent 97f7a93460
commit 69479fa490
+2 -7
View File
@@ -144,17 +144,12 @@ rawLaTeXBlock = do
toks <- getInputTokens
snd <$> (
rawLaTeXParser toks
(skipMany1 (try
(skipMany (whitespace <|> newlineTok)
*> (macroDef (const ())
<|> void (controlSeq "makeatletter" <|>
controlSeq "mateatother")))
<|>
(macroDef (const mempty) <|>
do choice (map controlSeq
["include", "input", "subfile", "usepackage"])
skipMany opt
braced
return mempty)) blocks
return mempty) blocks
<|> rawLaTeXParser toks
(void (environment <|> blockCommand))
(mconcat <$> many (block <|> beginOrEndCommand)))