feat: v1 close

frontend/src/Pages/Debate/Cucklist.elm

@@ -1,8 +1,8 @@
 module Pages.Debate.Cucklist exposing (Model, Msg, page)
 
 import Config.Data.Identity exposing (pageNames)
-import Config.Helpers.Cardables.Helpers exposing (cardMaker)
-import Config.Helpers.Cardables.Types as C
+import Config.Helpers.Cards.Helpers exposing (cardMaker)
+import Config.Helpers.Cards.Types as C
 import Config.Helpers.Converters exposing (formatSocial)
 import Config.Helpers.Format
     exposing
@@ -10,8 +10,9 @@ import Config.Helpers.Format
         , paragraphFontSize
         , paragraphSpacing
         )
-import Config.Helpers.Headers.Header exposing (..)
-import Config.Helpers.Headers.Types exposing (Header)
+import Config.Helpers.Headers.Helpers exposing (..)
+import Config.Helpers.Headers.Records exposing (cuckListHeader)
+import Config.Helpers.Headers.Types as R exposing (..)
 import Config.Helpers.Response
     exposing
         ( pageList
@@ -130,12 +131,8 @@ cucksList device =
         )
     <|
         List.concat
-            [ --     List.map (headerMaker device)
-              --     [
-              --         servicesHeader
-              --     ]
-              -- ,
-              List.map
+            [ [ headerMaker (R.CuckList cuckListHeader) ]
+            , List.map
                 (\cuck ->
                     cardMaker device (C.Cuck cuck) (contentList cuck)
                 )
@@ -143,17 +140,6 @@ cucksList device =
             ]
 
 
-cuckListHeader : Header
-cuckListHeader =
-    let
-        name =
-            "Cucklist"
-    in
-    { headerTitle = String.toUpper name
-    , 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."
-    }
-
-
 contentList : Cuck -> List (Element msg)
 contentList cuck =
     [ socialMaker cuck
@@ -162,18 +148,6 @@ contentList cuck =
     ]
 
 
-cuckImage :
-    Cuck
-    ->
-        { src : String
-        , description : String
-        }
-cuckImage cuck =
-    { src = "/cucks/" ++ cuck.cuckImage ++ "/" ++ cuck.cuckImage ++ ".png"
-    , description = cuck.cuckName
-    }
-
-
 dodgeMaker : Cuck -> Element msg
 dodgeMaker cuck =
     column