diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-17 17:04:14 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-17 17:04:14 -0400 |
| commit | 9da7b0946eed1ad5c7a781cbf765cc6fcd67afd9 (patch) | |
| tree | 0eb8a413f20b37c29a6552770d21cd3cbadc3622 /src/Text/Pandoc | |
| parent | 15ce28b8caa5f3e71d518a231cc87a319a314400 (diff) | |
| download | pandoc-9da7b0946eed1ad5c7a781cbf765cc6fcd67afd9.tar.gz | |
Docx reader: Add "Hyperlink" to blacklisted styles.
This is the only one so far. We'll add others as they show up.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 5e00e9996..653439de1 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -229,12 +229,12 @@ parPartToString (ExternalHyperLink _ runs) = concatMap runToString runs parPartToString _ = "" blacklistedCharStyles :: [String] -blacklistedCharStyles = [] +blacklistedCharStyles = ["Hyperlink"] resolveDependentRunStyle :: RunStyle -> RunStyle resolveDependentRunStyle rPr | Just (s, _) <- rStyle rPr, s `elem` blacklistedCharStyles = - rPr{rStyle = Nothing} + rPr | Just (_, cs) <- rStyle rPr = let rPr' = resolveDependentRunStyle cs in |