@@ -1297,12 +1297,26 @@ getRawCommand name txt = do
1297 void $ count 4 braced
1297 void $ count 4 braced
1298 "def" ->
1298 "def" ->
1299 void $ manyTill anyTok braced
1299 void $ manyTill anyTok braced
1300− _ -> do
1300+ _ | isFontSizeCommand name -> return ()
1301− skipopts
1302+ skipopts
1302− option "" (try (optional sp *> dimenarg))
1303+ option "" (try (optional sp *> dimenarg))
1303− void $ many braced
1304+ void $ many braced
1304 return $ T.unpack (txt <> untokenize rawargs)
1305 return $ T.unpack (txt <> untokenize rawargs)
1307+isFontSizeCommand :: Text -> Bool
1308+isFontSizeCommand "tiny" = True
1309+isFontSizeCommand "scriptsize" = True
1310+isFontSizeCommand "footnotesize" = True
1311+isFontSizeCommand "small" = True
1312+isFontSizeCommand "normalsize" = True
1313+isFontSizeCommand "large" = True
1314+isFontSizeCommand "Large" = True
1315+isFontSizeCommand "LARGE" = True
1316+isFontSizeCommand "huge" = True
1317+isFontSizeCommand "Huge" = True
1318+isFontSizeCommand _ = False
1306isBlockCommand :: Text -> Bool
1320isBlockCommand :: Text -> Bool
1307isBlockCommand s =
1321isBlockCommand s =
1308 s `M.member` (blockCommands :: M.Map Text (LP PandocPure Blocks))
1322 s `M.member` (blockCommands :: M.Map Text (LP PandocPure Blocks))