🐛 Fix incorrect handling of user lang selection.

That causes double loading of the http resources
in some circumstances.

frontend/src/app/main.cljs

@@ -79,11 +79,6 @@
 
 (defn init-ui
   []
-  (st/emit! (rt/initialize-router ui/routes)
-            (rt/initialize-history on-navigate))
-
-  (st/emit! (udu/fetch-profile)
-            (udu/fetch-user-teams))
   (mf/mount (mf/element ui/app) (dom/get-element "app"))
   (mf/mount (mf/element modal)  (dom/get-element "modal")))
 
@@ -92,7 +87,12 @@
   (i18n/init! cfg/translations)
   (theme/init! cfg/themes)
   (st/init)
-  (init-ui))
+  (init-ui)
+
+  (st/emit! (rt/initialize-router ui/routes)
+            (rt/initialize-history on-navigate)
+            (udu/fetch-profile)
+            (udu/fetch-user-teams)))
 
 (defn reinit
   []

frontend/src/app/main/ui/viewer.cljs

@@ -265,19 +265,19 @@
 
 (mf/defc viewer-page
   [{:keys [file-id page-id index token section] :as props}]
-
-  (mf/use-effect
-   (mf/deps file-id page-id token)
-   (st/emitf (dv/initialize props)))
-
   (let [data  (mf/deref refs/viewer-data)
         state (mf/deref refs/viewer-local)]
 
+    (mf/use-effect
+     (mf/deps file-id page-id token)
+     (fn []
+       (prn "viewer-page$use-effect")
+       (st/emit! (dv/initialize props))))
+
     (mf/use-effect
       (mf/deps (:file data))
-      #(when (:file data)
+      #(when-let [name (get-in data [:file :name])]
-         (dom/set-html-title (tr "title.viewer"
+         (dom/set-html-title (tr "title.viewer" name))))
-                                 (get-in data [:file :name])))))
 
     (when (and data state)
       [:& viewer-content

frontend/src/app/util/i18n.cljs

@@ -73,6 +73,7 @@
       (swap! storage assoc ::locale lang)
       (reset! locale lang))
     (do
+      (swap! storage dissoc ::locale)
       (reset! locale (autodetect)))))
 
 (defn reset-locale