feat: lots of work

frontend/src/Headers/Pages/Arguments.elm

@@ -5,6 +5,11 @@ import Headers.Types exposing (..)
 
 argumentHeader : Header
 argumentHeader =
-    { headerTitle = "DEBATE"
+    let
+        name =
+            "Arguments"
+    in
+    { headerTitle = String.toUpper name
+    , headerName = 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."
     }

frontend/src/Headers/Pages/Contact.elm

@@ -5,6 +5,11 @@ import Headers.Types exposing (..)
 
 contactHeader : Header
 contactHeader =
-    { headerTitle = "CONTACT"
+    let
+        name =
+            "Contact"
+    in
+    { headerTitle = String.toUpper name
+    , headerName = name
     , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
     }

frontend/src/Headers/Pages/CuckList.elm

@@ -5,6 +5,11 @@ import Headers.Types exposing (..)
 
 cuckListHeader : Header
 cuckListHeader =
-    { headerTitle = "CUCKLIST"
+    let
+        name =
+            "Cucklist"
+    in
+    { headerTitle = String.toUpper name
+    , headerName = 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."
     }

frontend/src/Headers/Pages/Donate.elm

@@ -5,6 +5,11 @@ import Headers.Types exposing (..)
 
 donateHeader : Header
 donateHeader =
-    { headerTitle = "DONATE"
+    let
+        name =
+            "Donate"
+    in
+    { headerTitle = String.toUpper name
+    , headerName = name
     , headerBody = "My site, research, and content all cost time and money to run. If you find my contributions valuable, please consider supporting my work on any of the platforms listed below!"
     }

frontend/src/Headers/Pages/Gibberish.elm

@@ -5,6 +5,11 @@ import Headers.Types exposing (..)
 
 gibberishHeader : Header
 gibberishHeader =
-    { headerTitle = "GIBBERISH"
-    , headerBody = "This page is specifically for terms and ostensible concepts that I think are either nonsensical or so practically useless that it hardly even matters if the term is intelligible or not."
+    let
+        name =
+            "Gibberish"
+    in
+    { headerTitle = String.toUpper name
+    , headerName = 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."
     }

frontend/src/Headers/Pages/HyperBlog.elm

@@ -5,6 +5,11 @@ import Headers.Types exposing (..)
 
 hyperBlogHeader : Header
 hyperBlogHeader =
-    { headerTitle = "HYPERBLOG"
+    let
+        name =
+            "HyperBlog"
+    in
+    { headerTitle = String.toUpper name
+    , headerName = name
     , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
     }

frontend/src/Headers/Pages/Interviews.elm

@@ -5,6 +5,11 @@ import Headers.Types exposing (..)
 
 interviewHeader : Header
 interviewHeader =
-    { headerTitle = "INTERVIEWS"
+    let
+        name =
+            "Interviews"
+    in
+    { headerTitle = String.toUpper name
+    , headerName = name
     , headerBody = "This page showcases various podcasts and shows I've been on. If you’d like to have me as a guest on your podcast, feel free to reach out—I’d love to share my perspectives with your audience!"
     }

frontend/src/Headers/Pages/NutriDex.elm

@@ -5,6 +5,11 @@ import Headers.Types exposing (..)
 
 nutriDexHeader : Header
 nutriDexHeader =
-    { headerTitle = "NUTRIDEX"
+    let
+        name =
+            "NutriDex"
+    in
+    { headerTitle = String.toUpper name
+    , headerName = name
     , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
     }

frontend/src/Headers/Pages/Services.elm

@@ -5,6 +5,11 @@ import Headers.Types exposing (..)
 
 servicesHeader : Header
 servicesHeader =
-    { headerTitle = "SERVICES"
+    let
+        name =
+            "Services"
+    in
+    { headerTitle = String.toUpper name
+    , headerName = name
     , 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."
     }

frontend/src/Headers/Types.elm

@@ -3,5 +3,6 @@ module Headers.Types exposing (..)
 
 type alias Header =
     { headerTitle : String
+    , headerName : String
     , headerBody : String
     }