feat: still need to remake headers

frontend/src/Pages/Debate/Arguments.elm

@@ -1,14 +1,15 @@
 module Pages.Debate.Arguments 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 (toTitleCase)
 import Config.Helpers.Format
     exposing
         ( 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
@@ -136,12 +137,15 @@ debateList device =
         )
     <|
         List.concat
-            [ List.map (headerMaker device)
-                [ argumentHeader ]
-            , (case ( device.class, device.orientation ) of
-                _ ->
-                    List.map (argumentMaker device)
-              )
+            [ --     List.map (headerMaker device)
+              --     [
+              --         servicesHeader
+              --     ]
+              -- ,
+              List.map
+                (\argument ->
+                    cardMaker device (C.Argument argument) (contentList argument)
+                )
                 argumentList
             ]
 
@@ -153,17 +157,10 @@ argumentHeader =
             "Arguments"
     in
     { headerTitle = String.toUpper name
-    , hasImage = False
-    , hasLink = False
     , headerBody = "This page features arguments that I hold to be sound. I'm open to hearing all challenges, as I am ready to engage with and defend any argument listed."
     }
 
 
-argumentMaker : Device -> Argument -> Element msg
-argumentMaker device argument =
-    cardMaker device argument.argumentTitle (contentList argument) (argumentImage argument) argument.proofLink
-
-
 contentList : Argument -> List (Element msg)
 contentList argument =
     [ summaryMakerDesktop argument