feat: lots of work

frontend/src/Pages/Services/Coaching.elm

@@ -1,19 +1,34 @@
 module Pages.Services.Coaching exposing (Model, Msg, page)
 
--- import Config.Pages.Services.Coaching.Helpers exposing (instructionMaker)
-
-import Config.Data.Identity exposing (pageNames)
+import Config.Helpers.ArticleFormat exposing (..)
+import Config.Helpers.CardFormat exposing (..)
+import Config.Helpers.Format exposing (..)
 import Config.Helpers.Response
     exposing
         ( pageList
         , topLevelContainer
         )
+import Config.Helpers.ToolTip exposing (..)
+import Config.Pages.Headers.Types exposing (..)
+import Config.Pages.Services.Services.DebateCoaching exposing (servicesDebateCoaching)
+import Config.Style.Colour exposing (colourTheme)
+import Config.Style.Transitions
+    exposing
+        ( hoverFontDarkOrange
+        , transitionStyleFast
+        , transitionStyleSlow
+        )
 import Effect exposing (Effect)
 import Element as E exposing (..)
+import Element.Background as B
+import Element.Border as D
+import Element.Font as F
 import Html
+import Html.Attributes as H exposing (style)
 import Layouts
 import Page exposing (Page)
 import Route exposing (Route)
+import Route.Path as Path
 import Shared
 import View exposing (View)
 
@@ -81,22 +96,50 @@ subscriptions model =
 
 view : Shared.Model -> Model -> View Msg
 view shared model =
-    { title = pageNames.pageContact ++ " ( )"
+    { title = "services (coaching)"
     , attributes = []
-    , element = coachContainer shared.device
+    , element = coachingContainer shared.device
     }
 
 
-coachContainer : Device -> Element msg
-coachContainer device =
-    topLevelContainer (coachList device)
+coachingContainer : Device -> Element msg
+coachingContainer device =
+    topLevelContainer (coachingList device)
 
 
-coachList : Device -> Element msg
-coachList device =
+coachingList : Device -> Element msg
+coachingList device =
     column pageList <|
         List.concat
             (case ( device.class, device.orientation ) of
                 _ ->
-                    [ [] ]
+                    [ [ serviceMaker ] ]
             )
+
+
+serviceMaker : Element msg
+serviceMaker =
+    row
+        topLevelBox
+        [ cardMaker
+            [ cardTitleMaker (String.toUpper servicesDebateCoaching.serviceName)
+            , cardFormatter
+                [ cardContentSpacing
+                    [ column
+                        fieldSpacer
+                        [ cardSubTitleMaker
+                            [ column
+                                bodyFormat
+                                [ chunkMaker servicesDebateCoaching.serviceArticle.articleParagraph
+                                , titleMaker servicesDebateCoaching.serviceArticle.articleTitles.title1
+                                , highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title3 servicesDebateCoaching.serviceArticle.articleListEntries.list3
+                                , numberMaker servicesDebateCoaching.serviceArticle.articleListEntries.list1
+                                , titleMaker servicesDebateCoaching.serviceArticle.articleTitles.title2
+                                , bulletPointMaker servicesDebateCoaching.serviceArticle.articleListEntries.list2
+                                ]
+                            ]
+                        ]
+                    ]
+                ]
+            ]
+        ]