upRootNutrition/website
1
0
Fork 0
mirror of https://gitlab.com/upRootNutrition/website.git synced 2025-06-16 04:25:11 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: v1 close

Browse source
This commit is contained in:
Nick 2024-12-22 04:36:03 -06:00
parent f9af0e1941
commit d55f729540
40 changed files with 561 additions and 496 deletions
Download patch file Download diff file Expand all files Collapse all files

25
frontend/src/Pages/Services.elm
View file

@ -2,8 +2,8 @@ module Pages.Services exposing (Model, Msg, page)
import Browser
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Cardables.Helpers exposing (cardMaker)
import Config.Helpers.Cardables.Types as C
import Config.Helpers.Cards.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Types as C
import Config.Helpers.Format
exposing
( headerFontSizeMedium
@ -11,8 +11,9 @@ import Config.Helpers.Format
, paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Headers.Header exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Headers.Helpers exposing (..)
import Config.Helpers.Headers.Records exposing (servicesHeader)
import Config.Helpers.Headers.Types as R exposing (..)
import Config.Helpers.Response
exposing
( pageList
@ -125,12 +126,9 @@ servicesList device =
)
<|
List.concat
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
[ [ headerMaker (R.Services servicesHeader)
]
, List.map
(\service ->
cardMaker device (C.Service service) (contentList service)
)
@ -151,13 +149,6 @@ contentList service =
]
serviceImage : Service msg -> { src : String, description : String }
serviceImage service =
{ src = "services/" ++ service.serviceImage ++ ".png"
, description = service.serviceName
}
serviceWidth =
width <| px 45