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: stuff is fucked but I'm too tired to continue tonight

Browse source
This commit is contained in:
Nick 2024-12-21 04:07:50 -06:00
parent d2056e032e
commit 277ba17421
37 changed files with 683 additions and 1491 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2,24 +2,11 @@ module Pages.Services exposing (Model, Msg, page)
import Browser
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Format
exposing
( headerFontSizeSmall
( headerFontSizeMedium
, headerFontSizeSmall
, paragraphFontSize
, paragraphSpacing
)
@ -38,6 +25,8 @@ import Config.Pages.Services.Records.NixBuilds exposing (..)
import Config.Pages.Services.Records.NutritionScience exposing (..)
import Config.Pages.Services.Types exposing (..)
import Config.Style.Colour as T exposing (..)
import Config.Style.Glow exposing (glowDeepDarkGrey, glowDeepDarkOrange)
import Config.Style.Transitions exposing (transitionStyleMedium)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B
@ -135,17 +124,11 @@ servicesList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ servicesHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map serviceMakerMobile
( Tablet, Portrait ) ->
List.map serviceMakerMobile
_ ->
List.map serviceMaker
List.map (serviceMaker device)
)
[ servicesDebateAnalysis
, servicesDebateCoaching
@ -167,46 +150,17 @@ servicesHeader =
}
serviceMaker : Service msg -> Element msg
serviceMaker service =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (serviceImage service) service.serviceLink
, cardMaker
[ cardTitleMaker service.serviceName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ rateMaker service
, descriptionMaker service
, offeringMaker service
]
]
]
]
]
serviceMaker : Device -> Service msg -> Element msg
serviceMaker device service =
cardMaker device service.serviceName (contentList service) (serviceImage service) service.serviceLink
serviceMakerMobile : Service msg -> Element msg
serviceMakerMobile service =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker service.serviceName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ spacing 10 ] [ mobileCardMaker mobileImageBoxSize mobileImageSize (serviceImage service) service.serviceLink, rateMaker service ]
, descriptionMaker service
, offeringMaker service
]
]
]
]
]
contentList : Service msg -> List (Element msg)
contentList service =
[ rateMaker service
, descriptionMaker service
, offeringMaker service
]
serviceImage : Service msg -> { src : String, description : String }