diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/SelfContained.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs index 54d49127a..ddb44385a 100644 --- a/src/Text/Pandoc/SelfContained.hs +++ b/src/Text/Pandoc/SelfContained.hs @@ -185,6 +185,10 @@ convertTags (t@(TagOpen tagname as):ts) case T.uncons x of Just ('#', x') -> (k, "#" <> svgid <> "_" <> x') _ -> (k, x) + addIdPrefix ("clip-path", x) = ("clip-path", + case T.stripPrefix "url(#" x of + Just x' -> "url(#" <> svgid <> "_" <> x' + Nothing -> x) addIdPrefix kv = kv let ensureUniqueId (TagOpen tname ats) = TagOpen tname (map addIdPrefix ats) |