From 6a329fac2782a4dde496b22ae7c2def472800c5e Mon Sep 17 00:00:00 2001
From: Pablo Alba <pablo.alba@kaleidos.net>
Date: Wed, 28 Sep 2022 13:16:36 +0200
Subject: [PATCH] :sparkles: Fix html-lang-missing accesibility issues

---
 frontend/src/app/util/dom.cljs  | 4 ++++
 frontend/src/app/util/i18n.cljs | 1 +
 2 files changed, 5 insertions(+)

diff --git a/frontend/src/app/util/dom.cljs b/frontend/src/app/util/dom.cljs
index 26c361a32a..d24e681afe 100644
--- a/frontend/src/app/util/dom.cljs
+++ b/frontend/src/app/util/dom.cljs
@@ -53,6 +53,10 @@
   [^string title]
   (set! (.-title globals/document) title))
 
+(defn set-html-lang!
+  [^string lang]
+  (.setAttribute (.querySelector js/document "html") "lang" lang))
+
 (defn set-html-theme-color
   [^string color scheme]
   (let [meta-node (.querySelector js/document "meta[name='theme-color']")]
diff --git a/frontend/src/app/util/i18n.cljs b/frontend/src/app/util/i18n.cljs
index c031ee9ecf..42984b4241 100644
--- a/frontend/src/app/util/i18n.cljs
+++ b/frontend/src/app/util/i18n.cljs
@@ -105,6 +105,7 @@
 (add-watch locale ::browser-font
            (fn [_ _ _ locale]
              (log/info :hint "locale changed" :locale locale)
+             (dom/set-html-lang! locale)
              (let [node  (dom/get-body)]
                (if (or (= locale "fa")
                        (= locale "ar"))