feat: lots of work

frontend/src/Debate/Arguments/Helpers.elm

@@ -0,0 +1,668 @@
+module Debate.Arguments.Helpers exposing (..)
+
+import Config.CardFormat exposing (..)
+import Config.Colour as T exposing (..)
+import Config.Format as O exposing (..)
+import Config.StrengthBar exposing (..)
+import Config.ToolTip exposing (..)
+import Debate.Arguments.Inferences.Abortion exposing (..)
+import Debate.Arguments.Inferences.Agnosticism exposing (..)
+import Debate.Arguments.Inferences.AgriculturalPredation exposing (..)
+import Debate.Arguments.Inferences.AnabolicKeto exposing (..)
+import Debate.Arguments.Inferences.AnimalRights exposing (..)
+import Debate.Arguments.Inferences.AntagonisticPleiotropy exposing (..)
+import Debate.Arguments.Inferences.AntiRewilding exposing (..)
+import Debate.Arguments.Inferences.AntiVandalism exposing (..)
+import Debate.Arguments.Inferences.ApoBCVD exposing (..)
+import Debate.Arguments.Inferences.BoobyTrapPagers exposing (..)
+import Debate.Arguments.Inferences.CarbsObesity exposing (..)
+import Debate.Arguments.Inferences.ColonizingNature exposing (..)
+import Debate.Arguments.Inferences.CropDeaths exposing (..)
+import Debate.Arguments.Inferences.DairyCowRape exposing (..)
+import Debate.Arguments.Inferences.DietaryCholesterol exposing (..)
+import Debate.Arguments.Inferences.EfilismPatrolSquad exposing (..)
+import Debate.Arguments.Inferences.EpidemiologyCausality exposing (..)
+import Debate.Arguments.Inferences.EthicalSlurs exposing (..)
+import Debate.Arguments.Inferences.FineTuning exposing (..)
+import Debate.Arguments.Inferences.FlatEarthDebunk exposing (..)
+import Debate.Arguments.Inferences.FructoseNAFLD exposing (..)
+import Debate.Arguments.Inferences.HealthPromotingFoods exposing (..)
+import Debate.Arguments.Inferences.HealthSeeker exposing (..)
+import Debate.Arguments.Inferences.HealthyChocolate exposing (..)
+import Debate.Arguments.Inferences.HealthyDairy exposing (..)
+import Debate.Arguments.Inferences.HealthyFattyFish exposing (..)
+import Debate.Arguments.Inferences.HealthyFibre exposing (..)
+import Debate.Arguments.Inferences.HealthyFood exposing (..)
+import Debate.Arguments.Inferences.HealthyPlantFoods exposing (..)
+import Debate.Arguments.Inferences.HealthySeedOils exposing (..)
+import Debate.Arguments.Inferences.HealthySoy exposing (..)
+import Debate.Arguments.Inferences.ImmortalityReductio exposing (..)
+import Debate.Arguments.Inferences.Malondialdehyde exposing (..)
+import Debate.Arguments.Inferences.OddOrderPredators exposing (..)
+import Debate.Arguments.Inferences.Omega3Omega6Ratio exposing (..)
+import Debate.Arguments.Inferences.Ostroveganism exposing (..)
+import Debate.Arguments.Inferences.PlantBasedCVDReversal exposing (..)
+import Debate.Arguments.Inferences.PollinationReductio exposing (..)
+import Debate.Arguments.Inferences.PolyphenolReductio exposing (..)
+import Debate.Arguments.Inferences.ScratcherPioneers exposing (..)
+import Debate.Arguments.Inferences.SodiumCVD exposing (..)
+import Debate.Arguments.Inferences.TMAOCausality exposing (..)
+import Debate.Arguments.Inferences.Template exposing (argument)
+import Debate.Arguments.Inferences.TransPeople exposing (..)
+import Debate.Arguments.Inferences.TruncatedMeta exposing (..)
+import Debate.Arguments.Inferences.UnhealthyCoconutOil exposing (..)
+import Debate.Arguments.Inferences.UnhealthyProcessedMeat exposing (..)
+import Debate.Arguments.Inferences.UnhealthyRedMeat exposing (..)
+import Debate.Arguments.Inferences.UnhealthySaturatedFat exposing (..)
+import Debate.Arguments.Inferences.VeganSocietyReductio exposing (..)
+import Debate.Arguments.Types exposing (..)
+import Effect exposing (Effect)
+import Element as E exposing (..)
+import Element.Background as B exposing (..)
+import Element.Border as D exposing (..)
+import Element.Events as V exposing (..)
+import Element.Font as F exposing (..)
+import Html exposing (div, hr)
+import Html.Attributes as H exposing (style, title, wrap)
+import Json.Decode exposing (field)
+import Layouts
+import Page exposing (Page)
+import Route exposing (Route)
+import Shared
+import View exposing (View)
+
+
+argumentMaker : Argument -> Element msg
+argumentMaker argument =
+    row
+        topLevelBox
+        [ cardImageMaker (argumentImage argument)
+        , cardMaker
+            [ cardTitleMaker argument.argumentTitle
+            , cardFormatter
+                [ cardContentSpacing
+                    [ column
+                        fieldSpacer
+                        [ propositionMakerDesktop argument
+                        , reductioMakerDesktop argument
+                        , summaryMakerDesktop argument
+                        , strengthMakerDesktop argument
+                        , tableMaker argument
+                        , proofTreeMaker argument
+                        ]
+                    ]
+                ]
+            ]
+        ]
+
+
+argumentMakerMobile : Argument -> Element msg
+argumentMakerMobile argument =
+    row
+        topLevelBox
+        [ column [] []
+        , cardMaker
+            [ cardTitleMaker argument.argumentTitle
+            , cardFormatter
+                [ cardContentSpacing
+                    [ column
+                        fieldSpacer
+                        [ cardImageMakerMobile (argumentImage argument)
+                        , propositionMakerMobile argument
+                        , reductioMakerMobile argument
+                        , summaryMakerMobile argument
+                        , strengthMakerMobile argument
+                        , tableMaker argument
+                        , proofTreeMaker argument
+                        ]
+                    ]
+                ]
+            ]
+        ]
+
+
+argumentImage : Argument -> { src : String, description : String }
+argumentImage argument =
+    { src = "arguments/" ++ argument.argumentImage ++ ".png"
+    , description = argument.argumentTitle
+    }
+
+
+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
+            (paragraphBoldFormat
+                ++ [ 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 (paragraphBoldFormat ++ [ 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
+            (paragraphBoldFormat
+                ++ [ 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
+            (paragraphFormat
+                ++ [ 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
+            (paragraphBoldFormat
+                ++ [ 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
+            (paragraphBoldFormat
+                ++ [ 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
+            (paragraphBoldFormat
+                ++ [ F.size 18
+                   , E.width fill
+                   ]
+            )
+            [ el
+                [ tooltip
+                    "This represents my confidence in the soundness of the argument."
+                ]
+                (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
+            (paragraphBoldFormat
+                ++ [ 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 ]
+                                        ]
+                                    ]
+                      }
+                    ]
+                }
+            ]
+         ]
+            ++ formalizationMaker argument
+        )
+
+
+formalizationMaker : Argument -> List (Element msg)
+formalizationMaker argument =
+    let
+        argumentFormatting : List (Attribute msg)
+        argumentFormatting =
+            [ centerX
+            , F.center
+            , spacing 3
+            , E.width fill
+            ]
+    in
+    List.indexedMap
+        (\index argumentEntry ->
+            column
+                (paragraphFormat
+                    ++ [ spacing 3
+                       , centerX
+                       , E.width fill
+                       , paddingXY 35 10
+                       ]
+                )
+                (List.indexedMap
+                    (\premiseIndex premiseWithNotation ->
+                        column
+                            (argumentFormatting ++ [ E.width fill ])
+                            [ paragraph paragraphHightlightedBoldText
+                                [ text ("P" ++ String.fromInt (premiseIndex + 1) ++ ")")
+                                , text premiseWithNotation.premise
+                                    |> el
+                                        [ F.color colourTheme.textLightGrey
+                                        , F.regular
+                                        , E.width fill
+                                        , paddingEach
+                                            { top = 0
+                                            , right = 0
+                                            , bottom = 0
+                                            , left = 5
+                                            }
+                                        ]
+                                ]
+                            , paragraph argumentFormatting
+                                [ text ("(" ++ premiseWithNotation.notation ++ ")")
+                                    |> el [ F.color colourTheme.textLightOrange, F.bold ]
+                                ]
+                            ]
+                    )
+                    argumentEntry.premises
+                    ++ [ column
+                            (argumentFormatting ++ [ E.width fill ])
+                            [ paragraph paragraphHightlightedBoldText
+                                [ text "C)"
+                                , text argumentEntry.conclusion
+                                    |> el
+                                        [ F.color colourTheme.textLightGrey
+                                        , F.regular
+                                        , E.width fill
+                                        , paddingEach
+                                            { top = 0
+                                            , right = 0
+                                            , bottom = 0
+                                            , left = 5
+                                            }
+                                        ]
+                                ]
+                            , paragraph argumentFormatting
+                                [ text ("(∴" ++ argumentEntry.conclusionNotation ++ ")")
+                                    |> el
+                                        [ F.color colourTheme.textLightOrange
+                                        , F.bold
+                                        ]
+                                ]
+                            ]
+                       ]
+                )
+        )
+        argument.argumentFormalization
+
+
+proofTreeMaker : Argument -> Element msg
+proofTreeMaker argument =
+    row
+        [ paddingEach
+            { top = 10
+            , right = 0
+            , bottom = 10
+            , left = 0
+            }
+        , centerX
+        , E.width fill
+        ]
+        [ column [ E.alignRight ]
+            [ newTabLink
+                (paragraphBoldFormat
+                    ++ [ F.size 18
+                       , F.color colourTheme.textLightGrey
+                       , B.color colourTheme.textDarkOrange
+                       , paddingEach
+                            { top = 6
+                            , bottom = 2
+                            , left = 12
+                            , right = 12
+                            }
+                       , D.rounded 10
+                       , F.center
+                       , E.alignRight
+                       , transitionStyle
+                       , mouseOver
+                            [ B.color colourTheme.textDeepDarkOrange
+                            , F.color colourTheme.textDarkGrey
+                            ]
+                       ]
+                )
+                { url = argument.proofLink
+                , label = text "Proof Tree"
+                }
+            ]
+        ]
+
+
+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

frontend/src/Debate/Arguments/Inferences/Abortion.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.Abortion exposing (..)
+module Debate.Arguments.Inferences.Abortion exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentAbortion : Argument

frontend/src/Debate/Arguments/Inferences/Agnosticism.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.Agnosticism exposing (..)
+module Debate.Arguments.Inferences.Agnosticism exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentAgnosticism : Argument

frontend/src/Debate/Arguments/Inferences/AgriculturalPredation.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.AgriculturalPredation exposing (..)
+module Debate.Arguments.Inferences.AgriculturalPredation exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentAgriculturalPredation : Argument

frontend/src/Debate/Arguments/Inferences/AnabolicKeto.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.AnabolicKeto exposing (..)
+module Debate.Arguments.Inferences.AnabolicKeto exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentAnabolicKeto : Argument

frontend/src/Debate/Arguments/Inferences/AnimalRights.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.AnimalRights exposing (..)
+module Debate.Arguments.Inferences.AnimalRights exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentAnimalRights : Argument

frontend/src/Debate/Arguments/Inferences/AntagonisticPleiotropy.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.AntagonisticPleiotropy exposing (..)
+module Debate.Arguments.Inferences.AntagonisticPleiotropy exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentAntagonisticPleiotropy : Argument

frontend/src/Debate/Arguments/Inferences/AntiRewilding.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.AntiRewilding exposing (..)
+module Debate.Arguments.Inferences.AntiRewilding exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentAntiRewilding : Argument

frontend/src/Debate/Arguments/Inferences/AntiVandalism.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.AntiVandalism exposing (..)
+module Debate.Arguments.Inferences.AntiVandalism exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentAntiVandalism : Argument

frontend/src/Debate/Arguments/Inferences/ApoBCVD.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.ApoBCVD exposing (..)
+module Debate.Arguments.Inferences.ApoBCVD exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentApoBCVD : Argument

frontend/src/Debate/Arguments/Inferences/BoobyTrapPagers.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.BoobyTrapPagers exposing (..)
+module Debate.Arguments.Inferences.BoobyTrapPagers exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentBoobyTrapPagers : Argument

frontend/src/Debate/Arguments/Inferences/CarbsObesity.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.CarbsObesity exposing (..)
+module Debate.Arguments.Inferences.CarbsObesity exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentCarbsObesity : Argument

frontend/src/Debate/Arguments/Inferences/ColonizingNature.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.ColonizingNature exposing (..)
+module Debate.Arguments.Inferences.ColonizingNature exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentColonizingNature : Argument

frontend/src/Debate/Arguments/Inferences/CropDeaths.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.CropDeaths exposing (..)
+module Debate.Arguments.Inferences.CropDeaths exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentCropDeaths : Argument

frontend/src/Debate/Arguments/Inferences/DairyCowRape.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.DairyCowRape exposing (..)
+module Debate.Arguments.Inferences.DairyCowRape exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentDairyCowRape : Argument

frontend/src/Debate/Arguments/Inferences/DietaryCholesterol.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.DietaryCholesterol exposing (..)
+module Debate.Arguments.Inferences.DietaryCholesterol exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentDietaryCholesterol : Argument

frontend/src/Debate/Arguments/Inferences/EfilismPatrolSquad.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.EfilismPatrolSquad exposing (..)
+module Debate.Arguments.Inferences.EfilismPatrolSquad exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentEfilismPatrolSquad : Argument

frontend/src/Debate/Arguments/Inferences/EpidemiologyCausality.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.EpidemiologyCausality exposing (..)
+module Debate.Arguments.Inferences.EpidemiologyCausality exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentEpidemiologyCausality : Argument

frontend/src/Debate/Arguments/Inferences/EthicalSlurs.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.EthicalSlurs exposing (..)
+module Debate.Arguments.Inferences.EthicalSlurs exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentEthicalSlurs : Argument

frontend/src/Debate/Arguments/Inferences/FineTuning.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.FineTuning exposing (..)
+module Debate.Arguments.Inferences.FineTuning exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentFineTuning : Argument

frontend/src/Debate/Arguments/Inferences/FlatEarthDebunk.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.FlatEarthDebunk exposing (..)
+module Debate.Arguments.Inferences.FlatEarthDebunk exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentFlatEarthDebunk : Argument

frontend/src/Debate/Arguments/Inferences/FructoseNAFLD.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.FructoseNAFLD exposing (..)
+module Debate.Arguments.Inferences.FructoseNAFLD exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentFructoseNAFLD : Argument

frontend/src/Debate/Arguments/Inferences/HealthPromotingFoods.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthPromotingFoods exposing (..)
+module Debate.Arguments.Inferences.HealthPromotingFoods exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 argumentHealthPromotingFoods : Argument
 argumentHealthPromotingFoods =

frontend/src/Debate/Arguments/Inferences/HealthSeeker.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthSeeker exposing (..)
+module Debate.Arguments.Inferences.HealthSeeker exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentHealthSeeker : Argument

frontend/src/Debate/Arguments/Inferences/HealthyChocolate.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthyChocolate exposing (..)
+module Debate.Arguments.Inferences.HealthyChocolate exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentHealthyChocolate : Argument

frontend/src/Debate/Arguments/Inferences/HealthyDairy.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthyDairy exposing (..)
+module Debate.Arguments.Inferences.HealthyDairy exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentHealthyDairy : Argument

frontend/src/Debate/Arguments/Inferences/HealthyFattyFish.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthyFattyFish exposing (..)
+module Debate.Arguments.Inferences.HealthyFattyFish exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentHealthyFattyFish : Argument

frontend/src/Debate/Arguments/Inferences/HealthyFibre.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthyFibre exposing (..)
+module Debate.Arguments.Inferences.HealthyFibre exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentHealthyFibre : Argument

frontend/src/Debate/Arguments/Inferences/HealthyFood.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthyFood exposing (..)
+module Debate.Arguments.Inferences.HealthyFood exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentHealthyFood : Argument

frontend/src/Debate/Arguments/Inferences/HealthyPlantFoods.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthyPlantFoods exposing (..)
+module Debate.Arguments.Inferences.HealthyPlantFoods exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentHealthyPlantFoods : Argument

frontend/src/Debate/Arguments/Inferences/HealthySeedOils.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthySeedOils exposing (..)
+module Debate.Arguments.Inferences.HealthySeedOils exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentHealthySeedOils : Argument

frontend/src/Debate/Arguments/Inferences/HealthySoy.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.HealthySoy exposing (..)
+module Debate.Arguments.Inferences.HealthySoy exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentHealthySoy : Argument

frontend/src/Debate/Arguments/Inferences/ImmortalityReductio.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.ImmortalityReductio exposing (..)
+module Debate.Arguments.Inferences.ImmortalityReductio exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentImmortalityReductio : Argument

frontend/src/Debate/Arguments/Inferences/Malondialdehyde.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.Malondialdehyde exposing (..)
+module Debate.Arguments.Inferences.Malondialdehyde exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentMalondialdehyde : Argument

frontend/src/Debate/Arguments/Inferences/OddOrderPredators.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.OddOrderPredators exposing (..)
+module Debate.Arguments.Inferences.OddOrderPredators exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentOddOrderPredators : Argument

frontend/src/Debate/Arguments/Inferences/Omega3Omega6Ratio.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.Omega3Omega6Ratio exposing (..)
+module Debate.Arguments.Inferences.Omega3Omega6Ratio exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 argumentOmega3Omega6Ratio : Argument
 argumentOmega3Omega6Ratio =

frontend/src/Debate/Arguments/Inferences/Ostroveganism.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.Ostroveganism exposing (..)
+module Debate.Arguments.Inferences.Ostroveganism exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentOstroveganism : Argument

frontend/src/Debate/Arguments/Inferences/PlantBasedCVDReversal.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.PlantBasedCVDReversal exposing (..)
+module Debate.Arguments.Inferences.PlantBasedCVDReversal exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentPlantBasedCVDReversal : Argument

frontend/src/Debate/Arguments/Inferences/PollinationReductio.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.PollinationReductio exposing (..)
+module Debate.Arguments.Inferences.PollinationReductio exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentPollinationReductio : Argument

frontend/src/Debate/Arguments/Inferences/PolyphenolReductio.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.PolyphenolReductio exposing (..)
+module Debate.Arguments.Inferences.PolyphenolReductio exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentPolyphenolReductio : Argument

frontend/src/Debate/Arguments/Inferences/ScratcherPioneers.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.ScratcherPioneers exposing (..)
+module Debate.Arguments.Inferences.ScratcherPioneers exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentScratcherPioneers : Argument

frontend/src/Debate/Arguments/Inferences/SodiumCVD.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.SodiumCVD exposing (..)
+module Debate.Arguments.Inferences.SodiumCVD exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 argumentSodiumCVD : Argument
 argumentSodiumCVD =

frontend/src/Debate/Arguments/Inferences/TMAOCausality.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.TMAOCausality exposing (..)
+module Debate.Arguments.Inferences.TMAOCausality exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentTMAOCausality : Argument

frontend/src/Debate/Arguments/Inferences/Template.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.Template exposing (..)
+module Debate.Arguments.Inferences.Template exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argument : Argument

frontend/src/Debate/Arguments/Inferences/TransPeople.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.TransPeople exposing (..)
+module Debate.Arguments.Inferences.TransPeople exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentTransPeople : Argument

frontend/src/Debate/Arguments/Inferences/TruncatedMeta.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.TruncatedMeta exposing (..)
+module Debate.Arguments.Inferences.TruncatedMeta exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentTruncatedMeta : Argument

frontend/src/Debate/Arguments/Inferences/UnhealthyCoconutOil.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.UnhealthyCoconutOil exposing (..)
+module Debate.Arguments.Inferences.UnhealthyCoconutOil exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentUnhealthyCoconutOil : Argument

frontend/src/Debate/Arguments/Inferences/UnhealthyProcessedMeat.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.UnhealthyProcessedMeat exposing (..)
+module Debate.Arguments.Inferences.UnhealthyProcessedMeat exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentUnhealthyProcessedMeat : Argument

frontend/src/Debate/Arguments/Inferences/UnhealthyRedMeat.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.UnhealthyRedMeat exposing (..)
+module Debate.Arguments.Inferences.UnhealthyRedMeat exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentUnhealthyRedMeat : Argument

frontend/src/Debate/Arguments/Inferences/UnhealthySaturatedFat.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.UnhealthySaturatedFat exposing (..)
+module Debate.Arguments.Inferences.UnhealthySaturatedFat exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentUnhealthySaturatedFat : Argument

frontend/src/Debate/Arguments/Inferences/VeganSocietyReductio.elm

@@ -1,6 +1,6 @@
-module Debate.Arguments.VeganSocietyReductio exposing (..)
+module Debate.Arguments.Inferences.VeganSocietyReductio exposing (..)
 
-import Debate.Types exposing (..)
+import Debate.Arguments.Types exposing (..)
 
 
 argumentVeganSocietyReductio : Argument

frontend/src/Debate/Arguments/Types.elm

@@ -0,0 +1,35 @@
+module 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
+    }