diff options
| author | John MacFarlane <[email protected]> | 2023-11-25 00:03:53 -0500 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2023-11-25 00:03:53 -0500 |
| commit | 6c4f938192fecef999a22a93a8d3bca02583aff9 (patch) | |
| tree | 59bf7fcff38d78d2e7d67ed7c760d79c0185c554 /src | |
| parent | a2a0f73eb816917839eeffad9e487394ebd88443 (diff) | |
Shared.renderTags': allow svg path element to be minimized.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 95828da9a..75cc442c5 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -777,7 +777,8 @@ formatCode attr = B.fromList . walk fmt . B.toList renderTags' :: [Tag T.Text] -> T.Text renderTags' = renderTagsOptions renderOptions{ optMinimize = matchTags ["hr", "br", "img", - "meta", "link", "col", "use"] + "meta", "link", "col", + "use", "path"] , optRawTag = matchTags ["script", "style"] } where matchTags tags = flip elem tags . T.toLower |