feat: still need to remake headers

frontend/src/Pages/Services.elm

@@ -2,7 +2,8 @@ module Pages.Services exposing (Model, Msg, page)
 
 import Browser
 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
         ( headerFontSizeMedium
@@ -10,7 +11,7 @@ import Config.Helpers.Format
         , paragraphFontSize
         , paragraphSpacing
         )
-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
@@ -124,12 +125,15 @@ servicesList device =
         )
     <|
         List.concat
-            [ List.map (headerMaker device)
-                [ servicesHeader ]
-            , (case ( device.class, device.orientation ) of
-                _ ->
-                    List.map (serviceMaker device)
-              )
+            [ --     List.map (headerMaker device)
+              --     [
+              --         servicesHeader
+              --     ]
+              -- ,
+              List.map
+                (\service ->
+                    cardMaker device (C.Service service) (contentList service)
+                )
                 [ servicesDebateAnalysis
                 , servicesDebateCoaching
                 , servicesNutritionScience
@@ -139,24 +143,6 @@ servicesList device =
             ]
 
 
-servicesHeader : Header
-servicesHeader =
-    let
-        name =
-            "Services"
-    in
-    { headerTitle = String.toUpper name
-    , hasImage = False
-    , hasLink = False
-    , 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 : Device -> Service msg -> Element msg
-serviceMaker device service =
-    cardMaker device service.serviceName (contentList service) (serviceImage service) service.serviceLink
-
-
 contentList : Service msg -> List (Element msg)
 contentList service =
     [ rateMaker service