aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <[email protected]>2025-05-11 15:49:56 -0700
committerJohn MacFarlane <[email protected]>2025-05-11 15:49:56 -0700
commit1ce62c95f298812ff463ea05ecbe8c53ae375430 (patch)
treef2c2c6993c531f6093a7ab2961ddc19a7b02ea4a
parent3fe70cb7a97b7fe8c51a2898cbcbe12db3bdd21f (diff)
T.P.Readers.LaTeX.Math: export `inlineEnvironmentNames`.
Internal module, not a change to the public API.
-rw-r--r--src/Text/Pandoc/Readers/LaTeX/Math.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX/Math.hs b/src/Text/Pandoc/Readers/LaTeX/Math.hs
index 44de688d5..81a1d9831 100644
--- a/src/Text/Pandoc/Readers/LaTeX/Math.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/Math.hs
@@ -2,6 +2,7 @@
module Text.Pandoc.Readers.LaTeX.Math
( dollarsMath
, inlineEnvironments
+ , inlineEnvironmentNames
, inlineEnvironment
, mathInline
, mathDisplay
@@ -80,6 +81,10 @@ inlineEnvironment = try $ do
name <- untokenize <$> braced
M.findWithDefault mzero name inlineEnvironments
+inlineEnvironmentNames :: [Text]
+inlineEnvironmentNames =
+ M.keys (inlineEnvironments :: M.Map Text (LP PandocPure Inlines))
+
inlineEnvironments :: PandocMonad m => M.Map Text (LP m Inlines)
inlineEnvironments = M.fromList [
("displaymath", mathEnvWith id Nothing "displaymath")