feat: reduced mobile padding

This commit is contained in:
Nick 2025-01-03 17:52:13 -06:00
parent ea58038d4c
commit f18d333503
2 changed files with 25 additions and 19 deletions

View file

@ -569,12 +569,7 @@ cardStuff content =
] ]
<| <|
el el
[ paddingEach [ paddingXY 15 0
{ top = 0
, bottom = 0
, left = 15
, right = 15
}
, E.width fill , E.width fill
, height fill , height fill
] ]

View file

@ -23,6 +23,7 @@ import Element as E
, maximum , maximum
, minimum , minimum
, padding , padding
, paddingXY
, scrollbarY , scrollbarY
, spacing , spacing
, width , width
@ -56,21 +57,31 @@ pageList device =
pageListFormat : Device -> List (Attribute msg) pageListFormat : Device -> List (Attribute msg)
pageListFormat device = pageListFormat device =
[ case ( device.class, device.orientation ) of let
( Phone, Portrait ) -> pageListAttr =
spacing 0 [ centerX
( Tablet, Portrait ) ->
spacing 0
_ ->
spacing 20
, centerX
, padding 30
, width fill , width fill
, height fill , height fill
, scrollbarY , scrollbarY
] ]
in
pageListAttr
++ (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
[ spacing 0
, paddingXY 10 30
]
( Tablet, Portrait ) ->
[ spacing 0
, paddingXY 10 30
]
_ ->
[ spacing 20
, paddingXY 30 30
]
)
contentContainer : Element msg -> Element msg contentContainer : Element msg -> Element msg