@@ -1264,6 +1264,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList $
12641264 , ("cref", rawInlineOr "cref" $ doref "ref") -- from cleveref.sty
12651265 , ("vref", rawInlineOr "vref" $ doref "ref+page") -- from varioref.sty
12661266 , ("eqref", rawInlineOr "eqref" $ doref "eqref") -- from amsmath.sty
1267+ , ("lettrine", optional opt >> extractSpaces (spanWith ("",["lettrine"],[])) <$> tok)
12671268 , ("(", mathInline . toksToString <$> manyTill anyTok (controlSeq ")"))
12681269 , ("[", mathDisplay . toksToString <$> manyTill anyTok (controlSeq "]"))
12691270 , ("ensuremath", mathInline . toksToString <$> braced)
@@ -1320,7 +1321,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList $
13201321 , ("i", lit "i")
13211322 , ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState
13221323 guard $ not inTableCell
1323− optional (bracketed inline)
1324+ optional opt
13241325 spaces))
13251326 , (",", lit "\8198")
13261327 , ("@", pure mempty)
@@ -1750,7 +1751,7 @@ include = do
17501751 (Tok _ (CtrlSeq name) _) <-
17511752 controlSeq "include" <|> controlSeq "input" <|>
17521753 controlSeq "subfile" <|> controlSeq "usepackage"
1753− skipMany $ bracketed inline -- skip options
1754+ skipMany opt
17541755 fs <- (map (T.unpack . removeDoubleQuotes . T.strip) . T.splitOn "," .
17551756 untokenize) <$> braced
17561757 let fs' = if name == "usepackage"
@@ -2355,7 +2356,7 @@ hline = try $ do
23552356 controlSeq "endhead" <|>
23562357 controlSeq "endfirsthead"
23572358 spaces
2358− optional $ bracketed inline
2359+ optional opt
23592360 return ()
23602361
23612362lbreak :: PandocMonad m => LP m Tok