diff options
| author | John MacFarlane <[email protected]> | 2025-10-28 22:41:54 +0100 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-10-28 22:49:38 +0100 |
| commit | d353e1d11cb582706d9e2e00fa2216cc77d1f175 (patch) | |
| tree | 14db5f599dc28a614dcef8736c7fc060474a7d24 /src | |
| parent | 5ba0dbe976657b3dbb8890ce7cd71a2f454948c1 (diff) | |
LaTeX reader: Moved some entries from environments to blockCommands.
They are not environments! `ifstrequal`, `iftoggle`, etc.
ifstrequal, iftoggle, etc. -- these are not environments,
and they are handled under inlineCommands.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index a08b76d5e..68714954c 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -1025,6 +1025,12 @@ blockCommands = M.fromList , ("epigraph", epigraph) -- alignment , ("raggedright", pure mempty) + -- etoolbox + , ("ifstrequal", ifstrequal) + , ("newtoggle", braced >>= newToggle) + , ("toggletrue", braced >>= setToggle True) + , ("togglefalse", braced >>= setToggle False) + , ("iftoggle", try $ ifToggle >> block) ] skipSameFileToks :: PandocMonad m => LP m () @@ -1068,12 +1074,7 @@ environments = M.union (tableEnvironments block inline) $ , ("ly", rawVerbEnv "ly") -- amsthm , ("proof", proof blocks opt) - -- etoolbox - , ("ifstrequal", ifstrequal) - , ("newtoggle", braced >>= newToggle) - , ("toggletrue", braced >>= setToggle True) - , ("togglefalse", braced >>= setToggle False) - , ("iftoggle", try $ ifToggle >> block) + -- other , ("CSLReferences", braced >> braced >> env "CSLReferences" blocks) , ("otherlanguage", env "otherlanguage" otherlanguageEnv) ] |