feat: massive refactor

This commit is contained in:
Nick 2024-12-15 03:01:13 -06:00
parent 01e571d755
commit ce159368e6
30 changed files with 210 additions and 180 deletions

View file

@ -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
}

View file

@ -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."
}

View file

@ -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"
}

View file

@ -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."
}

View file

@ -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."
}

View file

@ -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!"
}

View file

@ -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."
}

View file

@ -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"
}

View file

@ -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 youd like to have me as a guest on your podcast, feel free to reach outId love to share my perspectives with your audience!"
}

View file

@ -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"
}

View file

@ -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."
}

View file

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

View file

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