From 37316214026a795bc1f6837a06253466d0e2fd29 Mon Sep 17 00:00:00 2001 From: Nick Date: Fri, 5 Dec 2025 19:39:08 -0600 Subject: [PATCH] fix: unfucked responsiveness on homepage --- modules/nixos/core/environment/default.nix | 5 ++- .../frontend/src/Config/Helpers/Response.elm | 28 +++++++++++++ packages/website/frontend/src/Pages/Home_.elm | 39 ++++++++++--------- 3 files changed, 52 insertions(+), 20 deletions(-) diff --git a/modules/nixos/core/environment/default.nix b/modules/nixos/core/environment/default.nix index b6bb8ca..9469bf4 100755 --- a/modules/nixos/core/environment/default.nix +++ b/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 = { diff --git a/packages/website/frontend/src/Config/Helpers/Response.elm b/packages/website/frontend/src/Config/Helpers/Response.elm index 647993a..0493be9 100755 --- a/packages/website/frontend/src/Config/Helpers/Response.elm +++ b/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 diff --git a/packages/website/frontend/src/Pages/Home_.elm b/packages/website/frontend/src/Pages/Home_.elm index f5b5860..5eaccc4 100755 --- a/packages/website/frontend/src/Pages/Home_.elm +++ b/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 - Desktop -> - 675 - - BigDesktop -> - 675 - - Tablet -> - case device.orientation of - _ -> - 300 - - Phone -> - case device.orientation of - _ -> - 150 + deviceLogic + { desktop = 675 + , bigDesktop = 675 + , tablet = 300 + , phone = 150 + } + device ] <| html image