Docx reader: Add "Hyperlink" to blacklisted styles.
This is the only one so far. We'll add others as they show up.
This commit is contained in:
parent
15ce28b8ca
commit
9da7b0946e
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue