@@ -219,7 +219,8 @@ runStyleToContainers rPr =
219219 , if isStrike rPr then (Just Strikeout) else Nothing
220220 , if isSuperScript rPr then (Just Superscript) else Nothing
221221 , if isSubScript rPr then (Just Subscript) else Nothing
222− , rUnderline rPr >>= (\f -> Just $ Span ("", [], [("underline", f)]))
222+ , rUnderline rPr >>=
223+ (\f -> if f == "single" then (Just Emph) else Nothing)
223224 ]
224225 in
225226 classContainers ++ formatters