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

@ -5,7 +5,8 @@ import Config.Helpers.Cards.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Types as C
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Helpers exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Headers.Records exposing (contactHeader, nutriDexHeader)
import Config.Helpers.Headers.Types as R exposing (..)
import Config.Helpers.Response
exposing
( pageList
@ -120,15 +121,24 @@ contactList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageList
pageList device
)
<|
List.concat
[ List.map
[ case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
[ headerMaker (R.Contact contactHeader) ]
( Tablet, Portrait ) ->
[ headerMaker (R.Contact contactHeader) ]
_ ->
[ none ]
, List.map
(\contact ->
cardMaker device (C.Contact contact) (contentList contact)
)
[contactTitle]
[ contactTitle ]
]