feat: started working on responsiveness

frontend/src/Pages/Cucklist.elm

@@ -3,6 +3,7 @@ module Pages.Cucklist exposing (Model, Msg, page)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Config.Response exposing (..)
 import Config.Viewport exposing (..)
 import Cuckery.CuckList.AdamSinger.AdamSinger exposing (cuckAdamSinger)
 import Cuckery.CuckList.AmberOHearn.AmberOHearn exposing (cuckAmberOHearn)
@@ -91,7 +92,7 @@ page shared route =
         { init = init
         , update = update
         , subscriptions = subscriptions
-        , view = view
+        , view = view shared
         }
         |> Page.withLayout toLayout
 
@@ -148,28 +149,76 @@ subscriptions model =
 -- VIEW
 
 
-view : Model -> View Msg
-view model =
+view : Shared.Model -> Model -> View Msg
+view shared model =
     { title = dodgersName
     , attributes = []
-    , element = dodgersContainer
+    , element = dodgersContainer shared.device
     }
 
 
-dodgersContainer : Element msg
-dodgersContainer =
-    topLevelContainer dodgersList
+dodgersContainer : Device -> Element msg
+dodgersContainer device =
+    topLevelContainer (dodgersList device)
 
 
-dodgersList : Element msg
-dodgersList =
+dodgersList : Device -> Element msg
+dodgersList device =
     column
-        pageList
+        (case ( device.class, device.orientation ) of
+            ( Phone, Portrait ) ->
+                pageListDesktop
+
+            ( Phone, Landscape ) ->
+                pageListDesktop
+
+            ( Tablet, Portrait ) ->
+                pageListDesktop
+
+            ( Tablet, Landscape ) ->
+                pageListDesktop
+
+            ( Desktop, Portrait ) ->
+                pageListDesktop
+
+            ( Desktop, Landscape ) ->
+                pageListDesktop
+
+            ( BigDesktop, Portrait ) ->
+                pageListDesktop
+
+            ( BigDesktop, Landscape ) ->
+                pageListDesktop
+        )
     <|
         List.concat
             [ List.map headerMaker
                 [ cuckListHeader ]
-            , List.map cuckMaker
+            , (case ( device.class, device.orientation ) of
+                ( Phone, Portrait ) ->
+                    List.map cuckMakerMobile
+
+                ( Phone, Landscape ) ->
+                    List.map cuckMakerMobile
+
+                ( Tablet, Portrait ) ->
+                    List.map cuckMakerMobile
+
+                ( Tablet, Landscape ) ->
+                    List.map cuckMakerMobile
+
+                ( Desktop, Portrait ) ->
+                    List.map cuckMaker
+
+                ( Desktop, Landscape ) ->
+                    List.map cuckMaker
+
+                ( BigDesktop, Portrait ) ->
+                    List.map cuckMaker
+
+                ( BigDesktop, Landscape ) ->
+                    List.map cuckMaker
+              )
                 [ cuckAdamSinger
                 , cuckAmberOHearn
                 , cuckAnnChilders