From: sabadev <saba@sabadev.xyz>
Date: Sat, 27 Mar 2021 15:14:20 +0000 (-0400)
Subject: Added the tabindex attribute to every <pre> tag.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=25f3b26bc22635fee65f484ffe45a04a626773a3;p=website.git

Added the tabindex attribute to every <pre> tag.
---

diff --git a/src/Sanitize.hs b/src/Sanitize.hs
index 734939f..b06c203 100644
--- a/src/Sanitize.hs
+++ b/src/Sanitize.hs
@@ -8,4 +8,5 @@ sanitizeHtml :: Html () -> Html ()
 sanitizeHtml = toHtmlRaw . renderTree . transformTree sanitizeTree . parseTree . renderText
 
 sanitizeTree :: TagTree T.Text -> [TagTree T.Text]
-sanitizeTree = pure
+sanitizeTree (TagBranch "pre" attributes children) = [TagBranch "pre" (("tabindex", "0") : attributes) children]
+sanitizeTree x = [x]