@@ -1642,6 +1642,8 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
16421642 , ("Rn", romanNumeralLower)
16431643 -- babel
16441644 , ("foreignlanguage", foreignlanguage)
1645+ -- include
1646+ , ("input", include "input")
16451647 ]
16461648
16471649makeUppercase :: Inlines -> Inlines
@@ -1917,7 +1919,6 @@ end_ t = try (do
19171919preamble :: PandocMonad m => LP m Blocks
19181920preamble = mempty <$ many preambleBlock
19191921 where preambleBlock = spaces1
1920− <|> void include
19211922 <|> void macroDef
19221923 <|> void blockCommand
19231924 <|> void braced
@@ -1930,11 +1931,8 @@ paragraph = do
19301931 then return mempty
19311932 else return $ para x
19321933
1933−include :: PandocMonad m => LP m Blocks
1934−include = do
1935− (Tok _ (CtrlSeq name) _) <-
1936− controlSeq "include" <|> controlSeq "input" <|>
1937− controlSeq "subfile" <|> controlSeq "usepackage"
1934+include :: (PandocMonad m, Monoid a) => Text -> LP m a
1935+include name = do
19381936 skipMany opt
19391937 fs <- (map (T.unpack . removeDoubleQuotes . T.strip) . T.splitOn "," .
19401938 untokenize) <$> braced
@@ -2251,6 +2249,11 @@ blockCommands = M.fromList
22512249 -- LaTeX colors
22522250 , ("textcolor", coloredBlock "color")
22532251 , ("colorbox", coloredBlock "background-color")
2252+ -- include
2253+ , ("include", include "include")
2254+ , ("input", include "input")
2255+ , ("subfile", include "subfile")
2256+ , ("usepackage", include "usepackage")
22542257 ]
22552258
22562259
@@ -2689,7 +2692,6 @@ block :: PandocMonad m => LP m Blocks
26892692block = do
26902693 res <- (mempty <$ spaces1)
26912694 <|> environment
2692− <|> include
26932695 <|> macroDef
26942696 <|> blockCommand
26952697 <|> paragraph