feat: lots of work

This commit is contained in:
Nick 2024-12-08 02:18:36 -06:00
parent 4a19d6eb06
commit 848038b62b
158 changed files with 1361 additions and 685 deletions

View file

@ -5,59 +5,9 @@ import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Debate.Arguments.Abortion exposing (..)
import Debate.Arguments.Agnosticism exposing (..)
import Debate.Arguments.AgriculturalPredation exposing (..)
import Debate.Arguments.AnabolicKeto exposing (..)
import Debate.Arguments.AnimalRights exposing (..)
import Debate.Arguments.AntagonisticPleiotropy exposing (..)
import Debate.Arguments.AntiRewilding exposing (..)
import Debate.Arguments.AntiVandalism exposing (..)
import Debate.Arguments.ApoBCVD exposing (..)
import Debate.Arguments.BoobyTrapPagers exposing (..)
import Debate.Arguments.CarbsObesity exposing (..)
import Debate.Arguments.ColonizingNature exposing (..)
import Debate.Arguments.CropDeaths exposing (..)
import Debate.Arguments.DairyCowRape exposing (..)
import Debate.Arguments.DietaryCholesterol exposing (..)
import Debate.Arguments.EfilismPatrolSquad exposing (..)
import Debate.Arguments.EpidemiologyCausality exposing (..)
import Debate.Arguments.EthicalSlurs exposing (..)
import Debate.Arguments.FineTuning exposing (..)
import Debate.Arguments.FlatEarthDebunk exposing (..)
import Debate.Arguments.FructoseNAFLD exposing (..)
import Debate.Arguments.HealthPromotingFoods exposing (..)
import Debate.Arguments.HealthSeeker exposing (..)
import Debate.Arguments.HealthyChocolate exposing (..)
import Debate.Arguments.HealthyDairy exposing (..)
import Debate.Arguments.HealthyFattyFish exposing (..)
import Debate.Arguments.HealthyFibre exposing (..)
import Debate.Arguments.HealthyFood exposing (..)
import Debate.Arguments.HealthyPlantFoods exposing (..)
import Debate.Arguments.HealthySeedOils exposing (..)
import Debate.Arguments.HealthySoy exposing (..)
import Debate.Arguments.ImmortalityReductio exposing (..)
import Debate.Arguments.Malondialdehyde exposing (..)
import Debate.Arguments.OddOrderPredators exposing (..)
import Debate.Arguments.Omega3Omega6Ratio exposing (..)
import Debate.Arguments.Ostroveganism exposing (..)
import Debate.Arguments.PlantBasedCVDReversal exposing (..)
import Debate.Arguments.PollinationReductio exposing (..)
import Debate.Arguments.PolyphenolReductio exposing (..)
import Debate.Arguments.ScratcherPioneers exposing (..)
import Debate.Arguments.SodiumCVD exposing (..)
import Debate.Arguments.TMAOCausality exposing (..)
import Debate.Arguments.Template exposing (argument)
import Debate.Arguments.TransPeople exposing (..)
import Debate.Arguments.TruncatedMeta exposing (..)
import Debate.Arguments.UnhealthyCoconutOil exposing (..)
import Debate.Arguments.UnhealthyProcessedMeat exposing (..)
import Debate.Arguments.UnhealthyRedMeat exposing (..)
import Debate.Arguments.UnhealthySaturatedFat exposing (..)
import Debate.Arguments.VeganSocietyReductio exposing (..)
import Debate.Arguments.Helpers exposing (..)
import Debate.Arguments.Types exposing (..)
import Debate.Gibberish.Helpers exposing (..)
import Debate.Helpers exposing (..)
import Debate.Types exposing (..)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Border as D exposing (..)
@ -143,7 +93,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageDebate
{ title = "debate (" ++ pageNames.pageArguments ++ ")"
, attributes = []
, element = debateContainer shared.device
}
@ -175,54 +125,5 @@ debateList device =
_ ->
List.map argumentMaker
)
[ argumentApoBCVD
, argumentAnabolicKeto
, argumentAntagonisticPleiotropy
, argumentCarbsObesity
, argumentDietaryCholesterol
, argumentFructoseNAFLD
, argumentHealthPromotingFoods
, argumentHealthSeeker
, argumentHealthyChocolate
, argumentHealthyDairy
, argumentHealthyFattyFish
, argumentHealthyFibre
, argumentHealthyFood
, argumentHealthyPlantFoods
, argumentHealthySeedOils
, argumentHealthySoy
, argumentMalondialdehyde
, argumentOmega3Omega6Ratio
, argumentPlantBasedCVDReversal
, argumentPolyphenolReductio
, argumentSodiumCVD
, argumentTMAOCausality
, argumentUnhealthyCoconutOil
, argumentUnhealthyProcessedMeat
, argumentUnhealthyRedMeat
, argumentUnhealthySaturatedFat
, argumentAbortion
, argumentAgnosticism
, argumentAgriculturalPredation
, argumentAnimalRights
, argumentAntiRewilding
, argumentAntiVandalism
, argumentColonizingNature
, argumentCropDeaths
, argumentDairyCowRape
, argumentEfilismPatrolSquad
, argumentEthicalSlurs
, argumentFineTuning
, argumentImmortalityReductio
, argumentOddOrderPredators
, argumentOstroveganism
, argumentPollinationReductio
, argumentScratcherPioneers
, argumentTransPeople
, argumentVeganSocietyReductio
, argumentBoobyTrapPagers
, argumentEpidemiologyCausality
, argumentFlatEarthDebunk
, argumentTruncatedMeta
]
argumentList
]

View file

@ -87,7 +87,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageContact
{ title = pageNames.pageContact ++ " ( )"
, attributes = []
, element = contactContainer shared.device
}

View file

@ -5,73 +5,7 @@ import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Config.Response exposing (..)
import Config.Viewport exposing (..)
import Cuckery.CuckList.AdamSinger.AdamSinger exposing (cuckAdamSinger)
import Cuckery.CuckList.AmberOHearn.AmberOHearn exposing (cuckAmberOHearn)
import Cuckery.CuckList.AnnChilders.AnnChilders exposing (cuckAnnChilders)
import Cuckery.CuckList.AnthonyGustin.AnthonyGustin exposing (cuckAnthonyGustin)
import Cuckery.CuckList.AshwaniGarg.AshwaniGarg exposing (cuckAshwaniGarg)
import Cuckery.CuckList.AustinHerbert.AustinHerbert exposing (cuckAustinHerbert)
import Cuckery.CuckList.BartKay.BartKay exposing (cuckBartKay)
import Cuckery.CuckList.BenBikman.BenBikman exposing (cuckBenBikman)
import Cuckery.CuckList.BennyMalone.BennyMalone exposing (cuckBennyMalone)
import Cuckery.CuckList.BradCampbell.BradCampbell exposing (cuckBradCampbell)
import Cuckery.CuckList.BradCohn.BradCohn exposing (cuckBradCohn)
import Cuckery.CuckList.BradMarshall.BradMarshall exposing (cuckBradMarshall)
import Cuckery.CuckList.BretWeinstein.BretWeinstein exposing (cuckBretWeinstein)
import Cuckery.CuckList.BrianKerley.BrianKerley exposing (cuckBrianKerley)
import Cuckery.CuckList.CarnivoreAurelius.CarnivoreAurelius exposing (cuckCarnivoreAurelius)
import Cuckery.CuckList.CateShanahan.CateShanahan exposing (cuckCateShanahan)
import Cuckery.CuckList.ChrisBoettcher.ChrisBoettcher exposing (cuckChrisBoettcher)
import Cuckery.CuckList.ClaraAboel.ClaraAboel exposing (cuckClaraAboel)
import Cuckery.CuckList.CliffHarvey.CliffHarvey exposing (cuckCliffHarvey)
import Cuckery.CuckList.DaveFeldman.DaveFeldman exposing (cuckDaveFeldman)
import Cuckery.CuckList.DavidDiamond.DavidDiamond exposing (cuckDavidDiamond)
import Cuckery.CuckList.DavidGornoski.DavidGornoski exposing (cuckDavidGornoski)
import Cuckery.CuckList.DianaRodgers.DianaRodgers exposing (cuckDianaRodgers)
import Cuckery.CuckList.EdwardGoeke.EdwardGoeke exposing (cuckEdwardGoeke)
import Cuckery.CuckList.ElieJarrouge.ElieJarrouge exposing (cuckElieJarrouge)
import Cuckery.CuckList.GaryBrecka.GaryBrecka exposing (cuckGaryBrecka)
import Cuckery.CuckList.GaryFettke.GaryFettke exposing (cuckGaryFettke)
import Cuckery.CuckList.GaryTaubes.GaryTaubes exposing (cuckGaryTaubes)
import Cuckery.CuckList.GeorgeMartin.GeorgeMartin exposing (cuckGeorgeMartin)
import Cuckery.CuckList.GuyAustin.GuyAustin exposing (cuckGuyAustin)
import Cuckery.CuckList.IvorCummins.IvorCummins exposing (cuckIvorCummins)
import Cuckery.CuckList.JakeMey.JakeMey exposing (cuckJakeMey)
import Cuckery.CuckList.JamesDiNicolantonio.JamesDiNicolantonio exposing (cuckJamesDiNicolantonio)
import Cuckery.CuckList.JosephEverett.JosephEverett exposing (cuckJosephEverett)
import Cuckery.CuckList.JustinMares.JustinMares exposing (cuckJustinMares)
import Cuckery.CuckList.KaitMalthaner.KaitMalthaner exposing (cuckKaitMalthaner)
import Cuckery.CuckList.KemMinnick.KemMinnick exposing (cuckKemMinnick)
import Cuckery.CuckList.KenBerry.KenBerry exposing (cuckKenBerry)
import Cuckery.CuckList.KevinStock.KevinStock exposing (cuckKevinStock)
import Cuckery.CuckList.KyleMamounis.KyleMamounis exposing (cuckKyleMamounis)
import Cuckery.CuckList.MarkSisson.MarkSisson exposing (cuckMarkSisson)
import Cuckery.CuckList.MartyKendall.MartyKendall exposing (cuckMartyKendall)
import Cuckery.CuckList.MaxLugavere.MaxLugavere exposing (cuckMaxLugavere)
import Cuckery.CuckList.MichaelKummer.MichaelKummer exposing (cuckMichaelKummer)
import Cuckery.CuckList.MichaelManderville.MichaelManderville exposing (cuckMichaelManderville)
import Cuckery.CuckList.MikeMutzel.MikeMutzel exposing (cuckMikeMutzel)
import Cuckery.CuckList.MikeSweeney.MikeSweeney exposing (cuckMikeSweeney)
import Cuckery.CuckList.NickEggleton.NickEggleton exposing (cuckNickEggleton)
import Cuckery.CuckList.NinaTeicholz.NinaTeicholz exposing (cuckNinaTeicholz)
import Cuckery.CuckList.NorstrongChris.NorstrongChris exposing (cuckNorstrongChris)
import Cuckery.CuckList.PaulMason.PaulMason exposing (cuckPaulMason)
import Cuckery.CuckList.PaulSaladino.PaulSaladino exposing (cuckPaulSaladino)
import Cuckery.CuckList.PhilipOvadia.PhilipOvadia exposing (cuckPhilipOvadia)
import Cuckery.CuckList.PhilippeStephenson.PhilippeStephenson exposing (cuckPhilippeStephenson)
import Cuckery.CuckList.RalphNapolitano.RalphNapolitano exposing (cuckRalphNapolitano)
import Cuckery.CuckList.RaphaelSirtoli.RaphaelSirtoli exposing (cuckRaphaelSirtoli)
import Cuckery.CuckList.RobMeijer.RobMeijer exposing (cuckRobMeijer)
import Cuckery.CuckList.RobbWolf.RobbWolf exposing (cuckRobbWolf)
import Cuckery.CuckList.SebastianRamirez.SebastianRamirez exposing (cuckSebastianRamirez)
import Cuckery.CuckList.SimonGoddek.SimonGoddek exposing (cuckSimonGoddek)
import Cuckery.CuckList.TravisStatham.TravisStatham exposing (cuckTravisStatham)
import Cuckery.CuckList.TristanHaggard.TristanHaggard exposing (cuckTristanHaggard)
import Cuckery.CuckList.TroKalayjian.TroKalayjian exposing (cuckTroKalayjian)
import Cuckery.CuckList.TuckerGoodrich.TuckerGoodrich exposing (cuckTuckerGoodrich)
import Cuckery.CuckList.ZoeHarcombe.ZoeHarcombe exposing (cuckZoeHarcombe)
import Cuckery.CuckList.ZsofiaClemens.ZsofiaClemens exposing (cuckZsofiaClemens)
import Cuckery.Helpers exposing (..)
import Debate.Cuckery.Helpers exposing (..)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Border as D
@ -151,7 +85,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageCucks
{ title = "debate (" ++ pageNames.pageCucks ++ ")"
, attributes = []
, element = dodgersContainer shared.device
}
@ -183,71 +117,5 @@ dodgersList device =
_ ->
List.map cuckMaker
)
[ cuckAdamSinger
, cuckAmberOHearn
, cuckAnnChilders
, cuckAnthonyGustin
, cuckAshwaniGarg
, cuckAustinHerbert
, cuckBartKay
, cuckBenBikman
, cuckBennyMalone
, cuckBradCampbell
, cuckBradCohn
, cuckBradMarshall
, cuckBretWeinstein
, cuckBrianKerley
, cuckCarnivoreAurelius
, cuckCateShanahan
, cuckChrisBoettcher
, cuckClaraAboel
, cuckCliffHarvey
, cuckDaveFeldman
, cuckDavidDiamond
, cuckDavidGornoski
, cuckDianaRodgers
, cuckEdwardGoeke
, cuckElieJarrouge
, cuckGaryBrecka
, cuckGaryFettke
, cuckGaryTaubes
, cuckGeorgeMartin
, cuckGuyAustin
, cuckIvorCummins
, cuckJakeMey
, cuckJamesDiNicolantonio
, cuckJosephEverett
, cuckJustinMares
, cuckKaitMalthaner
, cuckKemMinnick
, cuckKenBerry
, cuckKevinStock
, cuckKyleMamounis
, cuckMarkSisson
, cuckMartyKendall
, cuckMaxLugavere
, cuckMichaelKummer
, cuckMichaelManderville
, cuckMikeMutzel
, cuckMikeSweeney
, cuckNickEggleton
, cuckNinaTeicholz
, cuckNorstrongChris
, cuckPaulMason
, cuckPaulSaladino
, cuckPhilipOvadia
, cuckPhilippeStephenson
, cuckRalphNapolitano
, cuckRaphaelSirtoli
, cuckRobbWolf
, cuckRobMeijer
, cuckSebastianRamirez
, cuckSimonGoddek
, cuckTravisStatham
, cuckTristanHaggard
, cuckTroKalayjian
, cuckTuckerGoodrich
, cuckZoeHarcombe
, cuckZsofiaClemens
]
cuckList
]

View file

@ -0,0 +1,111 @@
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 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)
import Shared exposing (..)
import Task
import View exposing (View)
page : Shared.Model -> Route () -> Page Model Msg
page shared route =
Page.new
{ init = init
, update = update
, subscriptions = subscriptions
, view = view shared
}
|> Page.withLayout toLayout
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar {}
-- INIT
type alias Model =
{}
init : () -> ( Model, Effect Msg )
init () =
( {}
, Effect.none
)
-- UPDATE
type Msg
= NoOp
update : Msg -> Model -> ( Model, Effect Msg )
update msg model =
case msg of
NoOp ->
( model
, Effect.none
)
-- SUBSCRIPTIONS
subscriptions : Model -> Sub Msg
subscriptions model =
Sub.none
-- VIEW
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageDebate ++ " ( )"
, attributes = []
, element = debateContainer shared.device
}
debateContainer : Device -> Element msg
debateContainer device =
topLevelContainer (debateList device)
debateList : Device -> Element msg
debateList device =
column pageListDesktop
(case ( device.class, device.orientation ) of
_ ->
[ debateMaker ]
)

View file

@ -96,7 +96,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageDonate
{ title = pageNames.pageDonate ++ " ( )"
, attributes = []
, element = donateContainer shared.device
}

View file

@ -5,6 +5,8 @@ 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)
@ -13,8 +15,6 @@ 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 Debate.Helpers exposing (..)
import Debate.Types exposing (..)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Border as D exposing (..)
@ -100,7 +100,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageGibberish
{ title = "debate (" ++ pageNames.pageGibberish ++ ")"
, attributes = []
, element = gibberishContainer shared.device
}

View file

@ -85,7 +85,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageHome
{ title = pageNames.pageHome ++ " ( )"
, attributes = []
, element = homeContainer shared.device
}

View file

@ -96,7 +96,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageInterviews
{ title = pageNames.pageInterviews ++ " ( )"
, attributes = []
, element = interviewContainer shared.device
}

View file

@ -1,13 +1,15 @@
module Pages.NotFound_ exposing (Model, Msg, page)
import Config.Response exposing (..)
import Effect exposing (Effect)
import Html exposing (..)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
import Route.Path
import Shared
import View exposing (View)
import Config.Response exposing (..)
page : Shared.Model -> Route () -> Page Model Msg
page shared route =
@ -17,6 +19,12 @@ page shared route =
, subscriptions = subscriptions
, view = view
}
|> Page.withLayout toLayout
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar {}

View file

@ -91,7 +91,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageNutriDex
{ title = pageNames.pageNutriDex ++ " ( )"
, attributes = []
, element = nutriDexContainer shared.device
}

View file

@ -89,7 +89,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageServices
{ title = pageNames.pageServices ++ " ( )"
, attributes = []
, element = servicesContainer shared.device
}