From cf9886af4d5c497b15d2685381772ce9ac99da56 Mon Sep 17 00:00:00 2001 From: Nick Date: Sat, 23 Nov 2024 15:48:03 -0600 Subject: [PATCH] chore: push for isaac --- frontend/src/Pages/Arguments.elm | 113 ++++++++++++++++--------------- 1 file changed, 58 insertions(+), 55 deletions(-) diff --git a/frontend/src/Pages/Arguments.elm b/frontend/src/Pages/Arguments.elm index 17f281f..9a160d3 100755 --- a/frontend/src/Pages/Arguments.elm +++ b/frontend/src/Pages/Arguments.elm @@ -45,6 +45,7 @@ import Debate.Arguments.PolyphenolReductio exposing (..) import Debate.Arguments.ScratcherPioneers exposing (..) import Debate.Arguments.SodiumCVD exposing (..) import Debate.Arguments.TMAOCausality exposing (..) +import Debate.Arguments.Template exposing (argument) import Debate.Arguments.TransPeople exposing (..) import Debate.Arguments.TruncatedMeta exposing (..) import Debate.Arguments.UnhealthyCoconutOil exposing (..) @@ -53,6 +54,7 @@ import Debate.Arguments.UnhealthyRedMeat exposing (..) import Debate.Arguments.UnhealthySaturatedFat exposing (..) import Debate.Arguments.VeganSocietyReductio exposing (..) import Debate.Helpers exposing (..) +import Debate.Types exposing (..) import Effect exposing (Effect) import Element exposing (..) import Element.Border as D exposing (..) @@ -93,11 +95,7 @@ type alias Model = init : () -> ( Model, Effect Msg ) init () = - ( { areArgsExpanded = - [ False - , False - ] - } + ( { areArgsExpanded = List.repeat (List.length argumentList) False } , Effect.none ) @@ -156,56 +154,61 @@ debateList model = pageList <| List.map2 (argumentMaker ToggleExpandArg model.areArgsExpanded) - [ argumentApoBCVD - , argumentAnabolicKeto - , argumentAntagonisticPleiotropy - , argumentCarbsObesity - , argumentDietaryCholesterol - , argumentFructoseNAFLD - , argumentHealthPromotingFoods - , argumentHealthSeeker - , argumentHealthyChocolate - , argumentHealthyDairy - , argumentHealthyFattyFish - , argumentHealthyFibre - , argumentHealthyFood - , argumentHealthyPlantFoods - , argumentHealthySeedOils - , argumentHealthySoy - , argumentMalondialdehyde - , argumentOmega3Omega6Ratio - , argumentPlantBasedCVDReversal - , argumentPolyphenolReductio - , argumentSodiumCVD - , argumentTMAOCausality - , argumentUnhealthyCoconutOil - , argumentUnhealthyProcessedMeat - , argumentUnhealthyRedMeat - , argumentUnhealthySaturatedFat - , argumentAbortion - , argumentAgnosticism - , argumentAgriculturalPredation - , argumentAnimalRights - , argumentAntiRewilding - , argumentAntiVandalism - , argumentColonizingNature - , argumentCropDeaths - , argumentDairyCowRape - , argumentEfilismPatrolSquad - , argumentEthicalSlurs - , argumentFineTuning - , argumentImmortalityReductio - , argumentOddOrderPredators - , argumentOstroveganism - , argumentPollinationReductio - , argumentScratcherPioneers - , argumentTransPeople - , argumentVeganSocietyReductio - , argumentBoobyTrapPagers - , argumentEpidemiologyCausality - , argumentFlatEarthDebunk - , argumentTruncatedMeta - ] + argumentList <| List.range 0 <| List.length model.areArgsExpanded + + +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 + ]