feat: massive refactor

This commit is contained in:
Nick 2024-12-15 03:01:13 -06:00
parent 01e571d755
commit ce159368e6
30 changed files with 210 additions and 180 deletions

View file

@ -22,14 +22,13 @@ import Config.Helpers.Format
( paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Header exposing (..)
import Config.Helpers.Response
exposing
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Records.Services exposing (servicesHeader)
import Config.Pages.Services.Records.DebateAnalysis exposing (..)
import Config.Pages.Services.Records.DebateCoaching exposing (..)
import Config.Pages.Services.Records.ElmBuilds exposing (..)
@ -155,6 +154,17 @@ servicesList device =
]
servicesHeader : Header
servicesHeader =
let
name =
"Services"
in
{ headerTitle = String.toUpper name
, headerBody = "Bundle any of the services below to receive a $10 discount per hour. For example, two Debate Analysis sessions would cost $140 total, instead of $80/hr. All prices are in CAD."
}
serviceMaker : Service msg -> Element msg
serviceMaker service =
row