feat: still need to remake headers

frontend/src/Pages/Debate/Cucklist.elm

@@ -1,7 +1,8 @@
 module Pages.Debate.Cucklist exposing (Model, Msg, page)
 
 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.Converters exposing (formatSocial)
 import Config.Helpers.Format
     exposing
@@ -9,7 +10,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
@@ -129,12 +130,15 @@ cucksList device =
         )
     <|
         List.concat
-            [ List.map (headerMaker device)
-                [ cuckListHeader ]
-            , (case ( device.class, device.orientation ) of
-                _ ->
-                    List.map (cuckMaker device)
-              )
+            [ --     List.map (headerMaker device)
+              --     [
+              --         servicesHeader
+              --     ]
+              -- ,
+              List.map
+                (\cuck ->
+                    cardMaker device (C.Cuck cuck) (contentList cuck)
+                )
                 cuckList
             ]
 
@@ -146,17 +150,10 @@ cuckListHeader =
             "Cucklist"
     in
     { headerTitle = String.toUpper name
-    , hasImage = False
-    , hasLink = False
     , headerBody = "This page features a list of morons who wrote cheques with their mouths that their asses couldn't cash. Each person included in this list has dodged debating me."
     }
 
 
-cuckMaker : Device -> Cuck -> Element msg
-cuckMaker device cuck =
-    cardMaker device cuck.cuckName (contentList cuck) (cuckImage cuck) cuck.cuckSocial
-
-
 contentList : Cuck -> List (Element msg)
 contentList cuck =
     [ socialMaker cuck