feat: massive refactor

frontend/src/Pages/Debate/Arguments.elm

@@ -21,6 +21,11 @@ import Config.Helpers.Format
         ( paragraphFontSize
         , paragraphSpacing
         )
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Helpers.Response
     exposing
         ( pageList
@@ -39,8 +44,6 @@ import Config.Pages.Debate.Arguments.List
         , argumentListNumber
         )
 import Config.Pages.Debate.Arguments.Types exposing (..)
-import Config.Pages.Headers.Helpers exposing (headerMaker)
-import Config.Pages.Headers.Records.Arguments exposing (argumentHeader)
 import Config.Style.Colour exposing (colourTheme)
 import Config.Style.Glow
     exposing
@@ -166,6 +169,17 @@ debateList device =
             ]
 
 
+argumentHeader : Header
+argumentHeader =
+    let
+        name =
+            "Arguments"
+    in
+    { headerTitle = String.toUpper name
+    , 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 : Argument -> Element msg
 argumentMaker argument =
     row

frontend/src/Pages/Debate/Cucklist.elm

@@ -34,8 +34,11 @@ import Config.Pages.Debate.Cuckery.List
         , cuckListNumber
         )
 import Config.Pages.Debate.Cuckery.Types exposing (..)
-import Config.Pages.Headers.Helpers exposing (headerMaker)
-import Config.Pages.Headers.Records.CuckList exposing (cuckListHeader)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Style.Colour exposing (colourTheme)
 import Config.Style.Transitions
     exposing
@@ -157,6 +160,17 @@ 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."
+    }
+
+
 desktopCuckMaker : Cuck -> Element msg
 desktopCuckMaker cuck =
     row

frontend/src/Pages/Debate/Gibberish.elm

@@ -43,8 +43,12 @@ import Config.Pages.Debate.Gibberish.Records.PhilOfLanguage exposing (philOfLang
 import Config.Pages.Debate.Gibberish.Records.PhilOfMind exposing (philOfMindGibberish)
 import Config.Pages.Debate.Gibberish.Records.Theology exposing (theologyGibberish)
 import Config.Pages.Debate.Gibberish.Types exposing (..)
-import Config.Pages.Headers.Helpers exposing (headerMaker)
-import Config.Pages.Headers.Records.Gibberish exposing (gibberishHeader)
+import Config.Helpers.Header exposing (..)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Style.Colour exposing (colourTheme)
 import Effect exposing (Effect)
 import Element as E exposing (..)
@@ -170,6 +174,17 @@ gibberishList device =
             ]
 
 
+gibberishHeader : Header
+gibberishHeader =
+    let
+        name =
+            "Gibberish"
+    in
+    { headerTitle = String.toUpper name
+    , headerBody = "This page is specifically for terms and ostensible concepts that I think are either nonsensical or so practically useless that its intelligiblity is irrelevant."
+    }
+
+
 desktopGibberishMaker : Gibberish -> Element msg
 desktopGibberishMaker gibberish =
     row