@@ -866,6 +866,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
866866 , ("slash", lit "/")
867867 , ("textbf", extractSpaces strong <$> tok)
868868 , ("textnormal", extractSpaces (spanWith ("",["nodecor"],[])) <$> tok)
869+ , ("underline", underlineSpan <$> tok)
869870 , ("ldots", lit "…")
870871 , ("vdots", lit "\8942")
871872 , ("dots", lit "…")
@@ -1122,6 +1123,10 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
11221123 , ("foreignlanguage", foreignlanguage)
11231124 -- include
11241125 , ("input", include "input")
1126+ -- soul package
1127+ , ("ul", underlineSpan <$> tok)
1128+ -- ulem package
1129+ , ("uline", underlineSpan <$> tok)
11251130 -- plain tex stuff that should just be passed through as raw tex
11261131 , ("ifdim", ifdim)
11271132 ]