feat: still need to remake headers

This commit is contained in:
Nick 2024-12-21 23:23:59 -06:00
parent 4686c14667
commit f9af0e1941
209 changed files with 1057 additions and 953 deletions

View file

@ -1,9 +1,10 @@
module Pages.Contact exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Cardables.Helpers exposing (cardMaker)
import Config.Helpers.Cardables.Types as C
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Header exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -123,19 +124,19 @@ contactList device =
)
<|
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map (contactMaker device)
)
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
(\contact ->
cardMaker device (C.Contact contact) (contentList contact)
)
[]
]
contactMaker : Device -> Contact -> Element msg
contactMaker device contact =
cardMaker device contact.contactName (contentList contact) { description = "", src = "" } contact.contactLink
contentList : Contact -> List (Element msg)
contentList contact =
[ instructionBody ]