chore: push for isaac

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
+    ]