@@ -866,6 +866,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
866 , ("slash", lit "/")
866 , ("slash", lit "/")
867 , ("textbf", extractSpaces strong <$> tok)
867 , ("textbf", extractSpaces strong <$> tok)
868 , ("textnormal", extractSpaces (spanWith ("",["nodecor"],[])) <$> tok)
868 , ("textnormal", extractSpaces (spanWith ("",["nodecor"],[])) <$> tok)
869+ , ("underline", underlineSpan <$> tok)
869 , ("ldots", lit "…")
870 , ("ldots", lit "…")
870 , ("vdots", lit "\8942")
871 , ("vdots", lit "\8942")
871 , ("dots", lit "…")
872 , ("dots", lit "…")
@@ -1122,6 +1123,10 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
1122 , ("foreignlanguage", foreignlanguage)
1123 , ("foreignlanguage", foreignlanguage)
1123 -- include
1124 -- include
1124 , ("input", include "input")
1125 , ("input", include "input")
1127+ , ("ul", underlineSpan <$> tok)
1129+ , ("uline", underlineSpan <$> tok)
1125 -- plain tex stuff that should just be passed through as raw tex
1130 -- plain tex stuff that should just be passed through as raw tex
1126 , ("ifdim", ifdim)
1131 , ("ifdim", ifdim)