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

chore: push for isaac

Browse source
This commit is contained in:
Nick 2024-11-23 15:48:03 -06:00
parent a5e3c57215
commit cf9886af4d
1 changed files with 58 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

19
frontend/src/Pages/Arguments.elm
View file

@ -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,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