lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-22 07:25:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

htmlAttrs: escape id and class attributes, like the others.

Browse Source
This commit is contained in:
John MacFarlane
2026-09-07 09:29:18 -07:00
parent b724efe93c
commit f0314bb112
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Shared.hs
+3 -2
View File
@@ -204,10 +204,11 @@ htmlAttrs :: HasChars a => Attr -> Doc a
htmlAttrs (ident, classes, kvs) = addSpaceIfNotEmpty (hsep [
if T.null ident
then empty
else "id=" <> doubleQuotes (text $ T.unpack ident)
else "id=" <> doubleQuotes (text $ T.unpack (escapeStringForXML ident))
,if null classes
then empty
else "class=" <> doubleQuotes (text $ T.unpack (T.unwords classes))
else "class=" <> doubleQuotes
(text $ T.unpack . escapeStringForXML $ T.unwords classes)
,hsep (map (\(k,v) -> formatKey k <> "=" <>
doubleQuotes (text $ T.unpack (escapeStringForXML v))) kvs)
])