mirror of
https://github.com/jgm/pandoc.git
synced 2026-09-27 09:55:57 +00:00
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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user