mirror of
https://gitlab.com/upRootNutrition/website.git
synced 2025-06-16 04:25:11 -05:00
feat: still need to remake headers
This commit is contained in:
parent
4686c14667
commit
f9af0e1941
209 changed files with 1057 additions and 953 deletions
|
@ -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 ]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue