@@ -89,6 +89,10 @@ expToInlines (ESubsup x y z) = do
8989expToInlines (EDown x y) = expToInlines (ESub x y)
9090expToInlines (EUp x y) = expToInlines (ESuper x y)
9191expToInlines (EDownup x y z) = expToInlines (ESubsup x y z)
92−expToInlines (EText _ x) = Just [Emph [Str x]]
92+expToInlines (EText "normal" x) = Just [Str x]
93+expToInlines (EText "bold" x) = Just [Strong [Str x]]
94+expToInlines (EText "monospace" x) = Just [Code x]
95+expToInlines (EText "italic" x) = Just [Emph [Str x]]
96+expToInlines (EText _ x) = Just [Str x]
9397expToInlines _ = Nothing
9498