git.iko.soy/typeable/pandoc
on master help sign in
Docx Reader: Single underlines are "emph"
57939a9Jesse Rosenthal
src/Text/Pandoc/Readers/Docx.hs+2−1
compare with master
unifiedsplit
@@ -219,7 +219,8 @@ runStyleToContainers rPr =
219 , if isStrike rPr then (Just Strikeout) else Nothing
219 , if isStrike rPr then (Just Strikeout) else Nothing
220 , if isSuperScript rPr then (Just Superscript) else Nothing
220 , if isSuperScript rPr then (Just Superscript) else Nothing
221 , if isSubScript rPr then (Just Subscript) else Nothing
221 , 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)
223 ]
224 ]
224 in
225 in
225 classContainers ++ formatters
226 classContainers ++ formatters