@@ -498,6 +498,11 @@ inlineCommands = M.fromList $
498 , ("textit", extractSpaces emph <$> tok)
498 , ("textit", extractSpaces emph <$> tok)
499 , ("textsl", extractSpaces emph <$> tok)
499 , ("textsl", extractSpaces emph <$> tok)
500 , ("textsc", extractSpaces smallcaps <$> tok)
500 , ("textsc", extractSpaces smallcaps <$> tok)
501+ , ("textsf", extractSpaces (spanWith ("",["sans-serif"],[])) <$> tok)
502+ , ("textmd", extractSpaces (spanWith ("",["medium"],[])) <$> tok)
503+ , ("textrm", extractSpaces (spanWith ("",["roman"],[])) <$> tok)
504+ , ("textup", extractSpaces (spanWith ("",["upright"],[])) <$> tok)
505+ , ("texttt", (code . stringify . toList) <$> tok)
501 , ("sout", extractSpaces strikeout <$> tok)
506 , ("sout", extractSpaces strikeout <$> tok)
502 , ("textsuperscript", extractSpaces superscript <$> tok)
507 , ("textsuperscript", extractSpaces superscript <$> tok)
503 , ("textsubscript", extractSpaces subscript <$> tok)
508 , ("textsubscript", extractSpaces subscript <$> tok)
@@ -582,7 +587,6 @@ inlineCommands = M.fromList $
582 , ("verb", doverb)
587 , ("verb", doverb)
583 , ("lstinline", skipopts *> doverb)
588 , ("lstinline", skipopts *> doverb)
584 , ("Verb", doverb)
589 , ("Verb", doverb)
585− , ("texttt", (code . stringify . toList) <$> tok)
586 , ("url", (unescapeURL <$> braced) >>= \url ->
590 , ("url", (unescapeURL <$> braced) >>= \url ->
587 pure (link url "" (str url)))
591 pure (link url "" (str url)))
588 , ("href", (unescapeURL <$> braced <* optional sp) >>= \url ->
592 , ("href", (unescapeURL <$> braced <* optional sp) >>= \url ->