@@ -678,6 +678,30 @@ withRaw parser = do
678678inBrackets :: Inlines -> Inlines
679679inBrackets x = str "[" <> x <> str "]"
680680
681+inlineEnvironment :: PandocMonad m => LP m Inlines
682+inlineEnvironment = try $ do
683+ controlSeq "begin"
684+ name <- untokenize <$> braced
685+ M.findWithDefault mzero name inlineEnvironments
686+
687+inlineEnvironments :: PandocMonad m => M.Map Text (LP m Inlines)
688+inlineEnvironments = M.fromList [
689+-- ("displaymath", mathEnvWith id Nothing "displaymath")
690+-- , ("math", math <$> mathEnv "math")
691+-- , ("equation", mathEnvWith id Nothing "equation")
692+-- , ("equation*", mathEnvWith id Nothing "equation*")
693+-- , ("gather", mathEnvWith id (Just "gathered") "gather")
694+-- , ("gather*", mathEnvWith id (Just "gathered") "gather*")
695+-- , ("multline", mathEnvWith id (Just "gathered") "multline")
696+-- , ("multline*", mathEnvWith id (Just "gathered") "multline*")
697+-- , ("eqnarray", mathEnvWith id (Just "aligned") "eqnarray")
698+-- , ("eqnarray*", mathEnvWith id (Just "aligned") "eqnarray*")
699+-- , ("align", mathEnvWith id (Just "aligned") "align")
700+-- , ("align*", mathEnvWith id (Just "aligned") "align*")
701+-- , ("alignat", mathEnvWith id (Just "aligned") "alignat")
702+-- , ("alignat*", mathEnvWith id (Just "aligned") "alignat*")
703+ ]
704+
681705inlineCommands :: PandocMonad m => M.Map Text (LP m Inlines)
682706inlineCommands = M.fromList $
683707 [ ("emph", extractSpaces emph <$> tok)
@@ -838,7 +862,7 @@ inlineCommands = M.fromList $
838862-- <|> citation "citeauthor" AuthorInText False)
839863-- , ("nocite", mempty <$ (citation "nocite" NormalCitation False >>=
840864-- addMeta "nocite"))
841−-- , ("hypertarget", braced >> tok)
865+ , ("hypertarget", braced >> tok)
842866-- -- siuntix
843867-- , ("SI", dosiunitx)
844868 -- hyphenat
@@ -897,7 +921,7 @@ inline = (mempty <$ comment)
897921 <|> (softbreak <$ endline)
898922 <|> inlineText
899923 <|> inlineCommand'
900− -- <|> inlineEnvironment
924+ <|> inlineEnvironment
901925 <|> inlineGroup
902926 <|> (symbol '-' *>
903927 option (str "-") (symbol '-' *>