feat: very close to v1

This commit is contained in:
Nick 2024-12-22 19:42:23 -06:00
parent a9fb4fb14b
commit cf580a71d0
38 changed files with 428 additions and 246 deletions

View file

@ -15,23 +15,31 @@ topLevelContainer =
]
pageListCenter : List (Attribute msg)
pageListCenter =
pageListCenter : Device -> List (Attribute msg)
pageListCenter device =
[ centerY
]
++ pageListFormat
++ pageListFormat device
pageList : List (Attribute msg)
pageList =
pageList : Device -> List (Attribute msg)
pageList device =
[ alignTop
]
++ pageListFormat
++ pageListFormat device
pageListFormat : List (Attribute msg)
pageListFormat =
[ spacing 30
pageListFormat : Device -> List (Attribute msg)
pageListFormat device =
[ case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
spacing 0
( Tablet, Portrait ) ->
spacing 0
_ ->
spacing 20
, centerX
, padding 30
, width fill