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
[ paddingEach
{ top = 0
, bottom = 0
, left = 15
, right = 15
}
[ paddingXY 15 0
, E.width fill
, height fill
]

View file

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