feat: refactored a shit ton of stuff

This commit is contained in:
Nick 2024-12-09 19:53:09 -06:00
parent 68be562bd3
commit fbdfde8680
232 changed files with 2614 additions and 2532 deletions

View file

@ -1,23 +1,20 @@
module Pages.Arguments exposing (Model, Msg, page)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Debate.Arguments.Helpers exposing (..)
import Debate.Arguments.Types exposing (..)
import Debate.Gibberish.Helpers exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Debate.Arguments.Helpers exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Gibberish.Helpers exposing (..)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Border as D exposing (..)
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.Arguments exposing (argumentHeader)
import Html
import Html.Attributes as H exposing (style, title, wrap)
import Element as E exposing (..)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Arguments exposing (argumentHeader)
import Layouts
import List.Extra as L exposing (..)
import Page exposing (Page)
import Route exposing (Route)
import Shared

View file

@ -1,20 +1,19 @@
module Pages.Contact exposing (Model, Msg, page)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Contact.Helpers exposing (..)
import Contact.Methods.Discord exposing (contactDiscord)
import Contact.Methods.Email exposing (contactEmail)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Contact.Helpers exposing (..)
import Config.Pages.Contact.Methods.Discord exposing (contactDiscord)
import Config.Pages.Contact.Methods.Email exposing (contactEmail)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Font as F
import Headers.Helpers exposing (..)
import Headers.Pages.Contact exposing (contactHeader)
import Html
import Html.Attributes as H exposing (style)
import Element as E exposing (..)
import Config.Pages.Headers.Helpers exposing (..)
import Config.Pages.Headers.Pages.Contact exposing (contactHeader)
import Layouts
import Page exposing (Page)
import Route exposing (Route)

View file

@ -1,18 +1,17 @@
module Pages.Cucklist exposing (Model, Msg, page)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Debate.Cuckery.Helpers exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Debate.Cuckery.Helpers exposing (..)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.CuckList exposing (cuckListHeader)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Border as D
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.CuckList exposing (cuckListHeader)
import Html.Attributes as H exposing (style)
import Element as E exposing (..)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
@ -109,13 +108,13 @@ dodgersList device =
[ cuckListHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map cuckMakerMobile
List.map mobileCuckMaker
( Tablet, Portrait ) ->
List.map cuckMakerMobile
List.map mobileCuckMaker
_ ->
List.map cuckMaker
List.map desktopCuckMaker
)
cuckList
]

View file

@ -1,25 +1,21 @@
module Pages.Debate exposing (Model, Msg, page)
import Browser.Dom as Dom
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Debate.Debate.Helpers exposing (..)
import Debate.Debate.Pages.Arguments exposing (debateArguments)
import Debate.Debate.Pages.Cucklist exposing (debateCuckList)
import Debate.Debate.Pages.Gibberish exposing (debateGibberish)
import Donate.Types exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Debate.Debate.Helpers exposing (..)
import Config.Pages.Debate.Debate.Pages.Arguments exposing (debateArguments)
import Config.Pages.Debate.Debate.Pages.Cucklist exposing (debateCuckList)
import Config.Pages.Debate.Debate.Pages.Gibberish exposing (debateGibberish)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Debate exposing (debateHeader)
import Config.Style.Colour as T exposing (colourTheme)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B exposing (..)
import Element.Border as D exposing (..)
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.Donate exposing (donateHeader)
import Html
import Html.Attributes as H exposing (style)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
@ -104,14 +100,27 @@ debateContainer device =
debateList : Device -> Element msg
debateList device =
column pageListDesktop
column
(case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
[ mobileDebateMaker ]
( Tablet, Portrait ) ->
[ mobileDebateMaker ]
_ ->
[ desktopDebateMaker ]
pageListDesktop
)
<|
List.concat
[ List.map headerMaker
[ debateHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map mobileDebateMaker
( Tablet, Portrait ) ->
List.map mobileDebateMaker
_ ->
List.map desktopDebateMaker
)
[ debateArguments
, debateCuckList
, debateGibberish
]
]

View file

@ -1,29 +1,24 @@
module Pages.Donate exposing (Model, Msg, page)
import Browser.Dom as Dom
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Donate.Helpers exposing (..)
import Donate.Methods.Cardano exposing (donateCardano)
import Donate.Methods.KoFi exposing (donateKoFi)
import Donate.Methods.LiberaPay exposing (donateLiberaPay)
import Donate.Methods.Merch exposing (donateMerch)
import Donate.Methods.Patreon exposing (donatePatreon)
import Donate.Methods.PayPal exposing (donatePayPal)
import Donate.Methods.Stripe exposing (donateStripe)
import Donate.Methods.YouTube exposing (donateYouTube)
import Donate.Types exposing (..)
import Config.Data.Identity as I exposing (..)
import Config.Format.Format as O exposing (..)
import Config.Format.Response exposing (..)
import Config.Helpers.Viewport exposing (..)
import Config.Pages.Donate.Helpers exposing (..)
import Config.Pages.Donate.Methods.Cardano exposing (donateCardano)
import Config.Pages.Donate.Methods.KoFi exposing (donateKoFi)
import Config.Pages.Donate.Methods.LiberaPay exposing (donateLiberaPay)
import Config.Pages.Donate.Methods.Merch exposing (donateMerch)
import Config.Pages.Donate.Methods.Patreon exposing (donatePatreon)
import Config.Pages.Donate.Methods.PayPal exposing (donatePayPal)
import Config.Pages.Donate.Methods.Stripe exposing (donateStripe)
import Config.Pages.Donate.Methods.YouTube exposing (donateYouTube)
import Config.Pages.Donate.Types exposing (..)
import Config.Style.Colour as T exposing (..)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B exposing (..)
import Element.Border as D exposing (..)
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.Donate exposing (donateHeader)
import Html.Attributes as H exposing (style)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Donate exposing (donateHeader)
import Layouts
import Page exposing (Page)
import Route exposing (Route)

View file

@ -1,28 +1,26 @@
module Pages.Gibberish exposing (Model, Msg, page)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Debate.Arguments.Helpers exposing (..)
import Debate.Arguments.Types exposing (..)
import Debate.Gibberish.Domains.Epistemology exposing (epistemologyGibberish)
import Debate.Gibberish.Domains.Metaphysics exposing (metaphysicsGibberish)
import Debate.Gibberish.Domains.Normativity exposing (normativityGibberish)
import Debate.Gibberish.Domains.Ontology exposing (ontologyGibberish)
import Debate.Gibberish.Domains.PhilOfLanguage exposing (philOfLanguageGibberish)
import Debate.Gibberish.Domains.PhilOfMind exposing (philOfMindGibberish)
import Debate.Gibberish.Domains.Theology exposing (theologyGibberish)
import Debate.Gibberish.Helpers exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Debate.Arguments.Helpers exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Gibberish.Domains.Epistemology exposing (epistemologyGibberish)
import Config.Pages.Debate.Gibberish.Domains.Metaphysics exposing (metaphysicsGibberish)
import Config.Pages.Debate.Gibberish.Domains.Normativity exposing (normativityGibberish)
import Config.Pages.Debate.Gibberish.Domains.Ontology exposing (ontologyGibberish)
import Config.Pages.Debate.Gibberish.Domains.PhilOfLanguage exposing (philOfLanguageGibberish)
import Config.Pages.Debate.Gibberish.Domains.PhilOfMind exposing (philOfMindGibberish)
import Config.Pages.Debate.Gibberish.Domains.Theology exposing (theologyGibberish)
import Config.Pages.Debate.Gibberish.Helpers exposing (..)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Gibberish exposing (gibberishHeader)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Border as D exposing (..)
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.Gibberish exposing (gibberishHeader)
import Html
import Html.Attributes as H exposing (style, title, wrap)
import Element as E exposing (..)
import Layouts
import List.Extra as L exposing (..)
import Page exposing (Page)
@ -123,13 +121,13 @@ gibberishList device =
[ gibberishHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map gibberishMakerMobile
List.map mobileGibberishMaker
( Tablet, Portrait ) ->
List.map gibberishMakerMobile
List.map mobileGibberishMaker
_ ->
List.map gibberishMaker
List.map desktopGibberishMaker
)
[ epistemologyGibberish
, theologyGibberish

View file

@ -1,18 +1,16 @@
module Pages.Home_ exposing (Model, Msg, page)
import Blog.Helpers exposing (..)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Home.Helpers exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B exposing (..)
import Element.Border as D exposing (..)
import Element.Font as F
import Home.Helpers exposing (..)
import Html.Attributes as H exposing (style)
import Layouts
import Page exposing (Page)
import Route exposing (Route)

View file

@ -1,17 +1,18 @@
module Pages.Hyperblog exposing (Model, Msg, page)
import Blog.Helpers exposing (..)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.HyperBlog.Helpers exposing (..)
import Config.Style.Colour as T exposing (..)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.NutriDex exposing (nutriDexHeader)
import Html.Attributes as H exposing (style)
import Element as E exposing (..)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.NutriDex exposing (nutriDexHeader)
import Layouts
import Page exposing (Page)
import Route exposing (Route)

View file

@ -1,30 +1,27 @@
module Pages.Interviews exposing (Model, Msg, page)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Interviews.Episodes.DrShawnBakerPodcast exposing (drShawnBakerPodcast)
import Config.Pages.Interviews.Episodes.FitAndFurious exposing (fitAndFurious)
import Config.Pages.Interviews.Episodes.FoolproofMastery exposing (foolproofMastery)
import Config.Pages.Interviews.Episodes.KetogeeksPodcast exposing (ketoGeeksPodcast)
import Config.Pages.Interviews.Episodes.LegendaryLifePodcast exposing (legendaryLifePodcast)
import Config.Pages.Interviews.Episodes.MarkBellsPowerProject exposing (markBellsPowerProject)
import Config.Pages.Interviews.Episodes.MuscleMemoirsPodcast exposing (muscleMemoirsPodcast)
import Config.Pages.Interviews.Episodes.SigmaNutritionRadio exposing (sigmaNutritionRadio)
import Config.Pages.Interviews.Episodes.StrenuousLifePodcast exposing (strenuousLifePodcast)
import Config.Pages.Interviews.Helpers exposing (..)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Border as D
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.Interviews exposing (interviewHeader)
import Html
import Html.Attributes as H exposing (style)
import Interviews.Episodes.DrShawnBakerPodcast exposing (drShawnBakerPodcast)
import Interviews.Episodes.FitAndFurious exposing (fitAndFurious)
import Interviews.Episodes.FoolproofMastery exposing (foolproofMastery)
import Interviews.Episodes.KetogeeksPodcast exposing (ketoGeeksPodcast)
import Interviews.Episodes.LegendaryLifePodcast exposing (legendaryLifePodcast)
import Interviews.Episodes.MarkBellsPowerProject exposing (markBellsPowerProject)
import Interviews.Episodes.MuscleMemoirsPodcast exposing (muscleMemoirsPodcast)
import Interviews.Episodes.SigmaNutritionRadio exposing (sigmaNutritionRadio)
import Interviews.Episodes.StrenuousLifePodcast exposing (strenuousLifePodcast)
import Interviews.Helpers exposing (..)
import Element as E exposing (..)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Interviews exposing (interviewHeader)
import Layouts
import List exposing (head)
import Page exposing (Page)
import Route exposing (Route)
import Shared

View file

@ -1,8 +1,11 @@
module Pages.NotFound_ exposing (Model, Msg, page)
import Config.Response exposing (..)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Effect exposing (Effect)
import Html exposing (..)
import Layouts
import Page exposing (Page)
import Route exposing (Route)

View file

@ -1,26 +1,22 @@
module Pages.Nutridex exposing (Model, Msg, page)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Donate.Types exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Products.Helpers exposing (..)
import Config.Pages.Products.NutriDex.NutriDex exposing (productNutriDex)
import Config.Style.Colour exposing (colourTheme)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B exposing (..)
import Element.Border as D exposing (..)
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.Donate exposing (donateHeader)
import Headers.Pages.NutriDex exposing (nutriDexHeader)
import Html
import Html.Attributes as H exposing (style)
import Layout exposing (..)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Donate exposing (donateHeader)
import Config.Pages.Headers.Pages.NutriDex exposing (nutriDexHeader)
import Layouts
import Page exposing (Page)
import Products.Helpers exposing (..)
import Products.NutriDex.NutriDex exposing (productNutriDex)
import Route exposing (Route)
import Shared exposing (..)
import View exposing (View)

View file

@ -1,25 +1,26 @@
module Pages.Services exposing (Model, Msg, page)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Services exposing (servicesHeader)
import Config.Pages.Services.Helpers exposing (..)
import Config.Pages.Services.Offerings.DebateAnalysis exposing (..)
import Config.Pages.Services.Offerings.DebateTutoring exposing (..)
import Config.Pages.Services.Offerings.ElmBuilds exposing (..)
import Config.Pages.Services.Offerings.NixBuilds exposing (..)
import Config.Pages.Services.Offerings.NutritionScience exposing (..)
import Config.Style.Colour as T exposing (..)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.Services exposing (servicesHeader)
import Html.Attributes as H exposing (style)
import Element as E exposing (..)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
import Services.Helpers exposing (..)
import Services.Offerings.DebateAnalysis exposing (..)
import Services.Offerings.DebateTutoring exposing (..)
import Services.Offerings.ElmBuilds exposing (..)
import Services.Offerings.NixBuilds exposing (..)
import Services.Offerings.NutritionScience exposing (..)
import Shared exposing (..)
import View exposing (View)