From 0f4599c4df2291fe982a36d5df07983c860b89f9 Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Mon, 7 Oct 2024 17:24:05 +0600
Subject: html: escape property values

---
 vendor/html.fnl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'vendor/html.fnl')

diff --git a/vendor/html.fnl b/vendor/html.fnl
index 689f416..1be5d5d 100644
--- a/vendor/html.fnl
+++ b/vendor/html.fnl
@@ -14,7 +14,7 @@
   (assert (= (type attrs) "table") (.. "Missing attrs table: " tag-name))
   (let [attr-str (table.concat (icollect [k v (pairs attrs)]
                                  (if (= v true) k
-                                     (.. k "=\"" v"\""))) " ")]
+                                     (.. k "=\"" (escape v)"\""))) " ")]
     (.. "<" tag-name " " attr-str">")))
 
 (fn render [document allow-no-escape?]
-- 
cgit v1.2.3