fix: improve filename escaping in DecoratedCodeBlock renderer

Author: mcanouil

src/resources/filters/customnodes/decoratedcodeblock.lua

@@ -197,12 +197,13 @@ _quarto.ast.add_renderer("DecoratedCodeBlock",
       CodeBlock = render_folded_block
     }) or pandoc.Blocks({})
     local blocks = pandoc.Blocks({})
-    local escaped = node.filename
-      :gsub('\\', '\\\\')
-      :gsub('"', '\\"')
-      :gsub('\n', '\\n')
-      :gsub('\r', '\\r')
-      :gsub('\t', '\\t')
+    local escaped = node.filename:gsub('[\\"\n\r\t]', {
+      ['\\'] = '\\\\',
+      ['"'] = '\\"',
+      ['\n'] = '\\n',
+      ['\r'] = '\\r',
+      ['\t'] = '\\t',
+    })
     blocks:insert(pandoc.RawBlock("typst",
       '#quarto-code-filename("' .. escaped .. '")['))
     blocks:extend(rendered)