@@ -1245,6 +1245,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList $
1245 , ("textup", extractSpaces (spanWith ("",["upright"],[])) <$> tok)
1245 , ("textup", extractSpaces (spanWith ("",["upright"],[])) <$> tok)
1246 , ("texttt", ttfamily)
1246 , ("texttt", ttfamily)
1247 , ("sout", extractSpaces strikeout <$> tok)
1247 , ("sout", extractSpaces strikeout <$> tok)
1248+ , ("alert", skipangles >> spanWith ("",["alert"],[]) <$> tok) -- beamer
1248 , ("lq", return (str "‘"))
1249 , ("lq", return (str "‘"))
1249 , ("rq", return (str "’"))
1250 , ("rq", return (str "’"))
1250 , ("textquoteleft", return (str "‘"))
1251 , ("textquoteleft", return (str "‘"))