feat: started working on responsiveness

frontend/src/Shared.elm

@@ -12,6 +12,7 @@ module Shared exposing
 
 -}
 
+import Browser.Events as BR exposing (..)
 import Effect exposing (Effect)
 import Element as E exposing (..)
 import Json.Decode exposing (..)
@@ -89,8 +90,16 @@ type alias Msg =
 update : Route () -> Msg -> Model -> ( Model, Effect Msg )
 update route msg model =
     case msg of
-        Shared.Msg.NoOp ->
-            ( model
+        Shared.Msg.Resize width height ->
+            ( { model
+                | device =
+                    { height = height
+                    , width = width
+                    }
+                        |> E.classifyDevice
+                , height = height
+                , width = width
+              }
             , Effect.none
             )
 
@@ -101,4 +110,4 @@ update route msg model =
 
 subscriptions : Route () -> Model -> Sub Msg
 subscriptions route model =
-    Sub.none
+    BR.onResize Shared.Msg.Resize