Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Docx Reader: Single underlines are "emph"

Browse source 
All other underlines are ignored.
This commit is contained in:
Jesse Rosenthal 2014-07-31 18:44:41 -04:00
parent 0565a81676
commit 57939a9282
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Readers/Docx.hs
View file

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