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 =
+    ( { areArgsExpanded = List.repeat (List.length argumentList) False }
-            [ False
-            , False
-            ]
-      }
     , Effect.none
     )
 
@@ -156,6 +154,14 @@ debateList model =
         pageList
     <|
         List.map2 (argumentMaker ToggleExpandArg model.areArgsExpanded)
+            argumentList
+        <|
+            List.range 0 <|
+                List.length model.areArgsExpanded
+
+
+argumentList : List Argument
+argumentList =
     [ argumentApoBCVD
     , argumentAnabolicKeto
     , argumentAntagonisticPleiotropy
@@ -206,6 +212,3 @@ debateList model =
     , argumentFlatEarthDebunk
     , argumentTruncatedMeta
     ]
-        <|
-            List.range 0 <|
-                List.length model.areArgsExpanded