feat: massive refactor

frontend/src/Config/Helpers/Header.elm

@@ -1,7 +1,9 @@
-module Config.Pages.Headers.Helpers exposing (headerMaker)
+module Config.Helpers.Header exposing
+    ( Header
+    , headerMaker
+    )
 
 import Config.Helpers.CardFormat exposing (..)
-import Config.Pages.Headers.Types exposing (..)
 import Element as E
     exposing
         ( Element
@@ -28,3 +30,9 @@ headerMaker header =
                 ]
             ]
         ]
+
+
+type alias Header =
+    { headerTitle : String
+    , headerBody : String
+    }

frontend/src/Config/Pages/Headers/Records/Arguments.elm

@@ -1,14 +0,0 @@
-module Config.Pages.Headers.Records.Arguments exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-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."
-    }

frontend/src/Config/Pages/Headers/Records/Contact.elm

@@ -1,14 +0,0 @@
-module Config.Pages.Headers.Records.Contact exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-contactHeader : Header
-contactHeader =
-    let
-        name =
-            "Contact"
-    in
-    { headerTitle = String.toUpper name
-    , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
-    }

frontend/src/Config/Pages/Headers/Records/CuckList.elm

@@ -1,14 +0,0 @@
-module Config.Pages.Headers.Records.CuckList exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-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."
-    }

frontend/src/Config/Pages/Headers/Records/Debate.elm

@@ -1,14 +0,0 @@
-module Config.Pages.Headers.Records.Debate exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-debateHeader : Header
-debateHeader =
-    let
-        name =
-            "Debate"
-    in
-    { headerTitle = String.toUpper name
-    , headerBody = "Here you will find links to various pages relevant to debate, such as formal arguments, a list of debate-dodging cucks, and an inventory of nonsensical terminology."
-    }

frontend/src/Config/Pages/Headers/Records/Donate.elm

@@ -1,14 +0,0 @@
-module Config.Pages.Headers.Records.Donate exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-donateHeader : Header
-donateHeader =
-    let
-        name =
-            "Donate"
-    in
-    { headerTitle = String.toUpper 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/Config/Pages/Headers/Records/Gibberish.elm

@@ -1,15 +0,0 @@
-module Config.Pages.Headers.Records.Gibberish exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-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."
-    }

frontend/src/Config/Pages/Headers/Records/HyperBlog.elm

@@ -1,14 +0,0 @@
-module Config.Pages.Headers.Records.HyperBlog exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-hyperBlogHeader : Header
-hyperBlogHeader =
-    let
-        name =
-            "Blog"
-    in
-    { headerTitle = String.toUpper name
-    , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
-    }

frontend/src/Config/Pages/Headers/Records/Interviews.elm

@@ -1,14 +0,0 @@
-module Config.Pages.Headers.Records.Interviews exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-interviewHeader : Header
-interviewHeader =
-    let
-        name =
-            "Interviews"
-    in
-    { headerTitle = String.toUpper 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/Config/Pages/Headers/Records/NutriDex.elm

@@ -1,14 +0,0 @@
-module Config.Pages.Headers.Records.NutriDex exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-nutriDexHeader : Header
-nutriDexHeader =
-    let
-        name =
-            "NutriDex"
-    in
-    { headerTitle = String.toUpper name
-    , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
-    }

frontend/src/Config/Pages/Headers/Records/Services.elm

@@ -1,14 +0,0 @@
-module Config.Pages.Headers.Records.Services exposing (..)
-
-import Config.Pages.Headers.Types exposing (..)
-
-
-servicesHeader : Header
-servicesHeader =
-    let
-        name =
-            "Services"
-    in
-    { headerTitle = String.toUpper 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/Config/Pages/Headers/Types.elm

@@ -1,7 +0,0 @@
-module Config.Pages.Headers.Types exposing (..)
-
-
-type alias Header =
-    { headerTitle : String
-    , headerBody : String
-    }

frontend/src/Config/Pages/HyperBlog/Types.elm

@@ -1 +1,5 @@
 module Config.Pages.HyperBlog.Types exposing (..)
+
+
+asdasd =
+    []

frontend/src/Pages/Contact.elm

@@ -31,9 +31,11 @@ import Config.Helpers.StrengthBar
 import Config.Helpers.ToolTip exposing (..)
 import Config.Helpers.Viewport exposing (resetViewport)
 import Config.Pages.Contact.Types exposing (..)
-import Config.Pages.Headers.Helpers exposing (..)
+import Config.Helpers.Header
-import Config.Pages.Headers.Records.Contact exposing (contactHeader)
+    exposing
-import Config.Pages.Headers.Types exposing (..)
+        ( Header
+        , headerMaker
+        )
 import Config.Pages.Interviews.Types exposing (..)
 import Config.Pages.Products.Types exposing (..)
 import Config.Style.Colour exposing (colourTheme)
@@ -142,6 +144,17 @@ contactList device =
             )
 
 
+contactHeader : Header
+contactHeader =
+    let
+        name =
+            "Contact"
+    in
+    { headerTitle = String.toUpper name
+    , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
+    }
+
+
 instructionMaker : Element msg
 instructionMaker =
     row

frontend/src/Pages/Debate.elm

@@ -42,11 +42,11 @@ import Config.Pages.Debate.Arguments.List exposing (argumentListNumber)
 import Config.Pages.Debate.Cuckery.List exposing (cuckListNumber)
 import Config.Pages.Debate.Gibberish.List exposing (gibberishListNumber)
 import Config.Pages.Debate.Types exposing (..)
-import Config.Pages.Headers.Helpers exposing (headerMaker)
+import Config.Helpers.Header
-import Config.Pages.Headers.Records.Arguments exposing (argumentHeader)
+    exposing
-import Config.Pages.Headers.Records.CuckList exposing (cuckListHeader)
+        ( Header
-import Config.Pages.Headers.Records.Debate exposing (debateHeader)
+        , headerMaker
-import Config.Pages.Headers.Records.Gibberish exposing (gibberishHeader)
+        )
 import Config.Style.Colour as T exposing (colourTheme)
 import Config.Style.Glow
     exposing
@@ -175,6 +175,17 @@ debateList device =
             ]
 
 
+debateHeader : Header
+debateHeader =
+    let
+        name =
+            "Debate"
+    in
+    { headerTitle = String.toUpper name
+    , headerBody = "Here you will find links to various pages relevant to debate, such as formal arguments, a list of debate-dodging cucks, and an inventory of nonsensical terminology."
+    }
+
+
 desktopDebateMaker : Debate -> Element msg
 desktopDebateMaker debate =
     row

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.Helpers.Header
-import Config.Pages.Headers.Records.CuckList exposing (cuckListHeader)
+    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.Helpers.Header exposing (..)
-import Config.Pages.Headers.Records.Gibberish exposing (gibberishHeader)
+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

frontend/src/Pages/Donate.elm

@@ -42,8 +42,12 @@ import Config.Pages.Donate.Records.PayPal exposing (donatePayPal)
 import Config.Pages.Donate.Records.Stripe exposing (donateStripe)
 import Config.Pages.Donate.Records.YouTube exposing (donateYouTube)
 import Config.Pages.Donate.Types exposing (..)
-import Config.Pages.Headers.Helpers exposing (headerMaker)
+import Config.Helpers.Header exposing (..)
-import Config.Pages.Headers.Records.Donate exposing (donateHeader)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Style.Colour as T exposing (..)
 import Effect exposing (Effect)
 import Element as E exposing (..)
@@ -167,6 +171,17 @@ donateList device =
             ]
 
 
+donateHeader : Header
+donateHeader =
+    let
+        name =
+            "Donate"
+    in
+    { headerTitle = String.toUpper 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!"
+    }
+
+
 donateMaker : Donate -> Element msg
 donateMaker donate =
     row

frontend/src/Pages/Home_.elm

@@ -12,6 +12,11 @@ import Config.Helpers.Response
         , topLevelContainer
         )
 import Config.Helpers.Viewport exposing (resetViewport)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Style.Colour exposing (colourTheme)
 import Config.Style.Glow exposing (glowDeepDarkGrey)
 import Config.Style.Icons.Icons

frontend/src/Pages/HyperBlog.elm

@@ -23,8 +23,12 @@ import Config.Helpers.Response
         , topLevelContainer
         )
 import Config.Helpers.Viewport exposing (resetViewport)
-import Config.Pages.Headers.Helpers exposing (headerMaker)
+import Config.Helpers.Header exposing (..)
-import Config.Pages.Headers.Records.NutriDex exposing (nutriDexHeader)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Style.Colour as T exposing (..)
 import Config.Style.Icons.Icons exposing (construction)
 import Effect exposing (Effect)
@@ -120,3 +124,14 @@ hyperBlogList device =
                 _ ->
                     [ [ underConstructionMaker (String.toUpper pageNames.pageHyperBlog) ] ]
             )
+
+
+hyperBlogHeader : Header
+hyperBlogHeader =
+    let
+        name =
+            "Blog"
+    in
+    { headerTitle = String.toUpper name
+    , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
+    }

frontend/src/Pages/Interviews.elm

@@ -34,8 +34,12 @@ import Config.Helpers.StrengthBar
         )
 import Config.Helpers.ToolTip exposing (tooltip)
 import Config.Helpers.Viewport exposing (resetViewport)
-import Config.Pages.Headers.Helpers exposing (headerMaker)
+import Config.Helpers.Header exposing (..)
-import Config.Pages.Headers.Records.Interviews exposing (interviewHeader)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Pages.Interviews.Records.DrShawnBakerPodcast exposing (drShawnBakerPodcast)
 import Config.Pages.Interviews.Records.FitAndFurious exposing (fitAndFurious)
 import Config.Pages.Interviews.Records.FoolproofMastery exposing (foolproofMastery)
@@ -176,6 +180,17 @@ interviewList device =
             ]
 
 
+interviewHeader : Header
+interviewHeader =
+    let
+        name =
+            "Interviews"
+    in
+    { headerTitle = String.toUpper 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!"
+    }
+
+
 interviewMaker : Interview -> Element msg
 interviewMaker interview =
     row

frontend/src/Pages/NotFound_.elm

@@ -22,6 +22,11 @@ import Config.Helpers.Response
         , pageListCenter
         , topLevelContainer
         )
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Effect exposing (Effect)
 import Element as E exposing (..)
 import Layouts

frontend/src/Pages/Nutridex.elm

@@ -34,9 +34,12 @@ import Config.Helpers.StrengthBar
         )
 import Config.Helpers.ToolTip exposing (tooltip)
 import Config.Helpers.Viewport exposing (resetViewport)
-import Config.Pages.Headers.Helpers exposing (headerMaker)
+import Config.Helpers.Header exposing (..)
-import Config.Pages.Headers.Records.Donate exposing (donateHeader)
+import Config.Helpers.Header
-import Config.Pages.Headers.Records.NutriDex exposing (nutriDexHeader)
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Pages.Products.Records.NutriDex exposing (productNutriDex)
 import Config.Pages.Products.Types exposing (..)
 import Config.Style.Colour exposing (colourTheme)
@@ -159,6 +162,17 @@ nutriDexList device =
             ]
 
 
+nutriDexHeader : Header
+nutriDexHeader =
+    let
+        name =
+            "NutriDex"
+    in
+    { headerTitle = String.toUpper name
+    , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
+    }
+
+
 nutriDexMaker : NutriDex -> Element msg
 nutriDexMaker nutridex =
     row

frontend/src/Pages/Services.elm

@@ -22,14 +22,13 @@ import Config.Helpers.Format
         ( paragraphFontSize
         , paragraphSpacing
         )
+import Config.Helpers.Header exposing (..)
 import Config.Helpers.Response
     exposing
         ( pageList
         , topLevelContainer
         )
 import Config.Helpers.Viewport exposing (resetViewport)
-import Config.Pages.Headers.Helpers exposing (headerMaker)
-import Config.Pages.Headers.Records.Services exposing (servicesHeader)
 import Config.Pages.Services.Records.DebateAnalysis exposing (..)
 import Config.Pages.Services.Records.DebateCoaching exposing (..)
 import Config.Pages.Services.Records.ElmBuilds exposing (..)
@@ -155,6 +154,17 @@ servicesList device =
             ]
 
 
+servicesHeader : Header
+servicesHeader =
+    let
+        name =
+            "Services"
+    in
+    { headerTitle = String.toUpper 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."
+    }
+
+
 serviceMaker : Service msg -> Element msg
 serviceMaker service =
     row

frontend/src/Pages/Services/Analysis.elm

@@ -5,7 +5,11 @@ import Config.Helpers.CardFormat exposing (..)
 import Config.Helpers.Format exposing (..)
 import Config.Helpers.Response exposing (pageList, topLevelContainer)
 import Config.Helpers.ToolTip exposing (..)
-import Config.Pages.Headers.Types exposing (..)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Pages.Services.Records.DebateAnalysis exposing (..)
 import Config.Style.Colour exposing (colourTheme)
 import Config.Style.Transitions

frontend/src/Pages/Services/Coaching.elm

@@ -9,7 +9,11 @@ import Config.Helpers.Response
         , topLevelContainer
         )
 import Config.Helpers.ToolTip exposing (..)
-import Config.Pages.Headers.Types exposing (..)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Pages.Services.Records.DebateCoaching exposing (servicesDebateCoaching)
 import Config.Style.Colour exposing (colourTheme)
 import Config.Style.Transitions

frontend/src/Pages/Services/Elm.elm

@@ -9,7 +9,11 @@ import Config.Helpers.Response
         , topLevelContainer
         )
 import Config.Helpers.ToolTip exposing (..)
-import Config.Pages.Headers.Types exposing (..)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Pages.Services.Records.ElmBuilds exposing (servicesElmBuilds)
 import Config.Style.Colour exposing (..)
 import Config.Style.Transitions

frontend/src/Pages/Services/Nix.elm

@@ -9,7 +9,11 @@ import Config.Helpers.Response
         , topLevelContainer
         )
 import Config.Helpers.ToolTip exposing (..)
-import Config.Pages.Headers.Types exposing (..)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Pages.Services.Records.NixBuilds exposing (servicesNixBuilds)
 import Config.Style.Colour exposing (..)
 import Config.Style.Transitions

frontend/src/Pages/Services/Nutrition.elm

@@ -9,7 +9,11 @@ import Config.Helpers.Response
         , topLevelContainer
         )
 import Config.Helpers.ToolTip exposing (..)
-import Config.Pages.Headers.Types exposing (..)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
 import Config.Pages.Services.Records.NutritionScience exposing (servicesNutritionScience)
 import Config.Style.Colour exposing (colourTheme)
 import Config.Style.Transitions