fix: unfucked responsiveness on homepage

modules/nixos/core/environment/default.nix

@@ -13,12 +13,13 @@ in
     systemPackages = builtins.attrValues {
       inherit (pkgs)
         git
+        grim
+        helix
+        just
         pijul
         sshfs
         tomb
-        just
         virt-manager
-        helix
         ;
     };
     variables = {

packages/website/frontend/src/Config/Helpers/Response.elm

@@ -1,5 +1,6 @@
 module Config.Helpers.Response exposing
     ( contentContainer
+    , deviceLogic
     , pageList
     , pageListCenter
     , pageListFormat
@@ -32,6 +33,33 @@ import Element.Background as B exposing (color)
 import Html.Attributes exposing (style)
 
 
+deviceLogic :
+    { desktop : a
+    , bigDesktop : a
+    , tablet : a
+    , phone : a
+    }
+    -> Device
+    -> a
+deviceLogic values device =
+    case device.class of
+        Desktop ->
+            values.desktop
+
+        BigDesktop ->
+            values.bigDesktop
+
+        Tablet ->
+            case device.orientation of
+                _ ->
+                    values.tablet
+
+        Phone ->
+            case device.orientation of
+                _ ->
+                    values.phone
+
+
 topLevelContainer : Element msg -> Element msg
 topLevelContainer =
     el

packages/website/frontend/src/Pages/Home_.elm

@@ -5,7 +5,8 @@ import Config.Helpers.Cards.Inner.Text exposing (detailBodyLink)
 import Config.Helpers.Headers.Types exposing (Header)
 import Config.Helpers.Response
     exposing
-        ( pageListCenter
+        ( deviceLogic
+        , pageListCenter
         , topLevelContainer
         )
 import Config.Helpers.Viewport exposing (resetViewport)
@@ -163,28 +164,30 @@ homePage device image =
         , centerY
         , E.spacing 20
         , E.width (E.fill |> minimum 100)
-        , E.width (E.fill |> maximum 875)
+        , E.width
+            (E.fill
+                |> maximum
+                    (deviceLogic
+                        { desktop = 875
+                        , bigDesktop = 875
+                        , tablet = 500
+                        , phone = 325
+                        }
+                        device
+                    )
+            )
         ]
         [ el
             [ centerX
             , E.width <|
                 px <|
-                    case device.class of
+                    deviceLogic
-                        Desktop ->
+                        { desktop = 675
-                            675
+                        , bigDesktop = 675
-
+                        , tablet = 300
-                        BigDesktop ->
+                        , phone = 150
-                            675
+                        }
-
+                        device
-                        Tablet ->
-                            case device.orientation of
-                                _ ->
-                                    300
-
-                        Phone ->
-                            case device.orientation of
-                                _ ->
-                                    150
             ]
           <|
             html image