upRootNutrition/website
1
0
Fork 0
mirror of https://gitlab.com/upRootNutrition/website.git synced 2025-06-16 20:35:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: refactored a shit ton of stuff

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

8
frontend/src/Config/Data/Hashtags/Helpers.elm Executable file
View file

@ -0,0 +1,8 @@
module Config.Data.Hashtags.Helpers exposing (..)
import Config.Data.Hashtags.Types exposing (..)
hashtagMaker : List a
hashtagMaker =
[]

433
frontend/src/Config/Data/Hashtags/Types.elm Executable file
View file

@ -0,0 +1,433 @@
module Config.Data.Hashtags.Types exposing (..)
type Hashtags
= Agriculture
| AgricultureAnimal
| AgriculturePlant
| AllCauseMortality
| AncestryAntagonisticPleiotropy
| AncestryHunterGatherers
| AncestryPrimitiveCultures
| Animals
| AnimalsBivalves
| AnimalsCats
| AnimalsChickens
| AnimalsCrustaceans
| AnimalsDogs
| AnimalsOrca
| AnimalsPredators
| AnimalsShellfish
| Assays4E6
| AssaysE06
| BloodGlucose
| BloodLipids
| BloodLipidsCholesterol
| BloodLipidsTriglycerides
| Cancer
| CancerBladderCancer
| CancerBreastCancer
| CancerColonCancer
| CancerColorectalCancer
| CancerDistalColonCancer
| CancerEndometrialCancer
| CancerEsophagealCancer
| CancerGasticCancer
| CancerLungCancer
| CancerOvarianCancer
| CancerPancreaticCancer
| CancerProstateCancer
| CancerRectalCancer
| CancerSkinCancer
| CancerStomachCancer
| Carbohydrates
| CarbohydratesFructose
| CarbohydratesGlucose
| CarbohydratesSugar
| Cuckery
| CuckeryFlatEarth
| CuckeryLMHR
| CuckPapers
| Cucks
| Debate
| DebateArguments
| DebateCoursework
| DebateModeration
| DebateOpponents
| DietsAncestral
| DietsAnimalBased
| DietsCarnivore
| DietsDietaryGuidelines
| DietsEucaloric
| DietsFasting
| DietsHighCarbohydrate
| DietsHypercaloric
| DietsHypocaloric
| DietsKeto
| DietsLowCarbohydrate
| DietsMediterraneanDiet
| DietsPaleo
| DietsPlantBased
| DietsStandardAmericanDiet
| DietsTimeRestrictedFeeding
| DietsVegetarian
| Disease
| DiseaseAFib
| DiseaseAnemia
| DiseaseArrythmia
| DiseaseAtherosclerosis
| DiseaseAutoImmune
| DiseaseBronchitis
| DiseaseCardiovascular
| DiseaseCeliacDisease
| DiseaseCholestasis
| DiseaseCognitiveDecline
| DiseaseColonPolyops
| DiseaseConstipation
| DiseaseCoronaryArteryCalcification
| DiseaseCoronaryHeart
| DiseaseCOVID19
| DiseaseDementia
| DiseaseDepression
| DiseaseDisability
| DiseaseDiverticularDisease
| DiseaseEmphysema
| DiseaseErectileDysfunction
| DiseaseFracture
| DiseaseFrailty
| DiseaseGallstones
| DiseaseHeartAttack
| DiseaseHeartDisease
| DiseaseHeartFailure
| DiseaseHyperphagia
| DiseaseHypertensions
| DiseaseHypothyroidism
| DiseaseInflammation
| DiseaseKidneyDisease
| DiseaseKidneyStones
| DiseaseLupus
| DiseaseMacularDegeneration
| DiseaseMentalIllness
| DiseaseMetabolicSyndrome
| DiseaseMoodDisorders
| DiseaseMortality
| DiseaseNAFLD
| DiseaseNeuroDegenerative
| DiseaseNutrientDeficiency
| DiseaseObesity
| DiseaseOsteoporosis
| DiseaseOverweight
| DiseaseRespiratoryDisease
| DiseaseSchizophrenia
| DiseaseScurvy
| DiseaseSepsis
| DiseaseStenosis
| DiseaseStroke
| DiseaseSunburn
| DiseaseThrombosis
| DiseaseTinnitus
| DiseaseType1Diabetes
| DiseaseType2Diabetes
| DiseaseUlcerativeColitis
| DiseaseUnderweight
| DiseaseVisionLoss
| Evolution
| Exercise
| ExerciseAgility
| ExerciseFitness
| ExerciseHypertrophy
| Fallacies
| FallaciesAppealFromIncredulity
| FallaciesAppealToAuthority
| FallaciesAppealToIgnorance
| FallaciesAppealToNature
| FallaciesBeggingTheQuestion
| FallaciesEcological
| FallaciesEquivocation
| FallaciesGeneticFallacy
| FallaciesMechanisticSpeculation
| FallaciesMuddyingTheWaters
| FallaciesRedHerring
| FallaciesStrawman
| FatMonounsaturated
| FatPolyunsaturated
| FatsAnimal
| FatsArachidonicAcid
| FatSaturated
| FatsDHA
| FatsDietary
| FatsEPA
| FatsLinoleicAcid
| FatsMCTs
| FatsOmega3
| FatsOmega6
| FatsPlant
| FatsStearicAcid
| FatsTrans
| FoodsAlmonds
| FoodsAnimal
| FoodsAnimalFoods
| FoodsAvocado
| FoodsBeef
| FoodsBread
| FoodsBreakfastCereals
| FoodsBreastMilk
| FoodsBrewedDrinks
| FoodsButter
| FoodsCanolaOil
| FoodsCereals
| FoodsCheese
| FoodsChocolate
| FoodsCoconutOil
| FoodsCoffee
| FoodsCulturedMeat
| FoodsDairy
| FoodsEggs
| FoodsFermentedFoods
| FoodsFish
| FoodsFishOil
| FoodsFlaxseeds
| FoodsFrenchFries
| FoodsFriedFoods
| FoodsFruit
| FoodsGoldenRice
| FoodsGreenTea
| FoodsHazelnuts
| FoodsJuice
| FoodsLegumes
| FoodsMargarine
| FoodsMayonnaise
| FoodsMeat
| FoodsMilk
| FoodsMockMeats
| FoodsMushroom
| FoodsNuts
| FoodsOats
| FoodsOliveOil
| FoodsOrgans
| FoodsPalmOil
| FoodsPlant
| FoodsPork
| FoodsPotatoes
| FoodsPoultry
| FoodsProcessedFood
| FoodsProcessedMeat
| FoodsRedMeat
| FoodsRefinedGrains
| FoodsSeafood
| FoodsSeedOils
| FoodsSoybeanOil
| FoodsSoyProducts
| FoodsSugarSweetenedBeverages
| FoodsTofu
| FoodsTomatoes
| FoodsTurmeric
| FoodsUltraProcessed
| FoodsVegetables
| FoodsWalnuts
| FoodsWheat
| FoodsWhey
| FoodsWhiteMeat
| FoodsWholeFoods
| FoodsWholeGrains
| FoodsYeast
| FoodsYogurt
| HealthAnthropometrics
| HealthBodyWeight
| HealthDigestion
| HealthEnergyIntake
| HealthFertility
| HealthGutHealth
| HealthLifestyle
| HealthLongevity
| HealthMasturbation
| HealthNutritionalStatus
| HealthSelfImprovement
| HealthSkin
| HealthSmoking
| HealthSunlight
| HealthTattooing
| HealthWeightGain
| HealthWeightLoss
| Humans
| HumansAdolescents
| HumansChildDevelopment
| HumansChildren
| HumansFemaleHealth
| HumansGrowth
| HumansInfants
| HumansMaleHealth
| HumansTransGender
| LipoProteinsApoA
| LipoProteinsApoB
| LipoproteinsChylomicrons
| LipoProteinsHighDensity
| LipoProteinsLowDensity
| LipoProteinsLPA
| LipoProteinsNonHDL
| LipoProteinsOxidizedLowDensity
| LipoProteinsVeryLowDensity
| MarkersAbdominalFat
| MarkersAcrylamide
| MarkersAutoAntibodies
| MarkersBiomarkers
| MarkersBloodPressure
| MarkersBMI
| MarkersBodyOdor
| MarkersBoneMineralDensity
| MarkersCognitiveFunction
| MarkersCReactiveProtein
| MarkersDMA
| MarkersEndothelialFunction
| MarkersEnergyExpenditure
| MarkersFlowMediatedDilation
| MarkersGlucoseTolerance
| MarkersHbA1C
| MarkersHeartRate
| MarkersHOMAIR
| MarkersHormones
| MarkersIGF1
| MarkersImmuneFunction
| MarkersInsulin
| MarkersInsulinSensitivity
| MarkersInterleukin6
| MarkersKetones
| MarkersLiverEnzymes
| MarkersLiverFunction
| MarkersLPS
| MarkersMalondialdehyde
| MarkersMicrobiome
| MarkersOxidativeStress
| MarkersPCSK9
| MarkersSatiety
| MarkersSexHormones
| MarkersSNPs
| MarkersTestosterone
| MarkersTMAO
| MarkersTNF
| MarkersVisceralFat
| MedicationsCETPInhibitors
| MedicationsPCSK9Inhibitors
| MedicationsStatins
| Nutrients
| NutrientsAlcohol
| NutrientsAnimal
| NutrientsAntiNutrient
| NutrientsAntioxidants
| NutrientsArtificialSweeteners
| NutrientsB12
| NutrientsBetaCarotene
| NutrientsBioavailability
| NutrientsBiotin
| NutrientsCalcium
| NutrientsCarotenoids
| NutrientsCasein
| NutrientsCholine
| NutrientsCreatine
| NutrientsDietaryCholesterol
| NutrientsFat
| NutrientsFibre
| NutrientsFibreInsoluble
| NutrientsFibreSoluble
| NutrientsFODMAPs
| NutrientsGluten
| NutrientsGoitrogens
| NutrientsIsoflavones
| NutrientsK2
| NutrientsLCarnitine
| NutrientsLectins
| NutrientsManganese
| NutrientsMinerals
| NutrientSodium
| NutrientsOxalate
| NutrientsPhosphorus
| NutrientsPhytate
| NutrientsPhytoEstrogens
| NutrientsPhytosterols
| NutrientsPolyphenols
| NutrientsSupplements
| NutrientsTannins
| NutrientsTaurine
| NutrientsVitaminA
| NutrientsVitaminB5
| NutrientsVitaminB6
| NutrientsVitaminC
| NutrientsVitaminD
| NutrientsVitaminE
| Nutrition
| Philosophy
| PhilosophyAntiNatalism
| PhilosophyAutopoiesis
| PhilosophyCausalInference
| PhilosophyDeMorgansLaw
| PhilosophyEfilism
| PhilosophyEpistemology
| PhilosophyEthics
| PhilosophyLinguisticPrescriptivism
| PhilosophyModalLogic
| PhilosophyMoralRealism
| PhilosophyMoralSubjectivism
| PhilosophyPredicateLogic
| PhilosophyPropositionalLogic
| PhilosophySentience
| PhysiologyAdiposeTissue
| PhysiologyAndrogens
| PhysiologyDeNovoLipogenesis
| PhysiologyEjaculation
| PhysiologyGluconeogenesis
| PhysiologyGlycogen
| PhysiologyLPL
| PhysiologyMetabolism
| PhysiologyPostMenopause
| PhysiologyPreMenopause
| PhysiologySenescence
| PhysiologySubendothelialSpace
| PlantsAlgae
| PoliticsAbortion
| PoliticsIsraelPalestine
| ProteinAnimal
| ProteinPlant
| Proteoglycans
| ResearchAnthropology
| ResearchArcheology
| ResearchBradfordHill
| ResearchCardiology
| ResearchCaseControl
| ResearchClimateScience
| ResearchClinicalTrials
| ResearchCohortStudies
| ResearchDermatology
| ResearchDIAAS
| ResearchDoseResponse
| ResearchEconomics
| ResearchEpidemiology
| ResearchEvidenceHierarchy
| ResearchFFQs
| ResearchGenetics
| ResearchGlycemicIndex
| ResearchGlycemicLoad
| ResearchImmunology
| ResearchKinetics
| ResearchLipidology
| ResearchMendelianRandomization
| ResearchMetaAnalysis
| ResearchMetaRegression
| ResearchMice
| ResearchMulticollinearity
| ResearchNutritionScience
| ResearchOphthalmology
| ResearchPDCAAS
| ResearchPhysiology
| ResearchPsychology
| ResearchRandomizedControlledTrial
| ResearchSexuality
| ResearchSubstitionAnalysis
| ResearchSurvivorshipBias
| ResearchSystematicReview
| ResearchVirology
| SocioEconomicStatus
| Veganism
| VeganismCropDeaths
| VeganismNameTheTrait

2
frontend/src/Config/Identity.elm → frontend/src/Config/Data/Identity.elm
View file

@ -1,4 +1,4 @@
module Config.Identity exposing (..)
module Config.Data.Identity exposing (..)
type alias PageInput =

181
frontend/src/Config/Format.elm
View file

@ -1,181 +0,0 @@
module Config.Format exposing (..)
import Config.Colour exposing (..)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D exposing (..)
import Element.Font as F
import Html exposing (col)
import Html.Attributes as H exposing (style)
topLevelContainer : Element msg -> Element msg
topLevelContainer =
el
[ E.width fill
, height fill
, centerX
, B.color colourTheme.backgroundLightGrey
, E.height E.fill
, scrollbarY
]
transitionStyle : Attribute msg
transitionStyle =
htmlAttribute <| style "transition" "all 0.3s ease-in-out"
transitionHighlightedLinkHover : Element msg -> Element msg
transitionHighlightedLinkHover =
el
[ mouseOver [ F.color colourTheme.textDarkOrange ]
, transitionStyle
]
transitionNonHighlightedLinkHover : Element msg -> Element msg
transitionNonHighlightedLinkHover =
el
[ mouseOver [ F.color colourTheme.textLightOrange ]
, transitionStyle
]
transitionNonHighlightedLinkHoverWithMove : Element msg -> Element msg
transitionNonHighlightedLinkHoverWithMove content =
el
[ E.width fill
, height (px 30)
]
(el
[ centerX
, centerY
, mouseOver [ F.color colourTheme.textLightOrange, F.size 25 ]
, transitionStyle
]
content
)
spartanFont : F.Font
spartanFont =
F.typeface "League Spartan"
navBarLinkFormat : List (Attr () msg)
navBarLinkFormat =
[ F.size 17
]
titleFormat : List (Attr () msg)
titleFormat =
[ F.size 23
, F.bold
]
nonHighlightedTitleFormat : List (Attr () msg)
nonHighlightedTitleFormat =
[ F.color colourTheme.textLightGrey
]
++ titleFormat
highlightedTitleFormat : List (Attr () msg)
highlightedTitleFormat =
[ F.color colourTheme.textLightOrange
]
++ titleFormat
paragraphFontSize : Attr decorative msg
paragraphFontSize =
F.size 17
paragraphLinkFormat : { url : String, label : Element msg } -> Element msg
paragraphLinkFormat =
newTabLink
[ paragraphFontSize
, F.color colourTheme.textLightOrange
]
paragraphSpacing : Attribute msg
paragraphSpacing =
spacing 3
paragraphText : List (Attr () msg)
paragraphText =
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
paragraphHightlightedBoldText : List (Attr () msg)
paragraphHightlightedBoldText =
[ F.color colourTheme.textLightOrange
, F.bold
, paragraphSpacing
, paragraphFontSize
]
paragraphFormat : List (Attr () msg)
paragraphFormat =
[]
++ paragraphText
paragraphBoldFormat : List (Attr () msg)
paragraphBoldFormat =
[ F.bold ]
++ paragraphText
paragraphAlignLeft : List (Attr () msg)
paragraphAlignLeft =
[ alignLeft ]
++ paragraphText
paragraphAlignCenter : List (Attr () msg)
paragraphAlignCenter =
[ centerX ]
++ paragraphText
basicDivider : Element msg
basicDivider =
el
[ E.width fill
, centerX
, D.widthEach { bottom = 1, top = 0, left = 0, right = 0 }
, D.color (rgb255 200 200 200)
, paddingEach { top = 40, bottom = 0, left = 0, right = 0 }
]
none
formatName : String -> String
formatName name =
name
|> String.toLower
|> String.replace " " ""
|> String.replace "'" ""
|> String.replace "." ""
|> String.replace "-" ""
glow : Attr decorative msg
glow =
D.glow colourTheme.backgroundDeepDarkGrey 8
glowHighlight : Attr decorative msg
glowHighlight =
D.glow colourTheme.textDeepDarkOrange 5

153
frontend/src/Config/CardFormat.elm → frontend/src/Config/Format/CardFormat.elm
View file

@ -1,19 +1,32 @@
module Config.CardFormat exposing (..)
module Config.Format.CardFormat exposing (..)
import Config.Colour exposing (..)
import Config.Format exposing (..)
import Debate.Cuckery.Types exposing (..)
import Effect exposing (Effect)
import Config.Data.Identity
exposing
( pageNames
, url
)
import Config.Format.Format
exposing
( paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Converters exposing (formatName)
import Config.Style.Colour exposing (colourTheme)
import Config.Style.Glow
exposing
( glowDeepDarkGrey
, glowDeepDarkOrange
)
import Config.Style.Transitions
exposing
( transitionStyleMedium
, transitionStyleSlow
)
import Element as E exposing (..)
import Element.Background as B exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html.Attributes as H exposing (style)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
import Shared
import View exposing (View)
import Html.Attributes as H
topLevelBox =
@ -38,7 +51,7 @@ cardMaker =
, centerX
, D.color colourTheme.backgroundDarkGrey
, D.rounded 32
, glow
, glowDeepDarkGrey
]
@ -68,7 +81,10 @@ cardFormatter =
cardSubTitleMaker : List (Element msg) -> Element msg
cardSubTitleMaker =
paragraph
(paragraphFormat
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.size 18
, centerX
, F.center
@ -91,7 +107,7 @@ cardContentSpacing =
cardImageMaker : { src : String, description : String } -> String -> Element msg
cardImageMaker image url =
cardImageMaker image urlLink =
column
[ E.width <| px 115
, E.height <| px 115
@ -101,35 +117,58 @@ cardImageMaker image url =
[ column
[ D.rounded 100
, D.width 5
, glow
, glowDeepDarkGrey
, D.color colourTheme.backgroundDarkGrey
, B.color colourTheme.backgroundDarkGrey
, mouseOver
[ D.color colourTheme.textDarkOrange
, B.color colourTheme.textDarkOrange
, glowHighlight
, glowDeepDarkOrange
]
, htmlAttribute <| style "transition" "all 0.3s ease-in-out"
, transitionStyleSlow
]
[ newTabLink []
{ url = url
, label =
E.image
[ alignRight
, alignTop
, D.rounded 100
, clip
, E.width <| px 90
, E.height <| px 90
]
image
}
[ if
urlLink
== (url ++ formatName pageNames.pageArguments)
|| urlLink
== (url ++ formatName pageNames.pageCucks)
|| urlLink
== (url ++ formatName pageNames.pageGibberish)
then
link []
{ url = urlLink
, label =
E.image
[ alignRight
, alignTop
, D.rounded 100
, clip
, E.width <| px 90
, E.height <| px 90
]
image
}
else
newTabLink []
{ url = urlLink
, label =
E.image
[ alignRight
, alignTop
, D.rounded 100
, clip
, E.width <| px 90
, E.height <| px 90
]
image
}
]
]
cardImageMakerMobile : { src : String, description : String } -> String -> Element msg
cardImageMakerMobile image url =
cardImageMakerMobile image urlLink =
column
[ alignTop
, centerX
@ -146,18 +185,18 @@ cardImageMakerMobile image url =
, D.width 5
, centerX
, alignBottom
, glow
, glowDeepDarkGrey
, D.color colourTheme.backgroundDeepDarkGrey
, B.color colourTheme.backgroundDeepDarkGrey
, mouseOver
[ D.color colourTheme.textDarkOrange
, B.color colourTheme.textDarkOrange
, glowHighlight
, glowDeepDarkOrange
]
, htmlAttribute <| style "transition" "all 0.3s ease-in-out"
, transitionStyleSlow
]
[ newTabLink []
{ url = url
{ url = urlLink
, label =
E.image
[ D.rounded 100
@ -175,27 +214,27 @@ cardImageMakerMobile image url =
cardTitleMaker : String -> Element msg
cardTitleMaker title =
paragraph
(nonHighlightedTitleFormat
++ [ F.size 20
, B.color colourTheme.textDarkOrange
, paddingEach
{ top = 6
, bottom = 3
, left = 25
, right = 15
}
, alignBottom
, width fill
, centerX
, F.center
, D.roundEach
{ topLeft = 26
, topRight = 26
, bottomRight = 0
, bottomLeft = 0
}
]
)
[ F.size 20
, F.bold
, F.color colourTheme.textLightGrey
, B.color colourTheme.textDarkOrange
, paddingEach
{ top = 6
, bottom = 3
, left = 0
, right = 0
}
, alignBottom
, width fill
, centerX
, F.center
, D.roundEach
{ topLeft = 26
, topRight = 26
, bottomRight = 0
, bottomLeft = 0
}
]
[ text title ]

13
frontend/src/Config/Format/Format.elm Executable file
View file

@ -0,0 +1,13 @@
module Config.Format.Format exposing (..)
import Element exposing (..)
import Element.Font as F
paragraphFontSize : Attr decorative msg
paragraphFontSize =
F.size 17
paragraphSpacing : Attribute msg
paragraphSpacing =
spacing 3

30
frontend/src/Config/Format/Response.elm Executable file
View file

@ -0,0 +1,30 @@
module Config.Format.Response exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Element as E exposing (..)
import Element.Background as B
topLevelContainer : Element msg -> Element msg
topLevelContainer =
el
[ width fill
, height fill
, centerX
, B.color colourTheme.backgroundLightGrey
, height fill
, scrollbarY
]
pageListDesktop : List (Attribute msg)
pageListDesktop =
[ spacing 30
, centerX
, alignTop
, height fill
, paddingEach { top = 30, bottom = 30, left = 30, right = 30 }
, width (fill |> minimum 100)
, width (fill |> maximum 875)
, scrollbarY
]

21
frontend/src/Config/Helpers/Converters.elm Normal file
View file

@ -0,0 +1,21 @@
module Config.Helpers.Converters exposing (..)
formatName : String -> String
formatName name =
name
|> String.toLower
|> String.replace " " ""
|> String.replace "'" ""
|> String.replace "." ""
|> String.replace "-" ""
|> String.replace "_" ""
formatSocial : String -> String
formatSocial name =
name
|> String.replace "https://x.com/" "@"
|> String.replace "https://www.threads.net/@" "@"
|> String.replace "https://bsky.app/profile/" "@"
|> String.replace "https://www.instagram.com/" "@"

18
frontend/src/Config/StrengthBar.elm → frontend/src/Config/Helpers/StrengthBar.elm
View file

@ -1,20 +1,10 @@
module Config.StrengthBar exposing (..)
module Config.Helpers.StrengthBar exposing (..)
import Config.Colour exposing (..)
import Config.Format exposing (..)
import Config.ToolTip exposing (..)
import Debate.Cuckery.Types exposing (..)
import Effect exposing (Effect)
import Config.Helpers.ToolTip exposing (..)
import Config.Style.Colour exposing (..)
import Element as E exposing (..)
import Element.Background as B exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html.Attributes as H exposing (style)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
import Shared
import View exposing (View)
barMaker : (Int -> String) -> Int -> Element msg

14
frontend/src/Config/ToolTip.elm → frontend/src/Config/Helpers/ToolTip.elm
View file

@ -1,24 +1,24 @@
module Config.ToolTip exposing (..)
module Config.Helpers.ToolTip exposing (..)
import Config.Colour exposing (..)
import Config.Style.Colour exposing (..)
import Config.Style.Transitions exposing (transitionStyleSlow)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D exposing (..)
import Element.Border as D
import Element.Font as F
import Html exposing (col)
import Html.Attributes as H exposing (style)
import Html.Attributes as H
tooltip : String -> Attribute msg
tooltip content =
inFront <|
el
[ E.width fill
[ width fill
, height fill
, transparent True
, mouseOver [ transparent False ]
, htmlAttribute <| H.style "z-index" "4"
, htmlAttribute <| style "transition" "all 0.3s ease-in-out"
, transitionStyleSlow
, below <|
el [ htmlAttribute (H.style "pointerEvents" "none") ] <|
el

13
frontend/src/Config/Helpers/Viewport.elm Executable file
View file

@ -0,0 +1,13 @@
module Config.Helpers.Viewport exposing (..)
import Browser.Dom as Dom exposing (setViewport)
import Task exposing (perform)
type Msg
= NoOp
resetViewport : Cmd Msg
resetViewport =
Task.perform (\_ -> NoOp) (Dom.setViewport 0 0)

489
frontend/src/Config/Pages/Contact/Helpers.elm Executable file
View file

@ -0,0 +1,489 @@
module Config.Pages.Contact.Helpers exposing (..)
import Config.Format.CardFormat exposing (..)
import Config.Format.Format exposing (..)
import Config.Helpers.StrengthBar
exposing
( barMaker
, barPadding
)
import Config.Helpers.ToolTip exposing (..)
import Config.Style.Colour exposing (..)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleSlow
)
import Config.Pages.Contact.Methods.Discord exposing (contactDiscord)
import Config.Pages.Contact.Types exposing (..)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Background as B exposing (..)
import Element.Border as D
import Element.Events exposing (onClick)
import Element.Font as F
import Config.Pages.Headers.Types exposing (..)
import Html.Attributes as H exposing (style)
import Html.Events exposing (onMouseOver)
import Config.Pages.Interviews.Types exposing (..)
import Layouts
import Page exposing (Page)
import Config.Pages.Products.Types exposing (..)
import Route exposing (Route)
import Shared
import View exposing (View)
contactMaker : Contact -> Element msg
contactMaker contact =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (contactTitle contact)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ linkMaker contact
, descriptionMaker contact
]
]
]
]
]
contactImage :
Contact
->
{ src : String
, description : String
}
contactImage contact =
{ src = "contact/" ++ contact.contactImage ++ ".png"
, description = contact.contactName
}
contactTitle : Contact -> String
contactTitle contact =
contact.contactName
descriptionMaker : Contact -> Element msg
descriptionMaker contact =
column
[ width fill
, height fill
]
[ paragraph [ width fill, F.size 15, spacing 10 ] <|
List.map makeDescription
contact.contactEntry
]
makeDescription : Method -> Element msg
makeDescription method =
paragraph
[ F.regular
, F.alignLeft
]
[ paragraph
[ F.color colourTheme.textLightGrey
]
[ text method.contactInstructions
]
]
linkMaker : Contact -> Element msg
linkMaker contact =
paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, spacing 8
]
)
[ newTabLink
[ paragraphFontSize
, F.color colourTheme.textLightOrange
]
{ url = contact.contactLink
, label =
el
[ transitionStyleSlow
, hoverFontDarkOrange
]
<|
text contact.contactLinkLabel
}
]
instructionMaker : Element msg
instructionMaker =
row
topLevelBox
[ cardMaker
[ cardTitleMaker "CONTACT"
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ instructionBody ]
]
]
]
]
]
instructionBody : Element msg
instructionBody =
column
[ spacing 10
, paddingEach
{ top = 10
, bottom = 0
, left = 0
, right = 0
}
]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text "The following terms may seem unreasonable to some, but after years on a large platform, I've learned the importance of filtering the criticisms I receive. Most feedback I receive is just vague gesturing and lacks substance, making some sort of quality filter essential. Thank you for your patience and understanding." ]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text "Please keep in mind that any failure to comply with the following terms and conditions will forfeit your access to my time and attention. I ask that you respect my time and read these terms carefully. You are the one requesting an audience with me, and my time is mine to donate as I see fit. If you wish to submit your criticisms, you must do so on my terms, following the rules and conditions that streamline the process for me." ]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.center
, width fill
, paddingEach
{ top = 10
, bottom = 10
, left = 0
, right = 0
}
]
)
[ el
[ F.color colourTheme.textLightOrange
, F.size 18
]
<|
text "Terms and Conditions"
]
, column [ spacing 10 ] <|
List.indexedMap
(\index term ->
row
[ spacing 10
, width fill
]
[ column
[ width <| px 15
, alignTop
]
[ el [ alignRight ] <| text (String.fromInt (index + 1) ++ ". ") ]
, column
[ spacing 10
, width fill
, alignRight
]
[ paragraph
[ width fill
, F.size 16
, F.alignLeft
]
term
]
]
)
termsAndConditions
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.center
, width fill
, paddingEach
{ top = 10
, bottom = 10
, left = 0
, right = 0
}
]
)
[ el
[ F.color colourTheme.textLightOrange
, F.size 18
]
<|
text "Additional Clarifications"
]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text "• "
, text "You are only allowed to post one criticism at a time in the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎┃criticism"
}
, text " channel. You may post an additional criticism only after the previous one has been addressed and resolved to my satisfaction. This policy aims to reduce spamming, rambling, and Gish galloping, and to encourage linear discourse."
]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text "• ", text "You may or may not be asked to voice chat about your criticism. While your willingness to engage in voice chat is a necessary condition for submitting your criticism, it does not guarantee that a voice chat will be requested. If your initial criticism is clear and I agree with it, then no voice chat will be required." ]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text "• ", text "You may or may not be asked to have your criticism formalized. While your willingness to have your criticism formalized is a necessary condition for submitting your criticism, it does not guarantee that a formalization will be requested. If your initial criticism is clear and I agree with it, then no formalization will be required." ]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text "• "
, text "If I find it necessary to access a text-based channel (for simple clarifying questions, for example), then either I or a moderator will open a new thread in the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎┃criticism"
}
, text " channel. There we can then engage in a text-based discussion and/or ping other users if needed."
]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text "• ", text "I will only request that your criticism be formalized if I do not understand it and we have exhausted all other reasonable means of clarification. If formalization is requested, you will not need to do it yourself, as I recognize that not everyone understands formal logic. If formalization is requested and I am unavailable to assist you, you may ping the @Logic role, and another user may help you." ]
]
darkFormat : Attr decorative msg
darkFormat =
F.color colourTheme.textDarkGrey
orangeFormat : List (Attr () msg)
orangeFormat =
[ F.color colourTheme.textLightOrange
, mouseOver [ F.color colourTheme.textDarkOrange ]
, transitionStyleFast
]
rounding : Attribute msg
rounding =
D.rounded 10
termsAndConditions : List (List (Element msg))
termsAndConditions =
[ [ paragraph [ alignLeft ]
[ text "You will register an account with "
, newTabLink []
{ url = "https://discord.com/login"
, label = el orangeFormat <| text "Discord"
}
, text " (if you haven't already)."
]
]
, [ row [ alignLeft ]
[ text "You will join the "
, newTabLink []
{ url = "https://discord.com/invite/VzU8yCvYX8"
, label = el orangeFormat <| text "upRootNutrition"
}
, text " Discord Server (if you haven't already)."
]
]
, [ el [ alignLeft ] <| text "You will click the \"😃\" emoji to enter the server (if you haven't already)." ]
, [ paragraph [ alignLeft ]
[ text "You will locate the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/826225570219687956"
, label = el orangeFormat <| text "💻┃general"
}
, text " channel in General category."
]
]
, [ row [ F.alignLeft, alignLeft ]
[ paragraph [ alignLeft ]
[ text "You will post exactly this in the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/826225570219687956"
, label = el orangeFormat <| text "💻┃general"
}
, text " channel:"
]
, column
[ paddingEach
{ top = 10
, bottom = 10
, left = 0
, right = 0
}
, alignLeft
]
[ paragraph
[ paddingEach
{ top = 15
, bottom = 15
, left = 20
, right = 20
}
, B.color colourTheme.backgroundLightGrey
, rounding
, width fill
, spacing 8
]
[ text "\"@Moderators I have a criticism for Nick.\""
]
]
]
]
, [ el [ alignLeft ] <| text "You will then receive the @Critic role." ]
, [ paragraph [ alignLeft ]
[ text "You will locate the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎┃criticism"
}
, text " channel in the General category."
]
]
, [ paragraph [ alignLeft ]
[ paragraph [ F.alignLeft ]
[ text "You will post your criticism in the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎┃criticism"
}
, text " channel with this exact format:"
]
]
, column
[ paddingEach
{ top = 10
, bottom = 10
, left = 0
, right = 0
}
, alignLeft
]
[ column
[ paddingEach
{ top = 15
, bottom = 15
, left = 20
, right = 20
}
, B.color colourTheme.backgroundLightGrey
, rounding
, width fill
, spacing 8
]
[ text "\"Hello, <@191027366640877568>. I have a criticism for you."
, row [ alignLeft ]
[ paragraph []
[ text "Proposition: "
, el [ darkFormat ] <| text "specify the exact proposition you are addressing."
]
]
, row [ alignLeft ]
[ paragraph []
[ text "Link: "
, el [ darkFormat ] <| text "provide a url to the claim, with a timestamp if applicable."
]
]
, row [ alignLeft ]
[ paragraph []
[ text "Reason for Error: "
, el [ darkFormat ] <| text "explain exactly why you believe this claim is in error."
]
]
, row [ alignLeft ]
[ paragraph []
[ text "Suggested Correction (if any): "
, el [ darkFormat ] <| text "provide the corrected information or perspective."
]
]
, row [ alignLeft ]
[ paragraph []
[ text "Additional Comments: "
, el [ darkFormat ] <| text "any other relevant thoughts or context."
, text "\""
]
]
]
]
]
, [ el [ alignLeft ] <| text "You will not post additional criticisms until the last one has been resolved." ]
, [ paragraph [ alignLeft ]
[ text "You will not post anything other than criticisms in the "
, newTabLink [ alignLeft ]
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎┃criticism"
}
, text " channel."
]
]
, [ el [ alignLeft ] <| text "You must be willing to converse over voice chat." ]
, [ el [ alignLeft ] <| text "You must be willing to have your criticism formalized." ]
]

22
frontend/src/Config/Pages/Contact/Methods/Discord.elm Executable file
View file

@ -0,0 +1,22 @@
module Config.Pages.Contact.Methods.Discord exposing (..)
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Contact.Types exposing (..)
contactDiscord : Contact
contactDiscord =
let
name =
"Discord"
in
{ contactName = name
, contactImage = formatName name
, contactLink = "https://discord.com/invite/YrcEvgRTqy"
, contactLinkLabel = "upRootNutrition Server"
, contactEntry =
[ { contactInstructions =
""
}
]
}

25
frontend/src/Config/Pages/Contact/Methods/Email.elm Executable file
View file

@ -0,0 +1,25 @@
module Config.Pages.Contact.Methods.Email exposing (..)
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Contact.Types exposing (..)
contactEmail : Contact
contactEmail =
let
name =
"Email"
contact =
"nick@uprootnutrition.com"
in
{ contactName = name
, contactImage = formatName name
, contactLink = contact
, contactLinkLabel = contact
, contactEntry =
[ { contactInstructions =
""
}
]
}

16
frontend/src/Config/Pages/Contact/Types.elm Executable file
View file

@ -0,0 +1,16 @@
module Config.Pages.Contact.Types exposing (..)
type alias Contact =
{ contactName : String
, contactImage : String
, contactLink : String
, contactLinkLabel : String
, contactEntry : List Method
}
type alias Method =
{ contactInstructions : String
}

711
frontend/src/Config/Pages/Debate/Arguments/Helpers.elm Executable file
View file

@ -0,0 +1,711 @@
module Config.Pages.Debate.Arguments.Helpers exposing (..)
import Config.Format.CardFormat exposing (..)
import Config.Format.Format
exposing
( paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.StrengthBar
exposing
( barMaker
, barPadding
)
import Config.Helpers.ToolTip exposing (tooltip)
import Config.Pages.Debate.Arguments.Inferences.Abortion exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Agnosticism exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AgriculturalPredation exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AnabolicKeto exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AnimalRights exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AntagonisticPleiotropy exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AntiRewilding exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AntiVandalism exposing (..)
import Config.Pages.Debate.Arguments.Inferences.ApoBCVD exposing (..)
import Config.Pages.Debate.Arguments.Inferences.BoobyTrapPagers exposing (..)
import Config.Pages.Debate.Arguments.Inferences.CarbsObesity exposing (..)
import Config.Pages.Debate.Arguments.Inferences.ColonizingNature exposing (..)
import Config.Pages.Debate.Arguments.Inferences.CropDeaths exposing (..)
import Config.Pages.Debate.Arguments.Inferences.DairyCowRape exposing (..)
import Config.Pages.Debate.Arguments.Inferences.DietaryCholesterol exposing (..)
import Config.Pages.Debate.Arguments.Inferences.EfilismPatrolSquad exposing (..)
import Config.Pages.Debate.Arguments.Inferences.EpidemiologyCausality exposing (..)
import Config.Pages.Debate.Arguments.Inferences.EthicalSlurs exposing (..)
import Config.Pages.Debate.Arguments.Inferences.FineTuning exposing (..)
import Config.Pages.Debate.Arguments.Inferences.FlatEarthDebunk exposing (..)
import Config.Pages.Debate.Arguments.Inferences.FructoseNAFLD exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthPromotingFoods exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthSeeker exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyChocolate exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyDairy exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyFattyFish exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyFibre exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyFood exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyPlantFoods exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthySeedOils exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthySoy exposing (..)
import Config.Pages.Debate.Arguments.Inferences.ImmortalityReductio exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Malondialdehyde exposing (..)
import Config.Pages.Debate.Arguments.Inferences.OddOrderPredators exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Omega3Omega6Ratio exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Ostroveganism exposing (..)
import Config.Pages.Debate.Arguments.Inferences.PlantBasedCVDReversal exposing (..)
import Config.Pages.Debate.Arguments.Inferences.PollinationReductio exposing (..)
import Config.Pages.Debate.Arguments.Inferences.PolyphenolReductio exposing (..)
import Config.Pages.Debate.Arguments.Inferences.ScratcherPioneers exposing (..)
import Config.Pages.Debate.Arguments.Inferences.SodiumCVD exposing (..)
import Config.Pages.Debate.Arguments.Inferences.TMAOCausality exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Template exposing (argument)
import Config.Pages.Debate.Arguments.Inferences.TransPeople exposing (..)
import Config.Pages.Debate.Arguments.Inferences.TruncatedMeta exposing (..)
import Config.Pages.Debate.Arguments.Inferences.UnhealthyCoconutOil exposing (..)
import Config.Pages.Debate.Arguments.Inferences.UnhealthyProcessedMeat exposing (..)
import Config.Pages.Debate.Arguments.Inferences.UnhealthyRedMeat exposing (..)
import Config.Pages.Debate.Arguments.Inferences.UnhealthySaturatedFat exposing (..)
import Config.Pages.Debate.Arguments.Inferences.VeganSocietyReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Config.Style.Glow
exposing
( glowDeepDarkGrey
, glowDeepDarkOrange
)
import Config.Style.Transitions exposing (transitionStyleSlow)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html exposing (div, hr)
import Html.Attributes as H exposing (style, title, wrap)
argumentMaker : Argument -> Element msg
argumentMaker argument =
row
topLevelBox
[ cardImageMaker (argumentImage argument) (argumentLink argument)
, cardMaker
[ cardTitleMaker argument.argumentTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ propositionMakerDesktop argument
, reductioMakerDesktop argument
, summaryMakerDesktop argument
, strengthMakerDesktop argument
, tableMaker argument
, desktopFormalizationMaker argument
]
]
]
]
]
argumentMakerMobile : Argument -> Element msg
argumentMakerMobile argument =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker argument.argumentTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ spacing 10, E.width fill ]
[ cardImageMakerMobile (argumentImage argument) (argumentLink argument)
, column [ E.width fill ]
[ propositionMakerMobile argument
]
]
, reductioMakerMobile argument
, summaryMakerMobile argument
, strengthMakerMobile argument
, tableMaker argument
, mobileFormalizationMaker argument
]
]
]
]
]
argumentImage : Argument -> { src : String, description : String }
argumentImage argument =
{ src = "arguments/" ++ argument.argumentImage ++ ".png"
, description = argument.argumentTitle
}
argumentLink : Argument -> String
argumentLink argument =
argument.proofLink
infoSpacing =
E.width <| px 100
propositionMakerDesktop : Argument -> Element msg
propositionMakerDesktop argument =
row []
[ propositionMaker
, propositionTitleMaker argument
]
propositionMakerMobile : Argument -> Element msg
propositionMakerMobile argument =
column []
[ propositionMaker
, propositionTitleMaker argument
]
propositionMaker : Element msg
propositionMaker =
column
[ E.alignTop, E.alignLeft ]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, infoSpacing
]
)
[ el
[ tooltip
"A proposition is a declarative statement that can be evaluated as either true or false, and which serves as the basis for debate."
]
(text "Proposition:")
|> el [ F.color colourTheme.textLightOrange ]
]
]
propositionTitleMaker : Argument -> Element msg
propositionTitleMaker argument =
column
[ E.width fill, E.alignLeft ]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18 ]
)
[ text argument.propositionTitle
|> el
[ F.color colourTheme.textLightGrey
, F.regular
, F.size 16
]
]
]
reductioMakerDesktop : Argument -> Element msg
reductioMakerDesktop argument =
case argument.propositionReductio of
"" ->
none
reductio ->
row
[]
[ reductioMaker
, reductioMakerTitle reductio
]
reductioMakerMobile : Argument -> Element msg
reductioMakerMobile argument =
case argument.propositionReductio of
"" ->
none
reductio ->
row
[]
[ reductioMaker
, reductioMakerTitle reductio
]
reductioMaker : Element msg
reductioMaker =
column
[ E.alignTop, E.alignLeft ]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, infoSpacing
]
)
[ el
[ tooltip
"This is the position from which the reductio ad absurdum is derived."
]
(text "Reductio:")
|> el [ F.color colourTheme.textLightOrange ]
]
]
reductioMakerTitle : String -> Element msg
reductioMakerTitle reductio =
column [ E.width fill, E.alignLeft ]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.size 16
, spacing 3
]
)
[ text reductio ]
]
summaryMakerDesktop : Argument -> Element msg
summaryMakerDesktop argument =
row []
[ summaryMaker
, summaryMakerTitle argument
]
summaryMakerMobile : Argument -> Element msg
summaryMakerMobile argument =
column []
[ summaryMaker
, summaryMakerTitle argument
]
summaryMaker : Element msg
summaryMaker =
column
[ E.alignTop
, E.alignLeft
]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, infoSpacing
]
)
[ el
[ tooltip
"The following information provides additional context and insight into the reasoning behind the argument."
]
(text "Summary:")
|> el [ F.color colourTheme.textLightOrange ]
]
]
summaryMakerTitle : Argument -> Element msg
summaryMakerTitle argument =
column
[ E.width fill
, E.alignLeft
]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, spacing 3
]
)
[ text argument.propositionSummary
|> el
[ F.color colourTheme.textLightGrey
, F.regular
, F.size 16
]
]
]
strengthMakerDesktop : Argument -> Element msg
strengthMakerDesktop argument =
row [ E.width fill ]
[ strengthMaker
, strengthMakerBar argument
]
strengthMakerMobile : Argument -> Element msg
strengthMakerMobile argument =
column [ E.width fill ]
[ strengthMaker
, strengthMakerBar argument
]
strengthMaker : Element msg
strengthMaker =
column
[ E.alignTop
, E.alignLeft
]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, E.width fill
]
)
[ el
[ tooltip
"This represents my confidence in the soundness of the argument."
]
(el
[ paddingEach
{ top = 0
, right = 10
, bottom = 0
, left = 0
}
]
<|
text "Confidence:"
)
|> el [ F.color colourTheme.textLightOrange ]
]
]
strengthMakerBar : Argument -> Element msg
strengthMakerBar argument =
barPadding
[ barMaker getConfidenceTooltip argument.argumentCertainty ]
getConfidenceTooltip : Int -> String
getConfidenceTooltip num =
case num of
0 ->
"Extremely low. Speculative reasoning."
1 ->
"Very low. Extremely weak reasoning."
2 ->
"Low. Weak reasoning."
3 ->
"Kinda low. Somewhat weak reasoning."
4 ->
"Below average. More weak than strong."
5 ->
"Moderate. OK reasoning."
6 ->
"Above average. More strong than weak."
7 ->
"Kinda high. Somewhat strong reasoning."
8 ->
"High. Robust reasoning."
9 ->
"Very high. Extremely robust reasoning."
10 ->
"Extremely high. Air tight reasoning."
_ ->
"Confidence level out of expected range."
tableMaker : Argument -> Element msg
tableMaker argument =
column
[ centerX
, E.width fill
]
[ wrappedRow
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ E.alignLeft
, E.width fill
, htmlAttribute <| H.style "position" "relative"
]
)
[ E.table
[ spacing 0
, D.rounded 10
, D.width 2
, D.color colourTheme.textDarkGrey
, clip
]
{ data = argument.definitionTable
, columns =
[ { header =
el
[ F.bold
, D.widthEach
{ bottom = 1
, top = 1
, left = 1
, right = 1
}
, D.color colourTheme.textDarkGrey
, padding 8
, E.width fill
]
(text "Definiendum")
|> el [ F.color colourTheme.textLightOrange ]
, width = fill |> maximum 50
, view =
\definition ->
row
[ F.color colourTheme.textLightOrange
, F.bold
, D.widthEach
{ bottom = 1
, top = 0
, left = 1
, right = 1
}
, D.color colourTheme.textDarkGrey
, padding 8
, E.height fill
]
[ row [ centerX ]
[ paragraph [] [ text definition.definiendum ]
]
]
}
, { header =
el
[ F.bold
, D.widthEach
{ bottom = 1
, top = 1
, left = 0
, right = 1
}
, D.color colourTheme.textDarkGrey
, padding 8
, E.width fill
]
(text "Definiens")
|> el [ F.color colourTheme.textLightOrange ]
, width = fill
, view =
\definition ->
paragraph
[ F.color colourTheme.textLightGrey
, F.regular
, D.widthEach
{ bottom = 1
, top = 0
, left = 0
, right = 1
}
, D.color colourTheme.textDarkGrey
, padding 8
, E.height fill
]
[ row []
[ paragraph [] [ text definition.definiens ]
]
]
}
]
}
]
]
argumentDesktopPadding : Attribute msg
argumentDesktopPadding =
paddingXY 40 3
argumentMobilePadding : Attribute msg
argumentMobilePadding =
paddingXY 0 3
desktopFormalizationMaker : Argument -> Element msg
desktopFormalizationMaker argument =
formalizationMaker argument argumentDesktopPadding
mobileFormalizationMaker : Argument -> Element msg
mobileFormalizationMaker argument =
formalizationMaker argument argumentDesktopPadding
formalizationMaker : Argument -> Attribute msg -> Element msg
formalizationMaker argument padding =
column
[ centerX
, E.width fill
, spacing 10
]
(List.indexedMap
(\index argumentEntry ->
column
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ spacing 3
, centerX
, E.width fill
, padding
]
)
(List.indexedMap
(\entryIndex entryWithNotation ->
column
[ centerX
, F.center
, spacing 3
, E.width fill
]
[ paragraph
[ F.color colourTheme.textLightOrange
, F.bold
, spacing 3
, F.size 17
]
[ text
(if entryIndex < List.length argumentEntry.premises then
"P" ++ String.fromInt (entryIndex + 1) ++ ")"
else
"C)"
)
, text
(if entryIndex < List.length argumentEntry.premises then
entryWithNotation.premise
else
argumentEntry.conclusion
)
|> el
[ F.color colourTheme.textLightGrey
, F.regular
, E.width fill
, paddingEach
{ top = 0
, right = 0
, bottom = 0
, left = 5
}
]
]
, paragraph
[ centerX
, F.center
, spacing 3
, E.width fill
, F.color colourTheme.textLightOrange
, F.bold
]
[ text
(if entryIndex < List.length argumentEntry.premises then
"(" ++ entryWithNotation.notation ++ ")"
else
"(∴" ++ argumentEntry.conclusionNotation ++ ")"
)
]
]
)
(argumentEntry.premises ++ [ { premise = argumentEntry.conclusion, notation = argumentEntry.conclusionNotation } ])
)
)
argument.argumentFormalization
)
argumentList : List Argument
argumentList =
[ 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
]
argumentListNumber : Int
argumentListNumber =
List.length argumentList

66
frontend/src/Config/Pages/Debate/Arguments/Inferences/Abortion.elm Executable file
View file

@ -0,0 +1,66 @@
module Config.Pages.Debate.Arguments.Inferences.Abortion exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentAbortion : Argument
argumentAbortion =
{ argumentTitle = "Argument Against Sentient Abortions"
, propositionTitle = "One's whims are not a sufficient justification for the termination of sentient human life."
, propositionReductio = ""
, propositionSummary = "Consenting to becoming pregnant, or at least implicitly accepting the risks of pregnancy by engaging in reckless sex, should disqualify one from having the opportunity to a abort a sentient fetus if the pregnancy doesn't pose a significant health risk to the mother."
, proofLink = "https://www.umsu.de/trees/#(P~2Q~5R),(P),(Q),((R~1F~1~3H)~5M),(F),(~3H),(M~5~3W)%7C=(~3W)"
, argumentCertainty = 6
, argumentImage = "abortion"
, definitionTable =
[ { definiendum = "P"
, definiens = "one consents to becoming pregnant"
}
, { definiendum = "Q"
, definiens = "one consensually engages in sexual activity without contraception"
}
, { definiendum = "R"
, definiens = "one is implicitly committed to at least accepting the average risks for the average pregnancy"
}
, { definiendum = "F"
, definiens = "one's pregnancy persists long enough for fetal sentience to develop"
}
, { definiendum = "H"
, definiens = "one's risk profile during pregnancy is high"
}
, { definiendum = "M"
, definiens = "one is morally bound to carrying the pregnancy to term"
}
, { definiendum = "W"
, definiens = "one's whims are a sufficient justification for the termination of sentient human life"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If one consents to becoming pregnant or one consensually engages in sexual activity without contraception, then one is implicitly committed to at least accepting the average risks for the average pregnancy."
, notation = "P∨Q→R"
}
, { premise = "One consents to becoming pregnant."
, notation = "P"
}
, { premise = "One consensually engages in sexual activity without contraception."
, notation = "Q"
}
, { premise = "If one is implicitly committed to at least accepting the average risks for the average pregnancy and one's pregnancy persists long enough for fetal sentience to develop and one's risk profile during pregnancy is not high, then one is morally bound to carrying the pregnancy to term."
, notation = "R∧F∧¬H→M"
}
, { premise = "One's pregnancy persists long enough for fetal sentience to develop."
, notation = "F"
}
, { premise = "One's risk profile during pregnancy is not high."
, notation = "¬H"
}
, { premise = "If one is morally bound to carrying the pregnancy to term, then one's whims are not a sufficient justification for the termination of sentient human life."
, notation = "M→¬W"
}
]
, conclusion = "Therefore, one's whims are not a sufficient justification for the termination of sentient human life."
, conclusionNotation = "¬W"
}
]
}

54
frontend/src/Config/Pages/Debate/Arguments/Inferences/Agnosticism.elm Executable file
View file

@ -0,0 +1,54 @@
module Config.Pages.Debate.Arguments.Inferences.Agnosticism exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentAgnosticism : Argument
argumentAgnosticism =
{ argumentTitle = "Agnosticism Consistency Checker"
, propositionTitle = "An interlocutor (who cannot unpack what evidence would lead them to change their doxastic attitude on a proposition) should temporarily withhold the belief that the proposition at hand is true."
, propositionReductio = ""
, propositionSummary = "Listen, if one doesn't know what would change their mind on a topic, about which they form strong opinions, then it's not clear why they'd even hold said opinions strongly in the first place. Given this, it would make more sense just to suspend your judgement in the meantime and form no opinions on the subject."
, proofLink = "https://www.umsu.de/trees/#(~6x~6y(~3Pxy~5~3Qxy)),(~6x~6y(~3Qxy~5Rxy)),(~3Por)|=(Ror)"
, argumentCertainty = 9
, argumentImage = "agnostic"
, definitionTable =
[ { definiendum = "P(x,y)"
, definiens = "(x) can unpack what evidence would lead them to change their doxastic attitude on (y)"
}
, { definiendum = "Q(x,y)"
, definiens = "(x) knows why they believe that (y) is true"
}
, { definiendum = "R(x,y)"
, definiens = "(x) should temporarily withhold the belief that (y) is true"
}
, { definiendum = "x"
, definiens = "a person"
}
, { definiendum = "y"
, definiens = "a proposition"
}
, { definiendum = "o"
, definiens = "the interlocutor"
}
, { definiendum = "r"
, definiens = "the proposition at hand"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If one cannot unpack what evidence would lead them to change their doxastic attitude on a proposition, then one does does not know why they believe that a proposition is true."
, notation = "∀x∀y(¬Pxy→¬Qxy)"
}
, { premise = "If one does not know why they believe that a proposition is true, then one should temporarily withhold the belief that a proposition is true."
, notation = "∀x∀y(¬Qxy→Rxy)"
}
, { premise = "The interlocutor cannot unpack what evidence would lead them to change their doxastic attitude on the proposition at hand."
, notation = "(¬Por)"
}
]
, conclusion = "Therefore, the interlocutor should temporarily withhold the belief that the proposition at hand is true."
, conclusionNotation = "Ror"
}
]
}

69
frontend/src/Config/Pages/Debate/Arguments/Inferences/AgriculturalPredation.elm Executable file
View file

@ -0,0 +1,69 @@
module Config.Pages.Debate.Arguments.Inferences.AgriculturalPredation exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentAgriculturalPredation : Argument
argumentAgriculturalPredation =
{ argumentTitle = "Argument for Animal Agirculture as Predation"
, propositionTitle = "Animal agriculture counts as predation."
, propositionReductio = ""
, propositionSummary = "Some vegans suggest that killing odd order predators is wrong because predation is permissible. However, if animal agriculture also counts as predation, it's analytically entailed that animal agriculture is permissible as well."
, proofLink = "https://www.umsu.de/trees/#(~6x~6y~6z(Px~4Qxyz~1(Rxyz~2Sxyz)~1Wxyz)),(Qahl),(Rahl~2Sahl),(Wahl)%7C=(Pa)"
, argumentCertainty = 10
, argumentImage = "predatoragriculture"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) counts as predation"
}
, { definiendum = "Q(x,y,z)"
, definiens = "(x) involves a (y) regularly capturing a (z)"
}
, { definiendum = "R(x,y,z)"
, definiens = "(x) involves a (y) regularly killing a (z)"
}
, { definiendum = "S(x,y,z)"
, definiens = "(x) involves a (y) regularly subduing a (z)"
}
, { definiendum = "W(x,y,z)"
, definiens = "(x) involves a (y) regularly consuming, to the captor's benefit, a (z)"
}
, { definiendum = "x"
, definiens = "an action"
}
, { definiendum = "y"
, definiens = "an animal"
}
, { definiendum = "z"
, definiens = "another animal"
}
, { definiendum = "a"
, definiens = "animal agriculture"
}
, { definiendum = "h"
, definiens = "humans"
}
, { definiendum = "l"
, definiens = "livestock"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "Something counts as predation if, and only if, something involves an animal regularly capturing, killing or subduing, and consuming, to the captor's benefit, another animal."
, notation = "∀x∀y∀z(Px↔Qxyz∧(Rxyz∨Sxyz)∧Wxyz)"
}
, { premise = "Animal agriculture involves humans regularly capturing livestock."
, notation = "Qahl"
}
, { premise = "Animal agriculture involves humans regularly killing or subduing livestock."
, notation = "Rahl∨Sahl"
}
, { premise = "Animal agriculture involves humans regularly consuming, to the captors' benefit, livestock."
, notation = "Wahl"
}
]
, conclusion = "Therefore, animal agriculture counts as predation."
, conclusionNotation = "Pa"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/AnabolicKeto.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.AnabolicKeto exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentAnabolicKeto : Argument
argumentAnabolicKeto =
{ argumentTitle = "Anabolic Opportunity Cost on Keto"
, propositionTitle = "Ketogenic diets are likely to cost anabolic potential compared to non-ketogenic diets."
, propositionReductio = ""
, propositionSummary = "A higher proportion of amino acids are spent on gluconeogenesis while on ketogenic diets, reducing the amount available for hypertrophy. This likely costs anabolic potential on ketogenic diets compared to non-ketogenic diets."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(P),(Q~5R)|=(R)"
, argumentCertainty = 5
, argumentImage = "anabolicketo"
, definitionTable =
[ { definiendum = "P"
, definiens = "a higher proportion of amino acids are spent on gluconeogenesis while on ketogenic diets compared to non-ketogenic diets"
}
, { definiendum = "Q"
, definiens = "a lower proportion of amino acids are available for hypertrophy on ketogenic diets compared to non-ketogenic diets"
}
, { definiendum = "R"
, definiens = "ketogenic diets are likely to cost anabolic potential compared to non-ketogenic diets"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If a higher proportion of amino acids are spent on gluconeogenesis while on ketogenic diets compared to non-ketogenic diets, then a lower proportion of amino acids are available for hypertrophy on ketogenic diets compared to non-ketogenic diets."
, notation = "P→Q"
}
, { premise = "If a lower proportion of amino acids are available for hypertrophy on ketogenic diets compared to non-ketogenic diets, then ketogenic diets are likely to cost anabolic potential compared to non-ketogenic diets."
, notation = "Q→R"
}
, { premise = "A higher proportion of amino acids are spent on gluconeogenesis while on ketogenic diets compared to non-ketogenic diets."
, notation = "P"
}
]
, conclusion = "Therefore, ketogenic diets are likely to cost anabolic potential compared to non-ketogenic diets."
, conclusionNotation = "∴R"
}
]
}

55
frontend/src/Config/Pages/Debate/Arguments/Inferences/AnimalRights.elm Executable file
View file

@ -0,0 +1,55 @@
module Config.Pages.Debate.Arguments.Inferences.AnimalRights exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentAnimalRights : Argument
argumentAnimalRights =
{ argumentTitle = "Argument for Animal Rights"
, propositionTitle = "We should not exploit animals to any greater degree than we would tolerate for humans."
, propositionReductio = ""
, propositionSummary = "I view animal rights as the logical extension of trait-adjusted human rights to non-human animals. As such, if one wants to deny that animals should be given these trait-adjusted rights, they'll have to name a trait that accounts for the differential normative evaluation. Typically this is done by rejecting P3 and saying something retarded."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5~3Qx)),(~3Pa~5~7t(Rta~5(Rth~5~3Ph))),(~3~7t(Rta~5(Rth~5~3Ph))),(Pa)|=(~3Qa)"
, argumentCertainty = 10
, argumentImage = "animalrights"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) has moral worth"
}
, { definiendum = "Q(x)"
, definiens = "we should exploit (x) to any greater degree than we would tolerate for humans"
}
, { definiendum = "R(t,x)"
, definiens = "there exists a (t) that is absent in (x)"
}
, { definiendum = "x"
, definiens = "a being"
}
, { definiendum = "t"
, definiens = "trait"
}
, { definiendum = "a"
, definiens = "animal"
}
, { definiendum = "h"
, definiens = "human"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, if a being has moral worth, then we should not exploit it to any greater degree than we would tolerate for humans."
, notation = "∀x(Px→¬Qx)"
}
, { premise = "If animals don’t have moral worth, then there exists a trait that is absent in animals such that if it were absent in humans, humans wouldn’t have moral worth."
, notation = "¬Pa→∃t(Rta→(Rth→¬Ph))"
}
, { premise = "There doesn’t exist a trait that is absent in animals such that if it were absent in humans, humans wouldn’t have moral worth"
, notation = "¬∃t(Rta→(Rth→¬Ph))"
}
]
, conclusion = "Therefore, we should not exploit animals to any greater degree than we would tolerate for humans."
, conclusionNotation = "¬Qa"
}
]
}

42
frontend/src/Config/Pages/Debate/Arguments/Inferences/AntagonisticPleiotropy.elm Executable file
View file

@ -0,0 +1,42 @@
module Config.Pages.Debate.Arguments.Inferences.AntagonisticPleiotropy exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentAntagonisticPleiotropy : Argument
argumentAntagonisticPleiotropy =
{ argumentTitle = "Argument Against Ancestral Diets"
, propositionTitle = "Ancestral diets have inherent disadvantages over novel diets"
, propositionReductio = ""
, propositionSummary = "Humans have more genetic adaptations to ancestral foods than novel foods, which makes the long-term negative consequences of antagonistic pleiotropy a greater concern for ancestral foods."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(Q~5R),(P)|=(R)"
, argumentCertainty = 6
, argumentImage = "antagonisticpleiotropy"
, definitionTable =
[ { definiendum = "P"
, definiens = "humans have more genetic adaptations to ancestral foods than novel foods"
}
, { definiendum = "Q"
, definiens = "antagonistic pleiotropy is more of a concern for ancestral foods than novel foods"
}
, { definiendum = "R"
, definiens = "ancestral foods have inherent disadvantages over novel foods"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If humans have more genetic adaptations to ancestral foods than novel foods, then antagonistic pleiotropy is more of a concern for ancestral foods than novel foods."
, notation = "P→Q"
}
, { premise = "If antagonistic pleiotropy is more of a concern for ancestral foods than novel foods, then ancestral diets have inherent disadvantages over novel diets."
, notation = "Q→R"
}
, { premise = "Humans have more genetic adaptations to ancestral foods than novel foods."
, notation = "P"
}
]
, conclusion = "Therefore, ancestral foods have inherent disadvantages over novel foods"
, conclusionNotation = "R"
}
]
}

54
frontend/src/Config/Pages/Debate/Arguments/Inferences/AntiRewilding.elm Executable file
View file

@ -0,0 +1,54 @@
module Config.Pages.Debate.Arguments.Inferences.AntiRewilding exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentAntiRewilding : Argument
argumentAntiRewilding =
{ argumentTitle = "Argument Against Rewilding"
, propositionTitle = "Rewilding sentient animals is immoral."
, propositionReductio = ""
, propositionSummary = "I view animal rights as the logical extension of trait-adjusted human rights to non-human animals. I think humans have the right not to be bred into wild circumstances where they're faced with the full brutality of the natural world, and by extension I think non-human animals have this right too."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5~3Qx)),(Pa),(~3Qa~5~3R),(~3R~5Sa)|=(Sa)"
, argumentCertainty = 10
, argumentImage = "rewilding"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) has negative rights"
}
, { definiendum = "Q(x)"
, definiens = "we should defend (x) from rights violations to any lesser degree than we would tolerate for humans"
}
, { definiendum = "R"
, definiens = "it is permissible to subject animals to conditions that are likely to involve predation, starvation, or death due to environmental exposure to any greater degree than we would tolerate for humans"
}
, { definiendum = "S(a)"
, definiens = "rewilding sentient animals is immoral"
}
, { definiendum = "x"
, definiens = "a being"
}
, { definiendum = "a"
, definiens = "sentient animals"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, if a being has negative rights, then we should not defend a being from rights violations to any lesser degree than we would tolerate for humans."
, notation = "∀x(Px→¬Qx)"
}
, { premise = "Sentient animals have negative rights."
, notation = "Pa"
}
, { premise = "If we should not defend sentient animals from rights violations to any lesser degree than we would tolerate for humans, then it is not permissible to subject sentient animals to conditions that are likely to involve predation, starvation, or death due to environmental exposure to any greater degree than we would tolerate for humans."
, notation = "¬Qa→¬R"
}
, { premise = "If it is not permissible to subject sentient animals to conditions that are likely to involve predation, starvation, or death due to environmental exposure to any greater degree than we would tolerate for humans, then rewilding sentient animals is immoral."
, notation = "¬R→Sa"
}
]
, conclusion = "Therefore, rewilding sentient animals is immoral."
, conclusionNotation = "Sa"
}
]
}

42
frontend/src/Config/Pages/Debate/Arguments/Inferences/AntiVandalism.elm Executable file
View file

@ -0,0 +1,42 @@
module Config.Pages.Debate.Arguments.Inferences.AntiVandalism exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentAntiVandalism : Argument
argumentAntiVandalism =
{ argumentTitle = "Argument Against Zoo Vandalism"
, propositionTitle = "Vandalizing zoos increases the probability of harming the animals they keep."
, propositionReductio = ""
, propositionSummary = "The more we pressure institutions that hold innocent animals captive to direct their funds to endeavours or projects unrelated to animal care, the less money those institutions are going to have to devote to animal care."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(P),(Q~5R)%7C=(R)"
, argumentCertainty = 8
, argumentImage = "antivandalism"
, definitionTable =
[ { definiendum = "P"
, definiens = "zoos must spend extra money cleaning graffiti"
}
, { definiendum = "Q"
, definiens = "zoos will have less money to devote to animal care"
}
, { definiendum = "R"
, definiens = "vandalizing zoos increases the probability of harming the animals they keep"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If zoos must spend extra money cleaning graffiti, then zoos will have less money to devote to animal care."
, notation = "P→Q"
}
, { premise = "If zoos will have less money to devote to animal care, then vandalizing zoos increases the probability of harming the animals they keep."
, notation = "Q→R"
}
, { premise = "Zoos must spend extra money cleaning graffiti."
, notation = "P"
}
]
, conclusion = "Therefore, vandalizing zoos increases the probability of harming the animals they keep."
, conclusionNotation = "R"
}
]
}

42
frontend/src/Config/Pages/Debate/Arguments/Inferences/ApoBCVD.elm Executable file
View file

@ -0,0 +1,42 @@
module Config.Pages.Debate.Arguments.Inferences.ApoBCVD exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentApoBCVD : Argument
argumentApoBCVD =
{ argumentTitle = "Argument for Atherogenic ApoB"
, propositionTitle = "ApoB-containing lipoproteins dose-dependently cause atherosclerosis."
, propositionReductio = ""
, propositionSummary = "ApoB-containing lipoproteins consistently and proportionately associate with increased plaque volume after controlling for relevant confounders, which satisfies the conditions outlined for an exposure to cause atherosclerosis."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qw)|=(Pw)"
, argumentCertainty = 9
, argumentImage = "lipoprotein"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) dose-dependently causes atherosclerosis"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently, linearly, and proportionately associates with increased plaque volume after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a substance"
}
, { definiendum = "w"
, definiens = "ApoB-containing lipoproteins"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a substance dose-dependently causes atherosclerosis if, and only if, a substance consistently, linearly, and proportionately associates with increased plaque volume after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "ApoB-containing lipoproteins consistently, linearly, and proportionately associates with increased plaque volume after adjustment or control over relevant confounders and covariates."
, notation = "Qw"
}
]
, conclusion = "Therefore, ApoB-containing lipoproteins dose-dependently cause atherosclerosis."
, conclusionNotation = "Pw"
}
]
}

54
frontend/src/Config/Pages/Debate/Arguments/Inferences/BoobyTrapPagers.elm Executable file
View file

@ -0,0 +1,54 @@
module Config.Pages.Debate.Arguments.Inferences.BoobyTrapPagers exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentBoobyTrapPagers : Argument
argumentBoobyTrapPagers =
{ argumentTitle = "Argument Against Israeli Pagers as Booby-Traps"
, propositionTitle = "The Israeli pagers were not booby-traps."
, propositionReductio = ""
, propositionSummary = "Based on the definitions found in the IHL Databases, it's unlikely that the Israeli pager bombs qualify as booby-traps. However, there is sufficient ambiguity in the language that I'm not convinced it's necessarily an analytical truth."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4(Qx~1Rx~1Sx))),(Qp),(Rp),(~3Sp)|=(~3Pp)"
, argumentCertainty = 4
, argumentImage = "pagers"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is a booby-trap"
}
, { definiendum = "Q(x)"
, definiens = "(x) is a device or material"
}
, { definiendum = "R(x)"
, definiens = "(x) is designed, constructed, or adapted to kill or injure"
}
, { definiendum = "S(x)"
, definiens = "(x) functions (as a device or material that was designed, constructed, or adapted to kill or injure) when a person disturbs or approaches an apparently safe act"
}
, { definiendum = "x"
, definiens = "a device"
}
, { definiendum = "p"
, definiens = "Israeli pagers"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a device is a booby-trap if, and only if, the device is a device or material AND the device is designed, constructed, or adapted to kill or injure AND x functions (as a device or material that was designed, constructed, or adapted to kill or injure) when a person disturbs or approaches an apparently safe act."
, notation = "∀x(Px↔(Qx∧Rx∧Sx))"
}
, { premise = "The Israeli pagers were devices or materials."
, notation = "Qp"
}
, { premise = "The Israeli pagers were designed, constructed, or adapted to kill or injure."
, notation = "Rp"
}
, { premise = "The Israeli pagers did not function (as devices or materials that were designed, constructed, or adapted to kill or injure) when a person disturbs or approaches an apparently safe act."
, notation = "¬Sp"
}
]
, conclusion = "Therefore, the Israeli pagers were not booby-traps."
, conclusionNotation = "¬Pp"
}
]
}

37
frontend/src/Config/Pages/Debate/Arguments/Inferences/CarbsObesity.elm Executable file
View file

@ -0,0 +1,37 @@
module Config.Pages.Debate.Arguments.Inferences.CarbsObesity exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentCarbsObesity : Argument
argumentCarbsObesity =
{ argumentTitle = "Argument Against the Obesogenic Carbohydrates"
, propositionTitle = "Carbohydrates do not uniquely cause fat accumulation or obesity."
, propositionReductio = ""
, propositionSummary = "There are a number of predictions made from the hypothesis that carbohydrates uniquely cause obesity. One of those predictions is that obesity would track with carbohydrate intake, but it doesn't"
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q)|=(~3P)"
, argumentCertainty = 9
, argumentImage = "carbobesity"
, definitionTable =
[ { definiendum = "P"
, definiens = "carbs uniquely cause fat accumulation or obesity"
}
, { definiendum = "Q"
, definiens = "populations with high carb diets have uniquely higher rates of obesity after adjustment or control over relevant confounders and covariates"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If carbohydrates uniquely cause fat accumulation or obesity, then, populations with high carbohydrate diets have uniquely higher rates of obesity after adjustment or control over relevant confounders and covariates."
, notation = "P→Q"
}
, { premise = "Populations with high carbohydrate diets do not have uniquely higher rates of obesity after adjustment or control over relevant confounders and covariates."
, notation = "¬Q"
}
]
, conclusion = "Therefore, carbs do not uniquely cause fat accumulation or obesity."
, conclusionNotation = "¬P"
}
]
}

55
frontend/src/Config/Pages/Debate/Arguments/Inferences/ColonizingNature.elm Executable file
View file

@ -0,0 +1,55 @@
module Config.Pages.Debate.Arguments.Inferences.ColonizingNature exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentColonizingNature : Argument
argumentColonizingNature =
{ argumentTitle = "Argument for Colonizing Nature"
, propositionTitle = "We are justified in displacing nature into non-existence"
, propositionReductio = ""
, propositionSummary = "Summary"
, proofLink = "https://www.umsu.de/trees/#(P~1~3Q~1~3R~1~3S~5W),(P),(~3Q),(~3R),(~3S)%7C=(W)"
, argumentCertainty = 10
, argumentImage = "colonizingnature"
, definitionTable =
[ { definiendum = "P"
, definiens = "the natural world contains intolerable rights violations"
}
, { definiendum = "Q"
, definiens = "we know that nature is net positive or net negative for utility"
}
, { definiendum = "R"
, definiens = "there is any known practical means by which to end the rights violations beyond the use of force"
}
, { definiendum = "S"
, definiens = "the natural world is currently instrumentally vital to facilitating human flourishing"
}
, { definiendum = "W"
, definiens = "we are justified in displacing nature into non-existence"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If the natural world contains intolerable rights violations and we do not know that nature is net positive or net negative for utility and there is not any known practical means by which to end the rights violations beyond the use of force and the natural world is not currently instrumentally vital to facilitating human flourishing, then we are justified in displacing nature into non-existence."
, notation = "(P∧¬Q∧¬R∧¬S)→W"
}
, { premise = "Nature entails intolerable rights violations."
, notation = "P"
}
, { premise = "We do not know if nature is net positive or net negative for utility."
, notation = "¬Q"
}
, { premise = "There is not any known practical means by which to end the rights violations beyond the use of force."
, notation = "¬R"
}
, { premise = "The natural world is not currently instrumentally vital to facilitating human flourishing."
, notation = "¬S"
}
]
, conclusion = "Therefore, we are justified in displacing nature into non-existence."
, conclusionNotation = "W"
}
]
}

37
frontend/src/Config/Pages/Debate/Arguments/Inferences/CropDeaths.elm Executable file
View file

@ -0,0 +1,37 @@
module Config.Pages.Debate.Arguments.Inferences.CropDeaths exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentCropDeaths : Argument
argumentCropDeaths =
{ argumentTitle = "Cropland vs Wildland Argument"
, propositionTitle = "Proposition"
, propositionReductio = ""
, propositionSummary = "We can't claim to know that cropland kills more animals than wildland, because if we did know this, there would be evidence for it, and there isn't any such evidence."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q)%7C=(~3P)"
, argumentCertainty = 9
, argumentImage = "cropdeaths"
, definitionTable =
[ { definiendum = "P"
, definiens = "it is known that cropland leads to more animal death than wildland"
}
, { definiendum = "Q"
, definiens = "there is evidence that cropland leads to more animal death than wildland"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If it is known that cropland leads to more animal death than wildland, then there is evidence that cropland leads to more animal death than wildland."
, notation = "P→Q"
}
, { premise = "There is not evidence that cropland leads to more animal death than wildland."
, notation = "P"
}
]
, conclusion = "Therefore, it is not known that cropland leads to more animal death than wildland."
, conclusionNotation = "¬P"
}
]
}

54
frontend/src/Config/Pages/Debate/Arguments/Inferences/DairyCowRape.elm Executable file
View file

@ -0,0 +1,54 @@
module Config.Pages.Debate.Arguments.Inferences.DairyCowRape exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentDairyCowRape : Argument
argumentDairyCowRape =
{ argumentTitle = "Argument for Animal Sex Counting as Rape"
, propositionTitle = "An animal mating with another animal qualifies as rape."
, propositionReductio = ""
, propositionSummary = "It's not clear that non-human animal procreation isn't an example of rape if we take sexual interaction in the absence of informed consent to be rape. So, it seems to follow that a bull mating with a cow is rape, for example."
, proofLink = "https://www.umsu.de/trees/#(~6x~6y(Px~4(Qxy~1~3Ryx))),(Qae),(~3Rea)|=(Pa)"
, argumentCertainty = 10
, argumentImage = "cowrape"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) qualifies as rape"
}
, { definiendum = "Q(x,y)"
, definiens = "(x) involves sexual contact with (y)"
}
, { definiendum = "R(y,x)"
, definiens = "(y) renders informed consent for (x)"
}
, { definiendum = "x"
, definiens = "an action"
}
, { definiendum = "y"
, definiens = "an involved party"
}
, { definiendum = "a"
, definiens = "an animal mating with another animal"
}
, { definiendum = "e"
, definiens = "another animal"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "An action qualifies as rape if, and only if, the action involves sexual contact with an involved party and the involved party does not render informed consent for the action."
, notation = "∀x∀y(Px↔(Qxy∧¬Ryx))"
}
, { premise = "An animal mating with another animal involves sexual contact with another animal."
, notation = "Qae"
}
, { premise = "Said animal does not render informed consent to an animal mating with them."
, notation = "¬Rea"
}
]
, conclusion = "Therefore, an animal mating with another animal qualifies as rape."
, conclusionNotation = "Pa"
}
]
}

42
frontend/src/Config/Pages/Debate/Arguments/Inferences/DietaryCholesterol.elm Executable file
View file

@ -0,0 +1,42 @@
module Config.Pages.Debate.Arguments.Inferences.DietaryCholesterol exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentDietaryCholesterol : Argument
argumentDietaryCholesterol =
{ argumentTitle = "Argument for Atherogenic Dietary Cholesterol"
, propositionTitle = "Consuming high amounts of dietary cholesterol increases heart disease risk."
, propositionReductio = ""
, propositionSummary = "LDL causally associates with heart disease in a linear and proportional manner, and in all cases exposures that durably increase LDL over time produce likewise increases in heart disease risk. Dietary cholesterol is one such exposure."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(Pd)|=(Qd)"
, argumentCertainty = 9
, argumentImage = "dietarycholesterol"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "consuming high amounts of (x) increases LDL"
}
, { definiendum = "Q(x)"
, definiens = "(x) increases heart disease risk"
}
, { definiendum = "x"
, definiens = "a substance"
}
, { definiendum = "d"
, definiens = "dietary cholesterol"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, if consuming high amounts of a substance increases LDL, then consuming high amounts of a substance increases heart disease risk."
, notation = "∀x(Px→Qx)"
}
, { premise = "Consuming high amounts of dietary cholesterol increases LDL."
, notation = "Pd"
}
]
, conclusion = "Therefore, consuming high amounts of dietary cholesterol increases heart disease risk."
, conclusionNotation = "Qd"
}
]
}

54
frontend/src/Config/Pages/Debate/Arguments/Inferences/EfilismPatrolSquad.elm Executable file
View file

@ -0,0 +1,54 @@
module Config.Pages.Debate.Arguments.Inferences.EfilismPatrolSquad exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentEfilismPatrolSquad : Argument
argumentEfilismPatrolSquad =
{ argumentTitle = "The Eternal Intergalactic Sentience Patrol Squad"
, propositionTitle = "Efilists are committed to pragmatic natalism."
, propositionReductio = "Efilists fundamentally believe that sentient life is inherently characterized by suffering and that the most ethical action is to prevent the creation of any new sentient beings, ultimately aiming to completely eliminate all conscious life in the universe to end suffering permanently."
, propositionSummary = "If efilists follow their own logic to its ultimate conclusion, they would paradoxically be committed to a form of pragmatic natalism - the very opposite of their core philosophical stance."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q),(~3P~1R~5~3S),(R),(~3S~5W)|=(W)"
, argumentCertainty = 10
, argumentImage = "efilism"
, definitionTable =
[ { definiendum = "P"
, definiens = "humans abstaining from procreation maximally reduces rights violations"
}
, { definiendum = "Q"
, definiens = "humans have sterilized all sentient life in the universe"
}
, { definiendum = "R"
, definiens = "many more generations are required to sterilize all sentient life in the universe"
}
, { definiendum = "S"
, definiens = "efilists should abstain from procreation until all sentient life in the universe is sterilized"
}
, { definiendum = "W"
, definiens = "efilists are committed to pragmatic natalism"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If humans abstaining from procreation maximally reduces rights violations, then humans have sterilized all sentient life in the universe."
, notation = "P→Q"
}
, { premise = "Humans have not sterilized all sentient life in the universe."
, notation = "¬Q"
}
, { premise = "If humans abstaining from procreation does not maximally reduce rights violations and many more generations are required to sterilize all sentient life in the universe, then efilists should not abstain from procreation until all sentient life in the universe is sterilized."
, notation = "¬P∧R→¬S"
}
, { premise = "Many more generations are required to sterilize all sentient life in the universe."
, notation = "R"
}
, { premise = "If efilists should not abstain from procreation until all sentient life in the universe is sterilized, then efilists are committed to pragmatic natalism."
, notation = "¬S→W"
}
]
, conclusion = "Therefore, efilists are committed to pragmatic natalism."
, conclusionNotation = "W"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/EpidemiologyCausality.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.EpidemiologyCausality exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentEpidemiologyCausality : Argument
argumentEpidemiologyCausality =
{ argumentTitle = "Argument for Nutritional Epidemiology"
, propositionTitle = "Nutritional epidemiology generally provides good causal estimates."
, propositionReductio = ""
, propositionSummary = "It's just straightforwardly the case that nutritional epidemiology has outstanding translation rates with randomized controlled trials, or at least these is overwhelmingly consistent compatibility in the results. If randomized controlled trials are the standard against which other research methods are to be evaluated, it's not clear why nutritional epidemiology wouldn't be trustworthy in the aggregate."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(Pe)|=(Qe)"
, argumentCertainty = 8
, argumentImage = "epidemiologycausality"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) consistently identifies associations that are later confirmed by randomized controlled trials"
}
, { definiendum = "Q(x)"
, definiens = "(x) generally provides good causal estimates"
}
, { definiendum = "x"
, definiens = "a research method"
}
, { definiendum = "e"
, definiens = "nutritional epidemiology"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, if a research method consistently identifies associations that are later confirmed by randomized controlled trials, then the research method generally provides good causal estimates."
, notation = "∀x(Px→Qx)"
}
, { premise = "Nutritional epidemiology consistently identifies associations that are later confirmed by randomized controlled trials."
, notation = "Pe"
}
]
, conclusion = "Therefore, nutritional epidemiology generally provides good causal estimates."
, conclusionNotation = "Qe"
}
]
}

60
frontend/src/Config/Pages/Debate/Arguments/Inferences/EthicalSlurs.elm Executable file
View file

@ -0,0 +1,60 @@
module Config.Pages.Debate.Arguments.Inferences.EthicalSlurs exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentEthicalSlurs : Argument
argumentEthicalSlurs =
{ argumentTitle = "Argument for Using the Term Retard"
, propositionTitle = "It is generally permissible to use the term retard with an altered non-bigoted meaning."
, propositionReductio = ""
, propositionSummary = "The only historical examples of bigoted terms, such as slurs, becoming non-harmful to the demographics toward which they were historically targeted involve literally changing the usage of the term to something non-bigoted. I don’t see any historical precedent for a methodology that has been as successful in achieving this goal as altering the term's usage. Such as using the term \"nigga\" to mean \"friend\", for example."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(~6x(~3Px~5Rx)),(~3Pr),(~3Qr~1Rr~5Sr),(Sr~5Wr)|=(Wr)"
, argumentCertainty = 7
, argumentImage = "ethicalslurs"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x)'s negative connotations have been neutralised"
}
, { definiendum = "Q(x)"
, definiens = "(x) has been rendered non-bigoted via altered usage"
}
, { definiendum = "R(x)"
, definiens = "oppressed people will continue to suffer from the use of (x)"
}
, { definiendum = "S(x)"
, definiens = "it is permissible to neutralise the term retard's negative connotations"
}
, { definiendum = "W(x)"
, definiens = "it is generally permissible to use the term retard with an altered non-bigoted meaning"
}
, { definiendum = "x"
, definiens = "a slur"
}
, { definiendum = "r"
, definiens = "retard"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all slurs, a slur's negative connotations have been neutralised if, and only if, slur has been rendered non-bigoted via altered usage."
, notation = "∀x(Px↔Qx)"
}
, { premise = "For all slurs, if it is not the case that slur's negative connotations have been neutralised, then oppressed people will continue to suffer from the use of slur."
, notation = "∀x(¬Px→Rx)"
}
, { premise = "It is not the case that the term retard's negative connotations have been neutralised."
, notation = "¬Pr"
}
, { premise = "If the term retard has not been rendered non-bigoted via altered usage and oppressed people will continue to suffer from the use of the term retard, then it is permissible to neutralise the term retard's negative connotations."
, notation = "¬Qr∧Rr→Sr"
}
, { premise = "If it is permissible to neutralise the term retard's negative connotations, then It is generally permissible to use the term retard with an altered non-bigoted meaning."
, notation = "Sr→Wr"
}
]
, conclusion = "Therefore, it is generally permissible to use the term retard with an altered non-bigoted meaning."
, conclusionNotation = "Wr"
}
]
}

48
frontend/src/Config/Pages/Debate/Arguments/Inferences/FineTuning.elm Executable file
View file

@ -0,0 +1,48 @@
module Config.Pages.Debate.Arguments.Inferences.FineTuning exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentFineTuning : Argument
argumentFineTuning =
{ argumentTitle = "Fine Tuning Debunk"
, propositionTitle = "Fine tuning is an infinitely regressive explanation for God"
, propositionReductio = ""
, propositionSummary = "It's not clear why God's constitution wouldn't count as finely tuned, and to the extent that it does count as finely-tuned, it's by extension unclear why fine-tuning wouldn't be an infinitely regressive argument for God's existence."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(Pg),(Qg~5R)%7C=(R)"
, argumentCertainty = 10
, argumentImage = "finetuning"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is finely tuned"
}
, { definiendum = "Q(x)"
, definiens = "(x) has a designer"
}
, { definiendum = "R"
, definiens = "fine tuning is an infinitely regressive explanation for God"
}
, { definiendum = "x"
, definiens = "a thing"
}
, { definiendum = "g"
, definiens = "God's constitution"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If something is finely tuned, then something has a designer."
, notation = "∀x(Px→Qx)"
}
, { premise = "God's constitution is finely tuned."
, notation = "Pg"
}
, { premise = "If God's constitution has a designer, then fine tuning is an infinitely regressive explanation for God."
, notation = "Qg→R"
}
]
, conclusion = "Therefore, fine tuning is an infinitely regressive explanation for God."
, conclusionNotation = "R"
}
]
}

63
frontend/src/Config/Pages/Debate/Arguments/Inferences/FlatEarthDebunk.elm Executable file
View file

@ -0,0 +1,63 @@
module Config.Pages.Debate.Arguments.Inferences.FlatEarthDebunk exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentFlatEarthDebunk : Argument
argumentFlatEarthDebunk =
{ argumentTitle = "Flat Earth Internal Critique"
, propositionTitle = "The stars in the sky will not be perceived as rotating clockwise from anywhere else on the flat Earth, as long as you are looking towards the rotational plane."
, propositionReductio = ""
, propositionSummary = "The argument is structured to demonstrate that, within the context of a flat Earth model, if the stars are perceived as rotating counter-clockwise from the center, they cannot also be perceived as rotating clockwise from any point on the Earth."
, proofLink = "https://www.umsu.de/trees/#(~6x~6y~6z(Pxy~5(Qyz~5Rxz))),(Pkt~1Qta),(Rka~5~3Ska)|=(~3Ska)"
, argumentCertainty = 10
, argumentImage = "flatearth"
, definitionTable =
[ { definiendum = "P(x,y)"
, definiens = "(x) is perceived as rotating counter-clockwise from point (y)"
}
, { definiendum = "Q(y,z)"
, definiens = "(y) is on the same side of the rotational plane as (z)"
}
, { definiendum = "R(x,z)"
, definiens = "(x) will be perceived as rotating counter-clockwise from (z), as long as you are looking towards the plane"
}
, { definiendum = "S(x,z)"
, definiens = "(x) will be perceived as rotating clockwise from (z), as long as you are looking towards the plane"
}
, { definiendum = "x"
, definiens = "an object"
}
, { definiendum = "y"
, definiens = "vantage point A"
}
, { definiendum = "z"
, definiens = "vantage points B"
}
, { definiendum = "k"
, definiens = "stars in the sky"
}
, { definiendum = "t"
, definiens = "the center of the flat Earth"
}
, { definiendum = "a"
, definiens = "anywhere else on the flat Earth"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If an object is perceived as rotating counter-clockwise from vantage point A, then, for all vantage points B, if vantage point A is on the same side of the rotational plane as vantage points B, then the object will be perceived as rotating counter-clockwise from vantage points B, as long as you are looking towards the rotational plane."
, notation = "∀x∀y∀z(Pxy→(Qyz→Rxz))"
}
, { premise = "The stars in the sky are perceived as rotating counter-clockwise from the center of the flat Earth and the center of the flat Earth is on the same side of the rotational plane as anywhere else on the flat Earth."
, notation = "Pkt∧Qta"
}
, { premise = "If the stars in the sky are perceived as rotating counter-clockwise from anywhere else on the flat Earth, as long as you are looking towards the rotational plane, then the stars in the sky will not be perceived as rotating clockwise from anywhere else on the flat Earth, as long as you are looking towards the rotational plane."
, notation = "Rka→¬Ska"
}
]
, conclusion = "Therefore, the stars in the sky will not be perceived as rotating clockwise from anywhere else on the flat Earth, as long as you are looking towards the rotational plane."
, conclusionNotation = "¬Ska"
}
]
}

36
frontend/src/Config/Pages/Debate/Arguments/Inferences/FructoseNAFLD.elm Executable file
View file

@ -0,0 +1,36 @@
module Config.Pages.Debate.Arguments.Inferences.FructoseNAFLD exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentFructoseNAFLD : Argument
argumentFructoseNAFLD =
{ argumentTitle = "Argument Against Lipogenic Fructose"
, propositionTitle = "Fructose doesn't seem to uniquely cause fatty liver disease."
, propositionReductio = ""
, propositionSummary = "Experimental investigations into fructose overfeeding have consistently failed to produce a fatty liver phenotype in humans. This suggests that fructose, contrary to popular belief in some domains, does not uniquely cause fatty liver disease."
, proofLink = "https://www.umsu.de/trees/#(P~5~3Q),(P)|=(~3Q)"
, argumentCertainty = 8
, argumentImage = "fructosenafld"
, definitionTable =
[ { definiendum = "P"
, definiens = "experimental investigations into fructose overfeeding consistently fail to recreate a fatty liver phenotype in humans"
}
, { definiendum = "Q"
, definiens = "fructose seems to uniquely cause fatty liver disease"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If experimental investigations into fructose overfeeding consistently fail to recreate a fatty liver phenotype in humans, then fructose does not seem to uniquely cause fatty liver disease."
, notation = "P→¬Q"
}
, { premise = "Experimental investigations into fructose overfeeding consistently fail to recreate a fatty liver phenotype in humans."
, notation = "P"
}
]
, conclusion = "Therefore, fructose does not seem to uniquely cause fatty liver disease."
, conclusionNotation = "¬Q"
}
]
}

36
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthPromotingFoods.elm Executable file
View file

@ -0,0 +1,36 @@
module Config.Pages.Debate.Arguments.Inferences.HealthPromotingFoods exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthPromotingFoods : Argument
argumentHealthPromotingFoods =
{ argumentTitle = "Argument for Food's Inherent Health Value"
, propositionTitle = "All foods are definitionally health-promoting."
, propositionReductio = ""
, propositionSummary = "Given that food is, by its very definition, material that provides essential nutrients and energy to sustain bodily functions and growth, it follows that anything classified as food must be inherently health-promoting by its very nature."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(P)|=(Q)"
, argumentCertainty = 10
, argumentImage = "healthfoods"
, definitionTable =
[ { definiendum = "P"
, definiens = "food is defined as material consisting essentially of protein, carbohydrate, and/or fat used in the body of an organism to sustain growth, repair, and vital processes and to furnish energy"
}
, { definiendum = "Q"
, definiens = "all foods are definitionally health-promoting"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If food is defined as material consisting essentially of protein, carbohydrate, and/or fat used in the body of an organism to sustain growth, repair, and vital processes and to furnish energy, then all foods are definitionally health-promoting."
, notation = "P→Q"
}
, { premise = "Food is defined as material consisting essentially of protein, carbohydrate, and/or fat used in the body of an organism to sustain growth, repair, and vital processes and to furnish energy."
, notation = "P"
}
]
, conclusion = "Therefore, all foods are definitionally health-promoting."
, conclusionNotation = "Q"
}
]
}

52
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthSeeker.elm Executable file
View file

@ -0,0 +1,52 @@
module Config.Pages.Debate.Arguments.Inferences.HealthSeeker exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthSeeker : Argument
argumentHealthSeeker =
{ argumentTitle = "Ancestral Health Consistency Checker"
, propositionTitle = "If someone (who favours consuming ancestral foods to the exclusion of novel foods because they value reducing disease risk) is not in favour of consuming a novel food (that reduces disease risk when replacing an ancestral food), then that person would be acting against their values."
, propositionReductio = ""
, propositionSummary = "If someone values consuming ancestral foods over novel foods because they have the overall value of reducing disease risk, but a novel food reduces disease risk when replacing an ancestral food, they would be acting against their values by rejecting the novel food."
, proofLink = "https://www.umsu.de/trees/#(~7x(Px)~1~7y(Qy)~5~6x~6y(~3Rxy~5Sx)),(~7x(Px)),(~7y(Qy))|=(~6x~6y(~3Rxy~5Sx))"
, argumentCertainty = 10
, argumentImage = "healthseeker"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) favours consuming ancestral foods to the exclusion of (y) because they value reducing disease risk"
}
, { definiendum = "Q(y)"
, definiens = "(y) reduces disease risk when replacing an ancestral food"
}
, { definiendum = "R(x,y)"
, definiens = "(x) is in favour of consuming that (y)"
}
, { definiendum = "S(x)"
, definiens = "(x) would be acting against their values"
}
, { definiendum = "x"
, definiens = "someone"
}
, { definiendum = "y"
, definiens = "novel food"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If there exists someone who favours consuming ancestral foods to the exclusion of novel foods because they value reducing disease risk, and there exists a novel food that reduces disease risk when replacing an ancestral food, then if that person is not in favour of consuming that novel food, then that person would be acting against their values."
, notation = "∃x(Px)∧∃y(Qy)→∀x∀y(¬Rxy→Sx)"
}
, { premise = "There exists someone who favours consuming ancestral foods to the exclusion of novel foods because they value reducing disease risk."
, notation = "∃x(Px)"
}
, { premise = "There exists a novel food that reduces disease risk when replacing an ancestral food."
, notation = "∃y(Qy)"
}
]
, conclusion = "Therefore, if that person is not in favour of consuming that novel food, then that person would be acting against their values."
, conclusionNotation = "∀x∀y(¬Rxy→Sx)"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthyChocolate.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyChocolate exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthyChocolate : Argument
argumentHealthyChocolate =
{ argumentTitle = "Argument for Healthy Chocolate"
, propositionTitle = "Chocolate does not cause atherosclerosis."
, propositionReductio = ""
, propositionSummary = "Despite chocolate containing high amounts of saturated fat, populations that consume more chocolate do not exhibit higher rates of atherosclerosis, suggesting that chocolate does not have the same effect on heart disease risk as most other saturated fat sources."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(~3Qc)|=(~3Pc)"
, argumentCertainty = 7
, argumentImage = "chocolate"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) causes atherosclerosis"
}
, { definiendum = "Q(x)"
, definiens = "populations consuming more (x) have higher rates of atherosclerosis after adjustment or control over relevant confounders and covariates."
}
, { definiendum = "x"
, definiens = "a high saturated fat food"
}
, { definiendum = "c"
, definiens = "chocolate"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, if a high saturated fat food causes atherosclerosis, then populations consuming more of this high saturated fat food have higher rates of atherosclerosis after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px→Qx)"
}
, { premise = "Populations consuming more chocolate do not have higher rates of atherosclerosis after adjustment or control over relevant confounders and covariates."
, notation = "¬Qc"
}
]
, conclusion = "Therefore, chocolate does not cause atherosclerosis."
, conclusionNotation = "¬Pc"
}
]
}

42
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthyDairy.elm Executable file
View file

@ -0,0 +1,42 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyDairy exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthyDairy : Argument
argumentHealthyDairy =
{ argumentTitle = "Argument for Healthy Dairy Products"
, propositionTitle = "Non-churned, non-homogenized dairy do not cause atherosclerosis."
, propositionReductio = ""
, propositionSummary = "The diet-heart hypothesis would predict that populations consuming more dairy foods should have higher rates of the disease. However, even when you account for factors that could plausibly influence the results, non-churned, non-homogenized dairy have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes, particularly with respect to cardiovascular disease and colorectal cancer."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(~3Qh)|=(~3Ph)"
, argumentCertainty = 7
, argumentImage = "dairy"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) causes atherosclerosis"
}
, { definiendum = "Q(x)"
, definiens = "populations consuming more (x) have higher rates of atherosclerosis after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "high saturated fat food"
}
, { definiendum = "h"
, definiens = "non-churned, non-homogenized dairy"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, if a high saturated fat food causes atherosclerosis, then populations consuming more of the high saturated fat food have higher rates of atherosclerosis after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px→Qx)"
}
, { premise = "Populations consuming more non-churned, non-homogenized dairy do not have higher rates of atherosclerosis after adjustment or control over relevant confounders and covariates."
, notation = "¬Qh"
}
]
, conclusion = "Therefore, non-churned, non-homogenized dairy do not cause atherosclerosis."
, conclusionNotation = "¬Ph"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthyFattyFish.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyFattyFish exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthyFattyFish : Argument
argumentHealthyFattyFish =
{ argumentTitle = "Argument for Overwhelmingly Healthy Fatty Fish"
, propositionTitle = "Fatty fish is overwhelmingly healthy."
, propositionReductio = ""
, propositionSummary = "Even when you account for factors that could plausibly influence the results, fatty fish have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes, particularly with respect to cardiovascular disease."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qf)|=(Pf)"
, argumentCertainty = 8
, argumentImage = "fattyfish"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is overwhelmingly healthy"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a food"
}
, { definiendum = "f"
, definiens = "fattyfish"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a food is overwhelmingly healthy if, and only if, the food consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "Fatty fish consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "Qf"
}
]
, conclusion = "Therefore, fatty fish is overwhelmingly healthy."
, conclusionNotation = "Pf"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthyFibre.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyFibre exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthyFibre : Argument
argumentHealthyFibre =
{ argumentTitle = "Argument for Overwhelmingly Healthy Fibre"
, propositionTitle = "Fibre, whether whole or refined, is overwhelmingly healthy."
, propositionReductio = ""
, propositionSummary = "Even when you account for factors that could plausibly influence the results, both refined and whole fibre have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes, particularly with respect to cardiovascular disease."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qb)|=(Pb)"
, argumentCertainty = 9
, argumentImage = "fibre"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is overwhelmingly healthy"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a food"
}
, { definiendum = "b"
, definiens = "fibre"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a food is overwhelmingly healthy if, and only if, the food consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "Fibre, whether whole or refined, consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "Qb"
}
]
, conclusion = "Therefore, fibre, whether whole or refined, is overwhelmingly healthy."
, conclusionNotation = "Pb"
}
]
}

61
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthyFood.elm Executable file
View file

@ -0,0 +1,61 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyFood exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthyFood : Argument
argumentHealthyFood =
{ argumentTitle = "Argument For Healthy Food Substitution"
, propositionTitle = "Pepsi is healthy compared to leafy greens when trapped on a desert island."
, propositionReductio = ""
, propositionSummary = "A food is considered healthier than another in a specific context if it increases the time before illness or disease sets in when replacing the other food. On a desert island, since Pepsi can extend the time before starvation compared to leafy greens, it is considered healthier than leafy greens in that context."
, proofLink = "https://www.umsu.de/trees/#(~6x~6y~6z~6w(Pxyw~4Qwxzy)),(Qdpsl)|=(Ppld)"
, argumentCertainty = 10
, argumentImage = "foodsubstitution"
, definitionTable =
[ { definiendum = "P(x,y,w)"
, definiens = "(x) is healthy compared to (w) when in (y)"
}
, { definiendum = "Q(x,y,z,w)"
, definiens = "when within a (y), the consumption of (x) is likely to increase the lag-time to the onset of (z) when replacing (w)"
}
, { definiendum = "x"
, definiens = "a food"
}
, { definiendum = "y"
, definiens = "a another food"
}
, { definiendum = "z"
, definiens = "an illness or disease"
}
, { definiendum = "w"
, definiens = "a context"
}
, { definiendum = "p"
, definiens = "Pepsi"
}
, { definiendum = "d"
, definiens = "trapped on a desert island"
}
, { definiendum = "s"
, definiens = "starvation"
}
, { definiendum = "l"
, definiens = "leafy greens"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "A given a food is healthy compared to another given food when in a given context if, and only if, when within that context, the consumption of that given a food is likely to increase the lag-time to the onset of illness, disease, or infirmity when replacing a given other food."
, notation = "∀x∀y∀z∀w(Pxyw↔Qwxzy)"
}
, { premise = "When trapped on a desert island the consumption of Pepsi increases the lag-time to the onset of starvation when replacing leafy greens."
, notation = "Qdpsl"
}
]
, conclusion = "Therefore, Pepsi is healthy compared to leafy greens when trapped on a desert island."
, conclusionNotation = "Ppld"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthyPlantFoods.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyPlantFoods exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthyPlantFoods : Argument
argumentHealthyPlantFoods =
{ argumentTitle = "Argument for Overwhelmingly Healthy Plant Foods"
, propositionTitle = "Whole plant foods are overwhelmingly healthy."
, propositionReductio = ""
, propositionSummary = "Since whole plant foods consistently consistently associate with reduced risk of illness and death, it is reasonable to conclude that whole plant foods are overwhelmingly healthy."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qf)|=(Pf)"
, argumentCertainty = 9
, argumentImage = "plantfoods"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is overwhelmingly healthy"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a food"
}
, { definiendum = "w"
, definiens = "whole plant foods"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a food is overwhelmingly healthy if, and only if, the food consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "Whole plant foods consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "Qw"
}
]
, conclusion = "Therefore, whole plant foods are overwhelmingly healthy."
, conclusionNotation = "Pw"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthySeedOils.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.HealthySeedOils exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthySeedOils : Argument
argumentHealthySeedOils =
{ argumentTitle = "Argument for Overwhelmingly Healthy Seed Oils"
, propositionTitle = "Non-hydrogenated vegetable oils are overwhelmingly healthy."
, propositionReductio = ""
, propositionSummary = "Even when you account for factors that could plausibly influence the results, non-hydrogenated vegetable oils have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(Pv)|=(Qv)"
, argumentCertainty = 9
, argumentImage = "seedoils"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is overwhelmingly healthy"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a food"
}
, { definiendum = "v"
, definiens = "non-hydrogenated vegetable oils"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a food is overwhelmingly healthy if, and only if, the food consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "Non-hydrogenated vegetable oils consistently associate with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "Pv"
}
]
, conclusion = "Therefore, non-hydrogenated vegetable oils are overwhelmingly healthy."
, conclusionNotation = "Qv"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/HealthySoy.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.HealthySoy exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentHealthySoy : Argument
argumentHealthySoy =
{ argumentTitle = "Argument for Healthy Soy Products"
, propositionTitle = "Soy products are overwhelmingly healthy."
, propositionReductio = ""
, propositionSummary = "Even when you account for factors that could plausibly influence the results, non-hydrogenated soy products have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes, particularly with respect to cardiovascular disease."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qs)|=(Ps)"
, argumentCertainty = 7
, argumentImage = "soyproducts"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is overwhelmingly healthy"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a food"
}
, { definiendum = "s"
, definiens = "soy products"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a food is overwhelmingly healthy if, and only if, the food consistently associates with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "Soy products consistently associate with a reduced risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "Qs"
}
]
, conclusion = "Therefore, soy products are overwhelmingly healthy."
, conclusionNotation = "Ps"
}
]
}

48
frontend/src/Config/Pages/Debate/Arguments/Inferences/ImmortalityReductio.elm Executable file
View file

@ -0,0 +1,48 @@
module Config.Pages.Debate.Arguments.Inferences.ImmortalityReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentImmortalityReductio : Argument
argumentImmortalityReductio =
{ argumentTitle = "Appeal to Nature Immortality Reductio"
, propositionTitle = "Senescence does not result in death."
, propositionReductio = "People who appeal to nature in this fashion assert that death cannot result from natural biological processes. Usually this is asserted in order to avoid accepting that LDL is causative of atherosclerosis."
, propositionSummary = "If one commits to this variation of the appeal to nature fallacy, it's unclear why they wouldn't be subsequently committed to affirm that humans are immortal, like Connor fucking MacLeod."
, proofLink = "https://www.umsu.de/trees/#(~6x~6y(Hx~5~3Rxy)),(Hs)%7C=(~3Rsd)"
, argumentCertainty = 10
, argumentImage = "immortality"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "humans undergo (x)"
}
, { definiendum = "Q(x,y)"
, definiens = "(x) results in (y)"
}
, { definiendum = "x"
, definiens = "normal physiological process"
}
, { definiendum = "y"
, definiens = "negative health outcome"
}
, { definiendum = "s"
, definiens = "senescence"
}
, { definiendum = "d"
, definiens = "death"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If humans undergo a normal physiological process, then the normal physiological process does not result in a negative health outcome."
, notation = "∀x∀y(Px→¬Qxy)"
}
, { premise = "Humans undergo senescence."
, notation = "Ps"
}
]
, conclusion = "Therefore, senescence does not result in death."
, conclusionNotation = "¬Qsd"
}
]
}

54
frontend/src/Config/Pages/Debate/Arguments/Inferences/Malondialdehyde.elm Executable file
View file

@ -0,0 +1,54 @@
module Config.Pages.Debate.Arguments.Inferences.Malondialdehyde exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentMalondialdehyde : Argument
argumentMalondialdehyde =
{ argumentTitle = "Atherogenic Omega-3 Reductio"
, propositionTitle = "Omega-3s are atherogenic."
, propositionReductio = "Certain anti-seed oil proponents assert that seed oils cause atherosclerosis via omega-6-derived malondialdehyde, and that this is the only cause of atherosclerosis. However, they often also assert that omega-3 fatty acids are anti-atherogenic, despite the fact that omega-3s actually produce more malondialdehyde than omega-6s."
, propositionSummary = "If one takes the view that in order for a substance to increase the risk of atherosclerosis, it must facilitate the oxidative modification of LDL particles via malondialdehyde production, and one also affirms that omega-3s are anti-atherogenic, then this would imply that all fatty acids that produce malondialdehyde, including omega-3s, must also be atherogenic, which contradicts the their belief that omega-3s are heart-healthy."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qm),(Pm~5~6x(Rx))%7C=(Ro)"
, argumentCertainty = 6
, argumentImage = "mda"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) increases the risk of atherosclerosis"
}
, { definiendum = "Q(x)"
, definiens = "(x) facilitates the oxidative modification of LDL particles"
}
, { definiendum = "R(x)"
, definiens = "all (x) are atherogenic"
}
, { definiendum = "x"
, definiens = "a substance"
}
, { definiendum = "y"
, definiens = "malondialdehyde-producing fatty acids"
}
, { definiendum = "m"
, definiens = "malondialdehyde"
}
, { definiendum = "o"
, definiens = "omega-3s"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "A substance increases the risk of atherosclerosis if, and only if, that substance facilitates the oxidative modification of LDL particles."
, notation = "∀x(Px↔Qx)"
}
, { premise = "Malondialdehyde facilitates the oxidative modification of LDL particles."
, notation = "Qm"
}
, { premise = "If malondialdehyde increases the risk of atherosclerosis, then all malondialdehyde-producing fatty acids are atherogenic."
, notation = "Pm→∀y(Ry)"
}
]
, conclusion = "Therefore, omega-3s are atherogenic."
, conclusionNotation = "Ro"
}
]
}

48
frontend/src/Config/Pages/Debate/Arguments/Inferences/OddOrderPredators.elm Executable file
View file

@ -0,0 +1,48 @@
module Config.Pages.Debate.Arguments.Inferences.OddOrderPredators exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentOddOrderPredators : Argument
argumentOddOrderPredators =
{ argumentTitle = "Argument for Culling Odd Order Predators"
, propositionTitle = "It is permissible to prevent predation with lethal force to the same degree we would tolerate for humans."
, propositionReductio = "I view animal rights as the logical extension of trait-adjusted human rights to non-human animals. I think humans have the right not to be exposed to circumstances where they're hunted for food, and I think it is permissible to use lethal force to save the lives of the hunted, all else equal. By extension I think non-human animals have this right too."
, propositionSummary = "Summary"
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5~3Qx)),(Pa),(~3Qa~5R)%7C=(R)"
, argumentCertainty = 10
, argumentImage = "oddorderpredators"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) has negative rights"
}
, { definiendum = "Q(x)"
, definiens = "we should defend (x) from rights violations to any lesser degree than we would tolerate for humans"
}
, { definiendum = "R(x)"
, definiens = "it is permissible to prevent predation with lethal force to the same degree we would tolerate for humans"
}
, { definiendum = "x"
, definiens = "a being"
}
, { definiendum = "a"
, definiens = "animal"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, if something has negative rights, then we should not defend it from rights violations to any lesser degree than we would tolerate for humans."
, notation = "∀x(Px→¬Qx)"
}
, { premise = "Animals have negative rights."
, notation = "Pa"
}
, { premise = "If we should not defend animals from rights violations to any lesser degree than we would tolerate for humans, then it is permissible to prevent predation with lethal force to the same degree we would tolerate for humans."
, notation = "¬Qa→R"
}
]
, conclusion = "Therefore, it is permissible to prevent predation with lethal force to the same degree we would tolerate for humans."
, conclusionNotation = "R"
}
]
}

36
frontend/src/Config/Pages/Debate/Arguments/Inferences/Omega3Omega6Ratio.elm Executable file
View file

@ -0,0 +1,36 @@
module Config.Pages.Debate.Arguments.Inferences.Omega3Omega6Ratio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentOmega3Omega6Ratio : Argument
argumentOmega3Omega6Ratio =
{ argumentTitle = "Argument Against the Omega-6/Omega-3 Ratio"
, propositionTitle = "The omega-6/omega-3 ratio is unlikely to matter for health."
, propositionReductio = ""
, propositionSummary = "More often than not, the associated risks of a high omega-6/omega-3 ratio are better explained by omega-3 alone. In multivariable analyses, the ratio looks like it matters, but in univariable anaylses, low omega-3 is almost always driving the risk via lowering the denominator."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q)|=(~3P)"
, argumentCertainty = 7
, argumentImage = "omega6omega3ratio"
, definitionTable =
[ { definiendum = "P"
, definiens = "increases or decreases in disease risk associated with a high or low omega-6/omega-3 ratio are better explained by changes in omega-3 alone"
}
, { definiendum = "Q"
, definiens = "the omega-6/omega-3 ratio is likely to matter for health"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If increases or decreases in disease risk associated with a high or low omega-6/omega-3 ratio are better explained by changes in omega-3 alone, then the omega-6/omega-3 ratio is not likely to matter for health."
, notation = "P→¬Q"
}
, { premise = "Increases or decreases in disease risk associated with a high or low omega-6/omega-3 ratio are better explained by changes in omega-3 alone."
, notation = "P"
}
]
, conclusion = "Therefore, the omega-6/omega-3 ratio is not likely to matter for health."
, conclusionNotation = "¬Q"
}
]
}

63
frontend/src/Config/Pages/Debate/Arguments/Inferences/Ostroveganism.elm Executable file
View file

@ -0,0 +1,63 @@
module Config.Pages.Debate.Arguments.Inferences.Ostroveganism exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentOstroveganism : Argument
argumentOstroveganism =
{ argumentTitle = "Argument for Vegan Bivalves"
, propositionTitle = "Bivalves are not likely to be sentient."
, propositionReductio = ""
, propositionSummary = "I view animal rights as the logical extension of trait-adjusted human rights to non-human animals. However, I do not believe that non-sentient human bodies, such as brainless or brain-dead human bodies, have such human rights. By extension, I don't believe that non-human animals that lack brains possess these rights either."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx~1Rx~1(Sx~2Wx))),(Qc~1~3Rc~1Sc~1~3Wc),(~3Pc~5~6x(~3Tx))|=(~3Tb)"
, argumentCertainty = 10
, argumentImage = "ostroveganism"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) counts as a brain"
}
, { definiendum = "Q(x)"
, definiens = "(x) is a complex network of interconnected neurons"
}
, { definiendum = "R(x)"
, definiens = "(x) integrates neuronal pathways from multiple sensory organs"
}
, { definiendum = "S(x)"
, definiens = "(x) presents with distinct functional regions"
}
, { definiendum = "W(x)"
, definiens = "(x) presents with nuclei with white matter tracts that facilitate inter-regional communication"
}
, { definiendum = "T(x)"
, definiens = "the corresponding (y) is likely to be sentient"
}
, { definiendum = "x"
, definiens = "an object"
}
, { definiendum = "y"
, definiens = "brainless biological system into which cerebral ganglia are integrated"
}
, { definiendum = "c"
, definiens = "cerebral ganglia"
}
, { definiendum = "b"
, definiens = "bivalves"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "Something counts as a brain if, and only if, something is a complex network of interconnected neurons, integrates neuronal pathways from multiple sensory organs, and presents with distinct functional regions or nuclei with white matter tracts that facilitate inter-regional communication."
, notation = "∀x(Px↔(Qx∧Rx∧(Sx∨Wx)))"
}
, { premise = "Cerebral ganglia meet criteria one and three, but not criteria two and four."
, notation = "Qc∧¬Rc∧Sc∧¬Wc"
}
, { premise = "If cerebral ganglia do not count as brains, then the corresponding brainless biological system into which the cerebral ganglia are integrated is not likely to be sentient."
, notation = "¬Pc→∀x(¬Tx)"
}
]
, conclusion = "Therefore, bivalves are not likely to be sentient."
, conclusionNotation = "¬Tb"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/PlantBasedCVDReversal.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.PlantBasedCVDReversal exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentPlantBasedCVDReversal : Argument
argumentPlantBasedCVDReversal =
{ argumentTitle = "Argument Against Plant-Based CVD Reversal"
, propositionTitle = "Plant-based diets do not appear to clinically reverse atherosclerosis."
, propositionReductio = ""
, propositionSummary = "To date, there is not a single case of supposed heart disease reversal from a plant-based diet that is actually compatible with established definitions of heart disease reversal in the literature."
, proofLink = "https://www.umsu.de/trees/#(P~1~3Q~5~3R),(P),(~3Q)|=(~3R)"
, argumentCertainty = 8
, argumentImage = "plantbasedcvd"
, definitionTable =
[ { definiendum = "P"
, definiens = "there are established definitions for atherosclerosis reversal in the domain of cardiology"
}
, { definiendum = "Q"
, definiens = "current research on plant-based diets and atherosclerosis reversal satisfy the definitions for atherosclerosis reversal in the domain of cardiology"
}
, { definiendum = "R"
, definiens = "plant-based diets do not appear to clinically reverse atherosclerosis"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If there are established definitions for atherosclerosis reversal in the domain of cardiology and current research on plant-based diets and atherosclerosis reversal do not satisfy the definitions for atherosclerosis reversal in the domain of cardiology, then plant-based diets do not appear to clinically reverse atherosclerosis."
, notation = "P∧¬Q→¬R"
}
, { premise = "There are established definitions for atherosclerosis reversal in the domain of cardiology."
, notation = "P"
}
, { premise = "Current research on plant-based diets and atherosclerosis reversal do not satisfy the definitions for atherosclerosis reversal in the domain of cardiology."
, notation = "¬Q"
}
]
, conclusion = "Therefore, plant-based diets do not appear to clinically reverse atherosclerosis."
, conclusionNotation = "¬R"
}
]
}

54
frontend/src/Config/Pages/Debate/Arguments/Inferences/PollinationReductio.elm Executable file
View file

@ -0,0 +1,54 @@
module Config.Pages.Debate.Arguments.Inferences.PollinationReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentPollinationReductio : Argument
argumentPollinationReductio =
{ argumentTitle = "Vegan Anti-Pollination Reductio"
, propositionTitle = "Apples are not vegan"
, propositionReductio = "Some vegans hold to a deontic principle that any form of animal exploitation is wrong, and the products of exploitation are to be boycotted and designated non-vegan."
, propositionSummary = "If one accepts that no animal exploitation is permissible, they're committed to some truly hilarious positions, such as apples not being vegan because we exploit the natural behaviour of bees to pollinate our apple trees."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4~3Qx)),(Qb),(~3Pb~5~6y(~3Ry))|=(~3Ra)"
, argumentCertainty = 10
, argumentImage = "pollinationreductio"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is vegan"
}
, { definiendum = "Q(x)"
, definiens = "(x) involves human on non-human animal exploitation"
}
, { definiendum = "R(y)"
, definiens = "(y) generated are vegan"
}
, { definiendum = "x"
, definiens = "a being"
}
, { definiendum = "y"
, definiens = "a product"
}
, { definiendum = "b"
, definiens = "bees pollinating human crops"
}
, { definiendum = "a"
, definiens = "apples"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "Something is vegan if, and only if, something does not involve human on non-human animal exploitation."
, notation = "∀x(Px↔¬Qx)"
}
, { premise = "Bees pollinating human crops involves human on non-human exploitation."
, notation = "Qb"
}
, { premise = "If bees pollinating human crops is not vegan, then the products generated are not vegan."
, notation = "¬Pb→∀y(¬Ry)"
}
]
, conclusion = "Therefore, apples are not vegan."
, conclusionNotation = "¬Ra"
}
]
}

66
frontend/src/Config/Pages/Debate/Arguments/Inferences/PolyphenolReductio.elm Executable file
View file

@ -0,0 +1,66 @@
module Config.Pages.Debate.Arguments.Inferences.PolyphenolReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentPolyphenolReductio : Argument
argumentPolyphenolReductio =
{ argumentTitle = "Anti-Polyphenol Reductio"
, propositionTitle = "Anti-polyphenol, ancestral diet advocates are committed to favouring GMOs."
, propositionReductio = "Some carnivore diet proponents suggest that phytochemical compounds, such as polyphenols, are actually harmful to human beings."
, propositionSummary = "If one is committed to the notions that polyphenols in plants are bad for humans, and that grass-fed red meat is the healthiest available type of red meat, then they're pragmatically committed to being pro-GMO to lower the grass-derived polyphenol content of grass-fed beef."
, proofLink = "https://www.umsu.de/trees/#(~6x~6y(Px~1Qxy~5Rxy)),(Pp),(Qpg),(Rpg~5Spg),(Spg~5Wp)|=(Wp)"
, argumentCertainty = 7
, argumentImage = "polyphenolreductio"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is harmful"
}
, { definiendum = "Q(x,y)"
, definiens = "(x) is contained in (y)"
}
, { definiendum = "R(x,y)"
, definiens = "(x) renders (y) harmful"
}
, { definiendum = "S(p,g)"
, definiens = "genetic modification that removes (p) from grass renders (g) less harmful"
}
, { definiendum = "W(p)"
, definiens = "health-conscious, anti-polyphenol, ancestral diet advocates are committed to favouring GMOs"
}
, { definiendum = "x"
, definiens = "plant defense chemicals"
}
, { definiendum = "y"
, definiens = "a food"
}
, { definiendum = "p"
, definiens = "polyphenols"
}
, { definiendum = "g"
, definiens = "grass-fed beef"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If plant defense chemicals are harmful and plant defense chemicals are contained in a food, then plant defense chemicals render the food harmful."
, notation = "∀x∀y(Px∧Qxy→Rxy)"
}
, { premise = "Polyphenols from grass are harmful."
, notation = "Pp"
}
, { premise = "Polyphenols from grass are contained in grass-fed beef."
, notation = "Qpg"
}
, { premise = "If polyphenols from grass render grass-fed beef harmful, then genetic modification that removes polyphenols from grass renders grass-fed beef less harmful."
, notation = "Rpg→Spg"
}
, { premise = "If genetic modification that removes polyphenols from grass renders grass-fed beef less harmful, then health-conscious, anti-polyphenol, ancestral diet advocates are committed to favouring GMOs."
, notation = "Spg→Wp"
}
]
, conclusion = "Therefore, health-conscious, anti-polyphenol, ancestral diet advocates are committed to favouring GMOs."
, conclusionNotation = "Wp"
}
]
}

54
frontend/src/Config/Pages/Debate/Arguments/Inferences/ScratcherPioneers.elm Executable file
View file

@ -0,0 +1,54 @@
module Config.Pages.Debate.Arguments.Inferences.ScratcherPioneers exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentScratcherPioneers : Argument
argumentScratcherPioneers =
{ argumentTitle = "Tattoo Pioneers were Scratchers"
, propositionTitle = "The original trailblazers of modern tattooing were scratchers."
, propositionReductio = "Some tattoo artists condemn scratchers and their associated culture due to poor observation of sanitation standards and lack of mentorship and also simultaneously hold the original trailblazers of the tattoo industry in high esteem."
, propositionSummary = "If what qualifies a given tattoo artist as a scratcher is poor observation of sanitation standards and lack of mentorship, then it's just straightforwardly entailed that the original trailblazers of the tattoo industry were scratchers."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx~2Rx~2Sx)),(Qt),(Rt),(St)%7C=(Pt)"
, argumentCertainty = 10
, argumentImage = "tattooscratchers"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is a scratcher"
}
, { definiendum = "Q(x)"
, definiens = "(x) tattoos without a license"
}
, { definiendum = "R(x)"
, definiens = "(x) tattoos without observing basic health standards"
}
, { definiendum = "S(x)"
, definiens = "(x) tattoos without having undertaken apprenticeship"
}
, { definiendum = "x"
, definiens = "a tattoo artist"
}
, { definiendum = "t"
, definiens = "original trailblazers of modern tattooing"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "A tattoo artist is a scratcher if, and only if, the tattoo artist tattoos without a license and/or one tattoos without observing basic health standards and/or one tattoos without having undertaken apprenticeship."
, notation = "∀x(Px↔Qx∨Rx∨Sx)"
}
, { premise = "The original trailblazers of modern tattooing tattooed without licenses."
, notation = "Qt"
}
, { premise = "The original trailblazers of modern tattooing tattooed without observing basic health standards."
, notation = "Rt"
}
, { premise = "The original trailblazers of modern tattooing tattooed without having undertaken apprenticeship."
, notation = "St"
}
]
, conclusion = "Therefore, the original trailblazers of modern tattooing were scratchers."
, conclusionNotation = "Pt"
}
]
}

48
frontend/src/Config/Pages/Debate/Arguments/Inferences/SodiumCVD.elm Executable file
View file

@ -0,0 +1,48 @@
module Config.Pages.Debate.Arguments.Inferences.SodiumCVD exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentSodiumCVD : Argument
argumentSodiumCVD =
{ argumentTitle = "Argument for Atherogenic Sodium"
, propositionTitle = "Higher intakes of sodium increases cardiovascular disease risk."
, propositionReductio = ""
, propositionSummary = "In all of the strongest analysis on the relationship between sodium intake and cardiovascular disease risk, there is a linear and proportional relationship. Particularly when the strongest measurement methods are used, such as multiple 24-hour urinary collections."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~1Q~5Rx)),(Ps),(Q)|=(Rs)"
, argumentCertainty = 9
, argumentImage = "sodiumcvd"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) consistently raises blood pressure in controlled studies"
}
, { definiendum = "Q(x)"
, definiens = "elevated blood pressure is known to cause cardiovascular disease"
}
, { definiendum = "R(x)"
, definiens = "higher intakes of substance (x) increases cardiovascular disease risk"
}
, { definiendum = "x"
, definiens = "a substance"
}
, { definiendum = "s"
, definiens = "sodium"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, if a substance consistently raises blood pressure in controlled studies and elevated blood pressure is known to cause cardiovascular disease, then higher intakes of that substance increases cardiovascular disease risk."
, notation = "∀x(Px∧Q→Rx)"
}
, { premise = "Sodium consistently raises blood pressure in controlled studies."
, notation = "Ps"
}
, { premise = "Elevated blood pressure is known to cause cardiovascular disease."
, notation = "Q"
}
]
, conclusion = "Therefore, higher intakes of sodium increases cardiovascular disease risk."
, conclusionNotation = "Rs"
}
]
}

43
frontend/src/Config/Pages/Debate/Arguments/Inferences/TMAOCausality.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Arguments.Inferences.TMAOCausality exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentTMAOCausality : Argument
argumentTMAOCausality =
{ argumentTitle = "Argument Against TMAO Being Causal in CVD"
, propositionReductio = ""
, propositionTitle = "TMAO is not likely to be causative of heart disease."
, propositionSummary = "In the strongest research we have on the relationship between TMAO and heart disease risk, such as with Mendelian randomization and genome-wide associational studies, there is no persuasive causal link between TMAO in the blood and heart disease risk."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(~3Qt)|=(~3Pt)"
, argumentCertainty = 9
, argumentImage = "tmaocausality"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is likely to be causative of heart diseas"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently associates with an increased risk of heart disease after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a substance"
}
, { definiendum = "t"
, definiens = "TMAO"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, if a substance is likely to be causative of heart disease if, then the substance consistently associates with an increased risk of heart disease after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "TMAO consistently associates with an increased risk of heart disease after adjustment or control over relevant confounders and covariates."
, notation = "¬Qt"
}
]
, conclusion = "Therefore, TMAO is not likely to be causative of heart disease."
, conclusionNotation = "¬Pt"
}
]
}

57
frontend/src/Config/Pages/Debate/Arguments/Inferences/Template.elm Executable file
View file

@ -0,0 +1,57 @@
module Config.Pages.Debate.Arguments.Inferences.Template exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argument : Argument
argument =
{ argumentTitle = ""
, propositionTitle = ""
, propositionReductio = ""
, propositionSummary = ""
, proofLink = ""
, argumentCertainty = 1
, argumentImage = ""
, definitionTable =
[ { definiendum = ""
, definiens = ""
}
, { definiendum = ""
, definiens = ""
}
, { definiendum = ""
, definiens = ""
}
, { definiendum = ""
, definiens = ""
}
, { definiendum = ""
, definiens = ""
}
, { definiendum = ""
, definiens = ""
}
]
, argumentFormalization =
[ { premises =
[ { premise = ""
, notation = ""
}
, { premise = ""
, notation = ""
}
, { premise = ""
, notation = ""
}
, { premise = ""
, notation = ""
}
, { premise = ""
, notation = ""
}
]
, conclusion = ""
, conclusionNotation = ""
}
]
}

66
frontend/src/Config/Pages/Debate/Arguments/Inferences/TransPeople.elm Executable file
View file

@ -0,0 +1,66 @@
module Config.Pages.Debate.Arguments.Inferences.TransPeople exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentTransPeople : Argument
argumentTransPeople =
{ argumentTitle = "Argument For Trans Identity"
, propositionTitle = "A trans person of the male sex is a woman and a trans person with female sex is a man."
, propositionReductio = ""
, propositionSummary = "Virtually 100% of the debate surrounding trans identity is merely a trivial semantic disagreement about what constitutes a man or a woman. Below is a formal argument for characterization of a man and a women that maximally satisfies both parties and minimizes absurdities."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Rx~1Wx)),(~6x(Qx~4Sx~1Wx)),(Ra~1Wa),(Sg~1Wg)|=(Pa~1Qg)"
, argumentCertainty = 10
, argumentImage = "transpeople"
, definitionTable =
[ { definiendum = "Male"
, definiens = "the cluster of traits that associate with small, but not large, gametes."
}
, { definiendum = "Female"
, definiens = "the cluster of traits that associate with large, but not small, gametes."
}
, { definiendum = "P(x)"
, definiens = "(x) is a woman"
}
, { definiendum = "Q(x)"
, definiens = "(x) is a man"
}
, { definiendum = "R(x)"
, definiens = "(x) possesses a sufficiently greater sum of weighted traits that more closely associate with large gametes than weighted traits that associate with small gametes"
}
, { definiendum = "S(x)"
, definiens = "(x) possesses a sufficiently greater sum of weighted traits that more closely associate with small gametes than weighted traits that associate with large gametes"
}
, { definiendum = "W(x)"
, definiens = "(x) is over 18 years of age"
}
, { definiendum = "x"
, definiens = "someone"
}
, { definiendum = "a"
, definiens = "a trans person of the male sex"
}
, { definiendum = "g"
, definiens = "a trans person of the female sex"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "Someone is a woman if, and only if, someone possesses a sufficiently greater sum of weighted traits that more closely associate with large gametes than weighted traits that associate with small gametes and someone is over 18 years of age."
, notation = "∀x(Px↔Rx∧Wx)"
}
, { premise = "Someone is a man if, and only if, someone possesses a sufficiently greater sum of weighted traits that more closely associate with small gametes than weighted traits that associate with large gametes and someone is over 18 years of age."
, notation = "∀x(Qx↔Sx∧Wx)"
}
, { premise = "A trans person of the male sex possesses a sufficiently greater sum of weighted traits that more closely associate with large gametes than weighted traits that associate with small gametes and a trans person with small gametes is over 18 years of age."
, notation = "Ra∧Wa"
}
, { premise = "A trans person of the female sex possesses a sufficiently greater sum of weighted traits that more closely associate with small gametes than weighted traits that associate with large gametes and a trans person with large gametes is over 18 years of age."
, notation = "Sg∧Wg"
}
]
, conclusion = "Therefore, a trans person of the male sex is a woman and a trans person with female sex is a man."
, conclusionNotation = "Pa∧Qg"
}
]
}

36
frontend/src/Config/Pages/Debate/Arguments/Inferences/TruncatedMeta.elm Executable file
View file

@ -0,0 +1,36 @@
module Config.Pages.Debate.Arguments.Inferences.TruncatedMeta exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentTruncatedMeta : Argument
argumentTruncatedMeta =
{ argumentTitle = "Argument For Truncated Meta-Analysis"
, propositionTitle = "Meta-analytic summations that include adequately powered studies to the exclusion of insufficiently powered studies will provide better causal estimates than meta-analytic summations that include both adequately powered studies and insufficiently powered studies."
, propositionReductio = ""
, propositionSummary = "Some people argue that omission of studies from meta-analysis is bad form because the more point estimates, the better. However, I argue that there are circumstances where including more studies can actually lower the quality of causal estimates."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(P)%7C=(Q)"
, argumentCertainty = 7
, argumentImage = "truncatedmetas"
, definitionTable =
[ { definiendum = "P"
, definiens = "underpowered studies provide weaker causal estimates than adequately powered studies"
}
, { definiendum = "Q"
, definiens = "meta-analytic summations that include adequately powered studies to the exclusion of insufficiently powered studies will provide better causal estimates than meta-analytic summations that include both adequately powered studies and insufficiently powered studies"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If underpowered studies provide weaker causal estimates than adequately powered studies, then meta-analytic summations that include adequately powered studies to the exclusion of insufficiently powered studies will provide better causal estimates than meta-analytic summations that include both adequately powered studies and insufficiently powered studies."
, notation = "P→Q"
}
, { premise = "Underpowered studies provide weaker causal estimates than adequately powered studies."
, notation = "P"
}
]
, conclusion = "Therefore, meta-analytic summations that include adequately powered studies to the exclusion of insufficiently powered studies will provide better causal estimates than meta-analytic summations that include both adequately powered studies and insufficiently powered studies."
, conclusionNotation = "Q"
}
]
}

48
frontend/src/Config/Pages/Debate/Arguments/Inferences/UnhealthyCoconutOil.elm Executable file
View file

@ -0,0 +1,48 @@
module Config.Pages.Debate.Arguments.Inferences.UnhealthyCoconutOil exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentUnhealthyCoconutOil : Argument
argumentUnhealthyCoconutOil =
{ argumentTitle = "Argument For Atherogenic Coconut Oil"
, propositionTitle = "There is not a reason to believe that coconut oil is any better for heart health than other saturated fat sources that increase LDL-C."
, propositionReductio = ""
, propositionSummary = "LDL causally associates with heart disease in a linear and proportional manner, and in all cases exposures that durably increase LDL over time produce likewise increases in heart disease risk. Coconut oil is one such exposure."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~1Qx~5~3Rx)),(Pc),(Qc)|=(~3Rc)"
, argumentCertainty = 9
, argumentImage = "coconutoil"
, definitionTable =
[ { definiendum = "P"
, definiens = "a given (x) increases LDL-C at a similar rate to other saturated fat sources"
}
, { definiendum = "Q"
, definiens = "a given (x) has no other known qualities that counteract said increase in LDL-C"
}
, { definiendum = "R"
, definiens = "there is a reason to believe that such an (x) is any better for heart health than other (x) that increase LDL-C"
}
, { definiendum = "x"
, definiens = "a saturated fat source"
}
, { definiendum = "c"
, definiens = "coconut oil"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "If a given saturated fat source increases LDL-C at a similar rate to other saturated fat sources and and a given saturated fat source has no other known qualities that counteract said increase in LDL-C, then there is not a reason to believe that such a saturated fat source is any better for heart health than other saturated fat sources that increase LDL-C."
, notation = "∀x(Px∧Qx→¬Rx)"
}
, { premise = "Coconut oil increases LDL-C at a similar rate to other saturated fat sources."
, notation = "Pc"
}
, { premise = "Coconut oil has no other known qualities that counteract said increase in LDL-C."
, notation = "Qc"
}
]
, conclusion = "Therefore, there is not a reason to believe that coconut oil is any better for heart health than other saturated fat sources that increase LDL-C."
, conclusionNotation = "¬Rc"
}
]
}

42
frontend/src/Config/Pages/Debate/Arguments/Inferences/UnhealthyProcessedMeat.elm Executable file
View file

@ -0,0 +1,42 @@
module Config.Pages.Debate.Arguments.Inferences.UnhealthyProcessedMeat exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentUnhealthyProcessedMeat : Argument
argumentUnhealthyProcessedMeat =
{ argumentTitle = "Argument for Unhealthy Processed Meat"
, propositionTitle = "Processed meat is overwhelmingly unhealthy."
, propositionReductio = ""
, propositionSummary = "Even when you account for factors that could plausibly influence the results, processed meat has been shown to consistently increase the risk of morbidity and mortality, strongly suggesting that they directly contribute to worse health outcomes, particularly with respect to colorectal cancer and heart disease."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qs)|=(Ps)"
, argumentCertainty = 8
, argumentImage = "processedmeat"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is overwhelmingly unhealthy"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently associates with an increased risk of morbidity and mortality after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a food"
}
, { definiendum = "s"
, definiens = "processed meat"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a food is overwhelmingly unhealthy if, and only if, the food consistently associates with an increased risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "Processed meat consistently associates with an increased risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "Qs"
}
]
, conclusion = "Therefore, processed meat is overwhelmingly unhealthy."
, conclusionNotation = "Ps"
}
]
}

42
frontend/src/Config/Pages/Debate/Arguments/Inferences/UnhealthyRedMeat.elm Executable file
View file

@ -0,0 +1,42 @@
module Config.Pages.Debate.Arguments.Inferences.UnhealthyRedMeat exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentUnhealthyRedMeat : Argument
argumentUnhealthyRedMeat =
{ argumentTitle = "Argument for Unhealthy Red Meat"
, propositionTitle = "Red meat and processed meat are overwhelmingly unhealthy."
, propositionReductio = ""
, propositionSummary = "Even when you account for factors that could plausibly influence the results, unprocessed red meat has been shown to consistently increase the risk of morbidity and mortality, strongly suggesting that they directly contribute to worse health outcomes, particularly with respect to colorectal cancer and heart disease."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qm)|=(Pm)"
, argumentCertainty = 7
, argumentImage = "redmeat"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is overwhelmingly unhealthy"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently associates with an increased risk of morbidity and mortality after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a food"
}
, { definiendum = "m"
, definiens = "redmeat"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a food is overwhelmingly unhealthy if, and only if, the food consistently associates with an increased risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "Unprocessed red meat consistently associates with an increased risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "Qm"
}
]
, conclusion = "Therefore, unprocessed red meat is overwhelmingly unhealthy."
, conclusionNotation = "Pm"
}
]
}

42
frontend/src/Config/Pages/Debate/Arguments/Inferences/UnhealthySaturatedFat.elm Executable file
View file

@ -0,0 +1,42 @@
module Config.Pages.Debate.Arguments.Inferences.UnhealthySaturatedFat exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentUnhealthySaturatedFat : Argument
argumentUnhealthySaturatedFat =
{ argumentTitle = "Argument Against Saturated Fat"
, propositionTitle = "Most sources of saturated fat are overwhelmingly unhealthy."
, propositionReductio = ""
, propositionSummary = "Even when you account for factors that could plausibly influence the results, most animal-derived saturated fats have been shown to consistently increase the risk of morbidity and mortality, strongly suggesting that they directly contribute to worse health outcomes, particularly with respect to heart disease and non-alcoholic fatty liver disease."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qf)|=(Pf)"
, argumentCertainty = 9
, argumentImage = "saturatedfat"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "(x) is overwhelmingly unhealthy"
}
, { definiendum = "Q(x)"
, definiens = "(x) consistently associates with an increased risk of morbidity and mortality after adjustment or control over relevant confounders and covariates"
}
, { definiendum = "x"
, definiens = "a food"
}
, { definiendum = "f"
, definiens = "most sources of saturated fat"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, a food is overwhelmingly unhealthy if, and only if, the food consistently associates with an increased risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "∀x(Px↔Qx)"
}
, { premise = "Most sources of saturated fat consistently associates with an increased risk of morbidity and mortality after adjustment or control over relevant confounders and covariates."
, notation = "Qf"
}
]
, conclusion = "Therefore, most sources of saturated fat are overwhelmingly unhealthy."
, conclusionNotation = "Pf"
}
]
}

54
frontend/src/Config/Pages/Debate/Arguments/Inferences/VeganSocietyReductio.elm Executable file
View file

@ -0,0 +1,54 @@
module Config.Pages.Debate.Arguments.Inferences.VeganSocietyReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentVeganSocietyReductio : Argument
argumentVeganSocietyReductio =
{ argumentTitle = "Vegan Society Definition Reductio"
, propositionTitle = "It is vegan to eat Groot."
, propositionReductio = "Those who hold to the Vegan Society's definition of veganism index the object of moral value to belonging to the animal kingdom."
, propositionSummary = "If one holds to the position that exploiting a being is wrong so long as that being is an animal, then it is straightforwardly entailed that exploiting creatures like Groot would be an action compatible with veganism."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4~3Qx)),(~6x~6y(~3Rx~5~3Q(e(y)))),(~3Rg)%7C=(P(e(g)))"
, argumentCertainty = 10
, argumentImage = "vegansociety"
, definitionTable =
[ { definiendum = "P(x)"
, definiens = "it is vegan to do (x)"
}
, { definiendum = "Q(x,y)"
, definiens = "(x) exploits (y)"
}
, { definiendum = "R(x)"
, definiens = "(x) is an animal"
}
, { definiendum = "x"
, definiens = "a being"
}
, { definiendum = "y"
, definiens = "an animal"
}
, { definiendum = "e"
, definiens = "eat"
}
, { definiendum = "g"
, definiens = "Groot"
}
]
, argumentFormalization =
[ { premises =
[ { premise = "For all things, it is vegan to do something if, and only if, that thing does not exploit animals."
, notation = "∀x(Px↔¬Qx)"
}
, { premise = "If some beings are not animals, then eating those beings does not exploit animals."
, notation = "∀x∀y(¬Rx→¬Q(e(y)))"
}
, { premise = "Groot is not an animal."
, notation = "¬Rg"
}
]
, conclusion = "Therefore, it is vegan to eat Groot."
, conclusionNotation = "P(e(g))"
}
]
}

35
frontend/src/Config/Pages/Debate/Arguments/Types.elm Executable file
View file

@ -0,0 +1,35 @@
module Config.Pages.Debate.Arguments.Types exposing (..)
-- ARGUMENTS
type alias Argument =
{ argumentTitle : String
, propositionTitle : String
, propositionSummary : String
, propositionReductio : String
, proofLink : String
, definitionTable : List Definition
, argumentCertainty : Int
, argumentImage : String
, argumentFormalization : List ArgumentEntry
}
type alias ArgumentEntry =
{ premises : List PremiseWithNotation
, conclusion : String
, conclusionNotation : String
}
type alias PremiseWithNotation =
{ premise : String
, notation : String
}
type alias Definition =
{ definiendum : String
, definiens : String
}

28
frontend/src/Config/Pages/Debate/Cuckery/CuckList/AdamSinger.elm Executable file
View file

@ -0,0 +1,28 @@
module Config.Pages.Debate.Cuckery.CuckList.AdamSinger exposing (..)
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckAdamSinger : Cuck
cuckAdamSinger =
let
name : String
name =
"Adam Singer"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/AdamSinger"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1566491269194719232?s=20"
, dodgeDescription = VagueGesture
, dodgeProposition = "Seed oils cause inflammation and stomach pain."
, dodgeReceipts = [ "https://x.com/TheNutrivore/status/1566491269194719232?s=20" ]
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/AmberOHearn.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.AmberOHearn exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckAmberOHearn : Cuck
cuckAmberOHearn =
let
name : String
name =
"Amber O Hearn"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/KetoCarnivore"
, cuckDodges =
[ { dodgeLink = "https://x.com/FusionProgGuy/status/1413888976281169922?s=20"
, dodgeDescription = VagueGesture
, dodgeProposition = noProposition
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Nothing
, dodgeNicksDoxasticReason = NoProp
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/AnnChilders.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.AnnChilders exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckAnnChilders : Cuck
cuckAnnChilders =
let
name : String
name =
"Ann Childers"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/AnnChildersMD"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1447245484356108292?s=20"
, dodgeDescription = RanAway
, dodgeProposition = "Diets humans thrived on in the wild, sans dentists and doctors, are correct."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Agnostic
, dodgeNicksDoxasticReason = VagueProp
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/AnthonyGustin.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.AnthonyGustin exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckAnthonyGustin : Cuck
cuckAnthonyGustin =
let
name : String
name =
"Anthony Gustin"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/dranthonygustin"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1482502242632552449?s=20"
, dodgeDescription = GhostedMe
, dodgeProposition = commonProps.propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/AshwaniGarg.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.AshwaniGarg exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckAshwaniGarg : Cuck
cuckAshwaniGarg =
let
name : String
name =
"Ashwani Garg"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/agargmd"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1443328350982967303?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Representing the protein content of beans by dry weight is misleading."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason "It's unclear why we should care about the protein content of a dry food item if that food item is inedible in its dry state"
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/AustinHerbert.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.AustinHerbert exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckAustinHerbert : Cuck
cuckAustinHerbert =
let
name : String
name =
"Austin Herbert"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/_AustinHerbert"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1663698981833277440"
, dodgeDescription = NoReply
, dodgeProposition = "Seed oils make you fat and kill your body."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/BartKay.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.BartKay exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckBartKay : Cuck
cuckBartKay =
let
name : String
name =
"Bart Kay"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/Bart_WT_Kay"
, cuckDodges =
[ { dodgeLink = "https://www.youtube.com/watch?v=M7vTJ02xxrw"
, dodgeDescription = RanAway
, dodgeProposition = "A 100% Carnivore diet is the appropriate and best health choice for all people."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propEmpiricalClaimDisbelief
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/BenBikman.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.BenBikman exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckBenBikman : Cuck
cuckBenBikman =
let
name : String
name =
"Ben Bikman"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/BenBikmanPhD"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1587547250074746880?s=19"
, dodgeDescription = NoReply
, dodgeProposition = "The diet-heart hypothesis is false."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSaturatedFatReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/BennyMalone.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.BennyMalone exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckBennyMalone : Cuck
cuckBennyMalone =
let
name : String
name =
"Benny Malone"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/bennymaloneUK"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1530933999610171392?s=20"
, dodgeDescription = RanAway
, dodgeProposition = "Eating oysters is compatible with veganism."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason "Bivalves are not likely to be sentient, and extending them the precautionary principle has hilarious entails."
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/BradCampbell.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.BradCampbell exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckBradCampbell : Cuck
cuckBradCampbell =
let
name : String
name =
"Brad Campbell"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/DrBradCampbell"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1530933999610171392?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Canola oil kills you slowly."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/BradCohn.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.BradCohn exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckBradCohn : Cuck
cuckBradCohn =
let
name : String
name =
"Brad Cohn"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/BradCohn"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1687535030862831616"
, dodgeDescription = NoReply
, dodgeProposition = commonProps.propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/BradMarshall.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.BradMarshall exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckBradMarshall : Cuck
cuckBradMarshall =
let
name : String
name =
"Brad Marshall"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/fire_bottle"
, cuckDodges =
[ { dodgeLink = "https://x.com/fire_bottle"
, dodgeDescription = InTooDeep
, dodgeProposition = commonProps.propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

43
frontend/src/Config/Pages/Debate/Cuckery/CuckList/BretWeinstein.elm Executable file
View file

@ -0,0 +1,43 @@
module Config.Pages.Debate.Cuckery.CuckList.BretWeinstein exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckBretWeinstein : Cuck
cuckBretWeinstein =
let
name : String
name =
"Bret Weinstein"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/BretWeinstein"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1858356347332374597"
, dodgeDescription = NoReply
, dodgeProposition = "Seed oils are dangerous."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1858745910701777229"
, dodgeDescription = NoReply
, dodgeProposition = "Seed oils are dangerous."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1858746414882263256"
, dodgeDescription = NoReply
, dodgeProposition = "Seed oils are dangerous."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

35
frontend/src/Config/Pages/Debate/Cuckery/CuckList/BrianKerley.elm Executable file
View file

@ -0,0 +1,35 @@
module Config.Pages.Debate.Cuckery.CuckList.BrianKerley exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckBrianKerley : Cuck
cuckBrianKerley =
let
name : String
name =
"Brian Kerley"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/SeedOilDsrspctr"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1483889771134926849?s=20"
, dodgeDescription = NoReply
, dodgeProposition = commonProps.propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1783200352646619227"
, dodgeDescription = NoReply
, dodgeProposition = commonProps.propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/CarnivoreAurelius.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.CarnivoreAurelius exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckCarnivoreAurelius : Cuck
cuckCarnivoreAurelius =
let
name : String
name =
"Carnivore Aurelius"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/AlpacaAurelius"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1538272143061815299?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Vegans kill 100x more animals."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Agnostic
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propEmpiricalClaim
}
]
}

91
frontend/src/Config/Pages/Debate/Cuckery/CuckList/CateShanahan.elm Executable file
View file

@ -0,0 +1,91 @@
module Config.Pages.Debate.Cuckery.CuckList.CateShanahan exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckCateShanahan : Cuck
cuckCateShanahan =
let
name : String
name =
"Cate Shanahan"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/drcateshanahan"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1266438463634632709?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Seed oils are pro-inflammatory."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonInflammation
}
, { dodgeLink = "https://x.com/The_Nutrivore/status/1479497980570857474?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Those who defend seed oils are just regurgitating the garbage that the AHA pumps out."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason "I defend seed oils and I've never even read the AHA's material on the subject."
}
, { dodgeLink = "https://x.com/The_Nutrivore/status/1487215337116508162?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Seed oils are toxic."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
, { dodgeLink = "https://x.com/drcateshanahan/status/1516904406805057537?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Current levels of seed oil consumption are the main driver of the obesity and chronic disease."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
, { dodgeLink = "https://x.com/The_Nutrivore/status/1537544882532716544?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Nick is just following the AHA marching orders."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason "I've never even read the AHA's recommendations on anything."
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1778616438116483102"
, dodgeDescription = RanAway
, dodgeProposition = commonProps.propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1779185488521310601"
, dodgeDescription = OutrightNo
, dodgeProposition = commonProps.propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1778616438116483102"
, dodgeDescription = KillScreen
, dodgeProposition = commonProps.propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1798766450255253987"
, dodgeDescription = KillScreen
, dodgeProposition = "Current levels of seed oil consumption are the main driver of heart disease."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonCVD
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/ChrisBoettcher.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.ChrisBoettcher exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckChrisBoettcher : Cuck
cuckChrisBoettcher =
let
name : String
name =
"Chris Boettcher"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/chrisboettcher9"
, cuckDodges =
[ { dodgeLink = "https://x.com/MeggGawat/status/1669691841682210822"
, dodgeDescription = NoReply
, dodgeProposition = "Seed oils are making you fat, depressed, and sick."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/ClaraAboel.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.ClaraAboel exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckClaraAboel : Cuck
cuckClaraAboel =
let
name : String
name =
"Clara Aboel"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/AIWellnessCoach"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1727510906655969736"
, dodgeDescription = NoReply
, dodgeProposition = "Polyunsaturated fatty acids are known to initiate cancer."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonCancer
}
]
}

35
frontend/src/Config/Pages/Debate/Cuckery/CuckList/CliffHarvey.elm Executable file
View file

@ -0,0 +1,35 @@
module Config.Pages.Debate.Cuckery.CuckList.CliffHarvey exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckCliffHarvey : Cuck
cuckCliffHarvey =
let
name : String
name =
"Cliff Harvey"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/CarbAppropriate"
, cuckDodges =
[ { dodgeLink = "https://x.com/CarbAppropriate/status/1372281626206507010?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Saturated fat in the diet does not independently increase the risk of mortality."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSaturatedFatReason
}
, { dodgeLink = "https://x.com/The_Nutrivore/status/1500650543886204929?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Saturated fat in the diet does not independently increase the risk of mortality."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSaturatedFatReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/DaveFeldman.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.DaveFeldman exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckDaveFeldman : Cuck
cuckDaveFeldman =
let
name : String
name =
"Dave Feldman"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/realDaveFeldman"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1306625219440730118?s=20"
, dodgeDescription = NoReply
, dodgeProposition = noProposition
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Nothing
, dodgeNicksDoxasticReason = NoProp
}
]
}

39
frontend/src/Config/Pages/Debate/Cuckery/CuckList/DavidDiamond.elm Executable file
View file

@ -0,0 +1,39 @@
module Config.Pages.Debate.Cuckery.CuckList.DavidDiamond exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckDavidDiamond : Cuck
cuckDavidDiamond =
let
name : String
name =
"David Diamond"
statinProp : String
statinProp =
"Statin therapy is not warranted for a person high LDL-C on a low-carb diet."
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/LDLSkeptic"
, cuckDodges =
[ { dodgeLink = "https://x.com/LDLSkeptic/status/1583471298306375681?s=20"
, dodgeDescription = OutrightNo
, dodgeProposition = statinProp
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propLDLCausality
}
, { dodgeLink = "https://x.com/LDLSkeptic/status/1583481964840902656?s=20"
, dodgeDescription = KillScreen
, dodgeProposition = statinProp
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propLDLCausality
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/DavidGornoski.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.DavidGornoski exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckDavidGornoski : Cuck
cuckDavidGornoski =
let
name : String
name =
"David Gornoski"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/DavidGornoski"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1525474063044550657?s=20"
, dodgeDescription = OutrightNo
, dodgeProposition = "Polyunsaturated fatty acids cause obesity."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonObesity
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/DianaRodgers.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.DianaRodgers exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckDianaRodgers : Cuck
cuckDianaRodgers =
let
name : String
name =
"Diana Rodgers"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/sustainabledish"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1365857401786814465?s=20"
, dodgeDescription = InTooDeep
, dodgeProposition = "Saturated fat doesn't increase the risk of coronary heart disease."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSaturatedFatReason
}
]
}

38
frontend/src/Config/Pages/Debate/Cuckery/CuckList/EdwardGoeke.elm Executable file
View file

@ -0,0 +1,38 @@
module Config.Pages.Debate.Cuckery.CuckList.EdwardGoeke exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckEdwardGoeke : Cuck
cuckEdwardGoeke =
let
name : String
name =
"Edward Goeke"
propSeedOils =
"Seed oils are inflammatory."
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/GoekeEddie"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1773421625150746784?s=20"
, dodgeDescription = NoReply
, dodgeProposition = propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonInflammation
}
, { dodgeLink = "https://x.com/TheNutrivore/status/1774154640403423359?s=20"
, dodgeDescription = NoReply
, dodgeProposition = propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonInflammation
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/ElieJarrouge.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.ElieJarrouge exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckElieJarrouge : Cuck
cuckElieJarrouge =
let
name : String
name =
"Elie Jarrouge"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/ElieJarrougeMD"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1506845469980315648?s=20"
, dodgeDescription = NoReply
, dodgeProposition = "Sugar, refined carbs, and seed oils are poison."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Agnostic
, dodgeNicksDoxasticReason = VagueProp
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/GaryBrecka.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.GaryBrecka exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckGaryBrecka : Cuck
cuckGaryBrecka =
let
name : String
name =
"Gary Brecka"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/garybrecka1"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1726664526316372125"
, dodgeDescription = NoReply
, dodgeProposition = "Linoleic acid consumption causes atherosclerosis."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonCVD
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/GaryFettke.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.GaryFettke exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckGaryFettke : Cuck
cuckGaryFettke =
let
name : String
name =
"Gary Fettke"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/FructoseNo"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1460983496524980224"
, dodgeDescription = GhostedMe
, dodgeProposition = commonProps.propLinoleicAcid
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/GaryTaubes.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.GaryTaubes exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckGaryTaubes : Cuck
cuckGaryTaubes =
let
name : String
name =
"Gary Taubes"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/garytaubes"
, cuckDodges =
[ { dodgeLink = "https://x.com/garytaubes/status/1595180467552018432?s=20"
, dodgeDescription = OutrightNo
, dodgeProposition = "Carbohydrates cause starvation."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Agnostic
, dodgeNicksDoxasticReason = VagueProp
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/GeorgeMartin.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.GeorgeMartin exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckGeorgeMartin : Cuck
cuckGeorgeMartin =
let
name : String
name =
"George Martin"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/CarnismDebunked"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1815098730141651021"
, dodgeDescription = RanAway
, dodgeProposition = "Nick has killed more animals in his life than a mature bear."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Agnostic
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propEmpiricalClaim
}
]
}

35
frontend/src/Config/Pages/Debate/Cuckery/CuckList/GuyAustin.elm Executable file
View file

@ -0,0 +1,35 @@
module Config.Pages.Debate.Cuckery.CuckList.GuyAustin exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckGuyAustin : Cuck
cuckGuyAustin =
let
name : String
name =
"Guy Austin"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/GuyNAustin"
, cuckDodges =
[ { dodgeLink = "https://x.com/TheNutrivore/status/1538607434176020480"
, dodgeDescription = NoReply
, dodgeProposition = noProposition
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Nothing
, dodgeNicksDoxasticReason = NoProp
}
, { dodgeLink = "https://x.com/GuyNAustin/status/1687530045101744128"
, dodgeDescription = OutrightNo
, dodgeProposition = commonProps.propSeedOils
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

38
frontend/src/Config/Pages/Debate/Cuckery/CuckList/IvorCummins.elm Executable file
View file

@ -0,0 +1,38 @@
module Config.Pages.Debate.Cuckery.CuckList.IvorCummins exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckIvorCummins : Cuck
cuckIvorCummins =
let
name : String
name =
"Ivor Cummins"
propLDL =
"LDL does not cause coronary heart disease."
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/FatEmperor"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1268600451693494273?s=20"
, dodgeDescription = NoReply
, dodgeProposition = propLDL
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propLDLCausality
}
, { dodgeLink = "https://x.com/FatEmperor/status/1636920650156724226?s=20"
, dodgeDescription = OutrightNo
, dodgeProposition = propLDL
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propLDLCausality
}
]
}

46
frontend/src/Config/Pages/Debate/Cuckery/CuckList/JakeMey.elm Executable file
View file

@ -0,0 +1,46 @@
module Config.Pages.Debate.Cuckery.CuckList.JakeMey exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckJakeMey : Cuck
cuckJakeMey =
let
name : String
name =
"Jake Mey"
propReason =
"Vegan Fridays would only change childrens' diets by <1% annually, and, if anything, this is more likely a positive change than a negative one."
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/CakeNutrition"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1490009495581298690?s=20"
, dodgeDescription = RanAway
, dodgeProposition = "Vegan Friday meals are unhealthy for children."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason propReason
}
, { dodgeLink = "https://x.com/The_Nutrivore/status/1490060813138280450?s=20"
, dodgeDescription = OutrightNo
, dodgeProposition = "Vegan Friday meals are unhealthy for children."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason propReason
}
, { dodgeLink = "https://x.com/The_Nutrivore/status/1495419256737091585?s=20"
, dodgeDescription = KillScreen
, dodgeProposition = "Vegan Friday meals are unhealthy for children."
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Disbelief
, dodgeNicksDoxasticReason = SpecificPropReason propReason
}
]
}

27
frontend/src/Config/Pages/Debate/Cuckery/CuckList/JamesDiNicolantonio.elm Executable file
View file

@ -0,0 +1,27 @@
module Config.Pages.Debate.Cuckery.CuckList.JamesDiNicolantonio exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)
cuckJamesDiNicolantonio : Cuck
cuckJamesDiNicolantonio =
let
name : String
name =
"James DiNicolantonio"
in
{ cuckImage = formatName name
, cuckName = name
, cuckSocial = "https://x.com/drjamesdinic"
, cuckDodges =
[ { dodgeLink = "https://x.com/The_Nutrivore/status/1460788569388171268?s=20"
, dodgeDescription = NoReply
, dodgeProposition = commonProps.propLinoleicAcid
, dodgeReceipts = []
, dodgeFallacy = Just (SpecificFallacy "")
, dodgeNicksDoxasticState = Just Belief
, dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason
}
]
}

Some files were not shown because too many files have changed in this diff Show more