diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-07-31 18:44:41 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-07-31 18:44:41 -0400 |
| commit | 57939a9282a4b339a3d3db3fd9fd7835701c8e39 (patch) | |
| tree | 7f00544e8223821fc26721b21c5b81f9e75687cc /src/Text/Pandoc/Readers/Docx.hs | |
| parent | 0565a81676e1f5b033253ddcf9da4f691d09b7bb (diff) | |
| download | pandoc-57939a9282a4b339a3d3db3fd9fd7835701c8e39.tar.gz | |
Docx Reader: Single underlines are "emph"
All other underlines are ignored.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 7a89c0b04..86ce62ced 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -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 |