Hide sidebar by default on small devices

Closes: #1169

modules/restserver/src/main/templates/index.html

@@ -58,6 +58,7 @@
          var elmFlags = {
              "account": account,
              "pdfSupported": pdfSupported,
+             "innerWidth": window.innerWidth,
              "config": {{{flagsJson}}}
          };
         </script>

modules/webapp/src/main/elm/App/Data.elm

@@ -125,7 +125,7 @@ init key url flags_ settings =
       , userMenuOpen = False
       , subs = Sub.none
       , uiSettings = settings
-      , sidebarVisible = settings.sideMenuVisible
+      , sidebarVisible = flags.innerWidth > 768 && settings.sideMenuVisible
       , anonymousTheme = Data.UiTheme.Light
       , anonymousUiLang = Messages.UiLanguage.English
       , langMenuOpen = False

modules/webapp/src/main/elm/App/Update.elm

@@ -14,7 +14,7 @@ import Api
 import App.Data exposing (..)
 import Browser exposing (UrlRequest(..))
 import Browser.Navigation as Nav
-import Data.Flags
+import Data.Flags exposing (Flags)
 import Data.ServerEvent exposing (ServerEvent(..))
 import Data.UiSettings exposing (UiSettings)
 import Data.UiTheme
@@ -349,10 +349,13 @@ applyClientSettings texts model settings =
     let
         setTheme =
             Ports.setUiTheme settings.uiTheme
+
+        flags =
+            model.flags
     in
     Util.Update.andThen2
         [ \m ->
-            ( { m | sidebarVisible = settings.sideMenuVisible }
+            ( { m | sidebarVisible = flags.innerWidth > 768 && settings.sideMenuVisible }
             , setTheme
             , Sub.none
             )

modules/webapp/src/main/elm/Data/Flags.elm

@@ -42,6 +42,7 @@ type alias Config =
 type alias Flags =
     { account : Maybe AuthResult
     , pdfSupported : Bool
+    , innerWidth : Int
     , config : Config
     }