feat: did a ton of work

frontend/src/Config/Colour.elm

@@ -16,6 +16,7 @@ type alias Theme =
     , cardBackground : Color
     , barGreen : Color
     , barRed : Color
+    , transparent : Color
     }
 
 
@@ -30,4 +31,5 @@ colourTheme =
     , cardBackground = rgb255 30 30 30
     , barGreen = rgb255 0 102 0
     , barRed = rgb255 102 0 0
+    , transparent = rgba 1 1 1 0
     }

frontend/src/Config/Format.elm

@@ -20,7 +20,7 @@ topLevelContainer =
 
 pageList : List (Attribute msg)
 pageList =
-    [ spacing 10
+    [ spacing 30
     , centerX
     , centerY
     , alignTop
@@ -30,7 +30,7 @@ pageList =
 
 transitionStyle : Attribute msg
 transitionStyle =
-    htmlAttribute <| style "transition" "all 0.5s ease-in-out"
+    htmlAttribute <| style "transition" "all 0.3s ease-in-out"
 
 
 transitionHighlightedLinkHover : Element msg -> Element msg
@@ -70,10 +70,6 @@ spartanFont =
     F.typeface "League Spartan"
 
 
-imageSpacer : Attribute msg
-imageSpacer =
-    spacing 20
-
 
 navBarLinkFormat : List (Attr () msg)
 navBarLinkFormat =
@@ -120,7 +116,7 @@ paragraphLinkFormat =
 
 paragraphSpacing : Attribute msg
 paragraphSpacing =
-    spacing 8
+    spacing 3
 
 
 paragraphText : List (Attr () msg)
@@ -169,13 +165,6 @@ paragraphAlignCenter =
         ++ paragraphText
 
 
-paragraphColumnFormat : List (Attribute msg)
-paragraphColumnFormat =
-    [ spacing 20
-    , paragraphWidth
-    ]
-
-
 myTooltip : String -> Element msg
 myTooltip str =
     el

frontend/src/Cuckery/Helpers.elm

@@ -4,7 +4,8 @@ import Config.Colour exposing (..)
 import Config.Format exposing (..)
 import Cuckery.Types exposing (..)
 import Effect exposing (Effect)
-import Element exposing (..)
+import Element as E exposing (..)
+import Element.Background as B exposing (..)
 import Element.Border as D
 import Element.Font as F
 import Html.Attributes as H exposing (style)
@@ -74,17 +75,23 @@ makeDodge dodgeEntry index =
         displayFallacy : String -> Element msg
         displayFallacy fallacyText =
             row paragraphBoldFormat
-                [ column [ alignTop, width (px 184) ]
+                [ column [ alignTop, width (px 165) ]
                     [ text "Fallacy:" |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
                     ]
-                , column [ width (px 350), alignLeft ]
+                , column [ E.width fill, alignLeft ]
                     [ paragraph [ F.regular ]
                         [ text fallacyText ]
                     ]
                 ]
     in
-    column paragraphAlignLeft
-        [ row (paragraphFormat ++ [ F.size 18 ])
+    column (paragraphAlignLeft ++ [ spacing 3, width fill ])
+        [ row
+            (paragraphFormat
+                ++ [ F.size 18
+                   , paddingEach { top = 0, bottom = 0, left = 15, right = 15 }
+                   , E.width fill
+                   ]
+            )
             [ text "    "
             , text (String.fromInt index ++ ". ")
             , paragraphLinkFormat
@@ -135,19 +142,19 @@ makeDodge dodgeEntry index =
                 }
             ]
         , row paragraphBoldFormat
-            [ column [ alignTop, width <| px 184 ]
+            [ column [ alignTop, width <| px 165 ]
                 [ text "Proposition:" |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
                 ]
-            , column [ width <| px 350, alignLeft ]
+            , column [ E.width fill, alignLeft ]
                 [ paragraph [ F.regular ] [ text (formatProposition dodgeEntry.dodgeProposition) ]
                 ]
             ]
         , maybeFallacyField
         , row (paragraphBoldFormat ++ [ width fill ])
-            [ column [ alignTop, width <| px 184 ]
-                [ text "Doxastic State:" |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
+            [ column [ alignTop, width <| px 165 ]
+                [ text "Attitude:" |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
                 ]
-            , column [ width <| px 350, alignLeft ]
+            , column [ E.width fill, alignLeft ]
                 [ case dodgeEntry.dodgeNicksDoxasticState of
                     Nothing ->
                         paragraph [ F.regular ] [ text "I don't form a doxastic state." ]
@@ -171,10 +178,10 @@ makeDodge dodgeEntry index =
                 ]
             ]
         , row (paragraphBoldFormat ++ [ width fill ])
-            [ column [ alignTop, width <| px 184 ]
+            [ column [ alignTop, width <| px 165 ]
                 [ text "Reason:" |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
                 ]
-            , column [ width <| px 350, alignLeft ]
+            , column [ E.width fill, alignLeft ]
                 [ paragraph [ F.regular ]
                     [ text <|
                         case dodgeEntry.dodgeNicksDoxasticReason of
@@ -194,32 +201,109 @@ makeDodge dodgeEntry index =
 
 cuckMaker : Cuck -> Element msg
 cuckMaker cuck =
-    row [ imageSpacer, alignLeft ]
-        [ image
-            [ centerX
-            , centerY
+    row
+        [ spacing 20
+        , width fill
+        , E.height fill
+        , alignTop
+        , alignRight
+        ]
+        [ column
+            [ E.width <| px 115
+            , E.height <| px 115
             , alignTop
-            , D.rounded 100
-            , clip
-            , width <| px 72
+            , alignRight
+
+            -- , explain Debug.todo
+            ]
+            [ E.image
+                [ alignRight
+                , alignTop
+                , D.rounded 100
+                , clip
+                , E.width <| px 90
+                , E.height <| px 90
+                ]
+                { src = "cucks/" ++ cuck.cuckImage ++ "/" ++ cuck.cuckImage ++ ".png"
+                , description = cuck.cuckName
+                }
+            , E.image
+                [ D.rounded 100
+                , clip
+                , moveUp 107
+                , moveRight 7
+                , E.width <| px 125
+                , E.height <| px 125
+                ]
+                { src = "cucks/clownborder.png"
+                , description = cuck.cuckName
+                }
             ]
-            { src = "cucks/" ++ cuck.cuckImage ++ "/" ++ cuck.cuckImage ++ ".png"
-            , description = cuck.cuckName
-            }
         , column
-            paragraphAlignLeft
-            [ row nonHighlightedTitleFormat [ text cuck.cuckName ]
-            , row (paragraphBoldFormat ++ [ F.size 18 ])
-                [ text "Social:"
-                , paragraphLinkFormat
-                    { url = cuck.cuckSocial
-                    , label = transitionHighlightedLinkHover <| text (formatCuckSocial cuck.cuckSocial)
+            [ E.width <| px 600 ]
+            [ row
+                (nonHighlightedTitleFormat
+                    ++ [ F.size 20
+
+                       --    , B.color colourTheme.highlightTextHover
+                       , paddingEach { top = 6, bottom = 3, left = 25, right = 15 }
+                       , alignBottom
+                       , width fill
+                       , D.roundEach { topLeft = 26, topRight = 15, bottomRight = 0, bottomLeft = 0 }
+                       , B.gradient
+                            { angle = 1.5708
+                            , steps =
+                                [ colourTheme.highlightTextHover
+                                , colourTheme.highlightTextHover
+                                , colourTheme.transparent
+                                , colourTheme.transparent
+                                ]
+                            }
+                       ]
+                )
+                [ text cuck.cuckName ]
+            , column
+                [ E.height fill
+                , E.width fill
+
+                -- , B.color colourTheme.cardBackground
+                , paddingEach { top = 10, bottom = 10, left = 10, right = 10 }
+                , D.roundEach { topLeft = 0, topRight = 0, bottomRight = 0, bottomLeft = 26 }
+                , spacing 3
+                , B.gradient
+                    { angle = 1.5708
+                    , steps =
+                        [ colourTheme.cardBackground
+                        , colourTheme.cardBackground
+                        , colourTheme.transparent
+                        , colourTheme.transparent
+                        ]
                     }
                 ]
-            , row (paragraphBoldFormat ++ [ F.size 18 ]) [ text "Dodges:" ]
-            , column [ spacing 8 ] <|
-                List.map2 (\x y -> makeDodge x y)
-                    cuck.cuckDodges
-                    (List.range 1 (List.length cuck.cuckDodges))
+                [ row
+                    (paragraphBoldFormat
+                        ++ [ F.size 18
+                           , paddingEach { top = 0, bottom = 0, left = 15, right = 15 }
+                           , spacing 5
+                           ]
+                    )
+                    [ text "Social:"
+                    , paragraphLinkFormat
+                        { url = cuck.cuckSocial
+                        , label = transitionHighlightedLinkHover <| text (formatCuckSocial cuck.cuckSocial)
+                        }
+                    ]
+                , row
+                    (paragraphBoldFormat
+                        ++ [ F.size 18
+                           , paddingEach { top = 0, bottom = 0, left = 15, right = 15 }
+                           ]
+                    )
+                    [ text "Dodges:" ]
+                , column [ spacing 8, width fill ] <|
+                    List.map2 (\x y -> makeDodge x y)
+                        cuck.cuckDodges
+                        (List.range 1 (List.length cuck.cuckDodges))
+                ]
             ]
         ]

frontend/src/Debate/Arguments/Abortion.elm

@@ -5,12 +5,13 @@ import Debate.Types exposing (..)
 
 argumentAbortion : Argument
 argumentAbortion =
-    { argumentTitle = "Abortion Rights"
+    { argumentTitle = "Argument Against Sentient Abortions"
     , propositionTitle = "One's whims are not a sufficient justification for the termination of sentient human life."
     , propositionReductio = ""
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(P~2Q~5R),(P),(Q),((R~1F~1~3H)~5M),(F),(~3H),(M~5~3W)%7C=(~3W)"
-    , argumentCertainty = 1
+    , argumentCertainty = 6
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "one consents to becoming pregnant"

frontend/src/Debate/Arguments/Agnosticism.elm

@@ -10,7 +10,8 @@ argumentAgnosticism =
     , propositionReductio = ""
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x~6y(~3Pxy~5~3Qxy)),(~6x~6y(~3Qxy~5Rxy)),(~3Por)|=(Ror)"
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x,y)"
           , definiens = "(x) can unpack what evidence would lead them to change their doxastic attitude on (y)"

frontend/src/Debate/Arguments/AgriculturalPredation.elm

@@ -5,13 +5,14 @@ import Debate.Types exposing (..)
 
 argumentAgriculturalPredation : Argument
 argumentAgriculturalPredation =
-    { argumentTitle = "Argument for Animal Agirculture Counting as Predation"
+    { argumentTitle = "Argument for Animal Agirculture as Predation"
     , propositionTitle = "Animal agriculture counts as predation."
-    , propositionReductio = ""
+    , propositionReductio = "10"
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x~6y~6z(Px~4Qxyz~1(Rxyz~2Sxyz)~1Wxyz)),(Qahl),(Rahl~2Sahl),(Wahl)%7C=(Pa)"
     
     , argumentCertainty = 1
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) counts as predation"

frontend/src/Debate/Arguments/AnabolicKeto.elm

@@ -11,7 +11,8 @@ argumentAnabolicKeto =
     , propositionSummary = "A higher proportion of amino acids are spent on gluconeogenesis while on ketogenic diets, reducing the amount available for hypertrophy. This likely costs anabolic potential on ketogenic diets compared to non-ketogenic diets."
     , proofLink = "https://www.umsu.de/trees/#(P~5Q),(P),(Q~5R)|=(R)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 5
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "a higher proportion of amino acids are spent on gluconeogenesis while on ketogenic diets compared to non-ketogenic diets"

frontend/src/Debate/Arguments/AnimalRights.elm

@@ -11,7 +11,8 @@ argumentAnimalRights =
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~5~3Qx)),(~3Pa~5~7t(Rta~5(Rth~5~3Ph))),(~3~7t(Rta~5(Rth~5~3Ph))),(Pa)|=(~3Qa)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) has moral worth"

frontend/src/Debate/Arguments/AntagonisticPleiotropy.elm

@@ -10,8 +10,8 @@ argumentAntagonisticPleiotropy =
     , propositionReductio = ""
     , propositionSummary = "Humans have more genetic adaptations to ancestral foods than novel foods, which makes the long-term negative consequences of antagonistic pleiotropy a greater concern for ancestral foods."
     , proofLink = "https://www.umsu.de/trees/#(P~5Q),(Q~5R),(P)|=(R)"
-    
-    , argumentCertainty = 1
+    , argumentCertainty = 6
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "humans have more genetic adaptations to ancestral foods than novel foods"

frontend/src/Debate/Arguments/AntiRewilding.elm

@@ -9,9 +9,9 @@ argumentAntiRewilding =
     , propositionTitle = "Rewilding sentient animals is immoral."
     , propositionReductio = ""
     , propositionSummary = "Summary"
-    , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~5~3Qx)),(Pa),(~3Qa~5~3R),(~3R~5Sa)|=(Sa)"
-    
-    , argumentCertainty = 1
+    , proofLink = "https://www.umsu.de/trees/#(~6x(Px~5~3Qx)),(Pa),(~3Qa~5~3R),(~3R~5Sa)|=(Sa)"
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) has negative rights"

frontend/src/Debate/Arguments/AntiVandalism.elm

@@ -11,7 +11,8 @@ argumentAntiVandalism =
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(P~5Q),(P),(Q~5R)%7C=(R)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 7
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "zoos must spend extra money cleaning graffiti"

frontend/src/Debate/Arguments/ApoBCVD.elm

@@ -11,6 +11,7 @@ argumentApoBCVD =
     , propositionSummary = "ApoB-containing lipoproteins consistently and proportionately associate with increased plaque volume after controlling for relevant confounders, which satisfies the conditions outlined for an exposure to cause atherosclerosis."
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qw)|=(Pw)"
     , argumentCertainty = 9
+    , argumentImage = "lipoprotein"
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) dose-dependently causes atherosclerosis"

frontend/src/Debate/Arguments/BoobyTrapPagers.elm

@@ -11,7 +11,8 @@ argumentBoobyTrapPagers =
     , propositionSummary = "Summary"
     , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~4(Qx~1Rx~1Sx))),(Qp),(Rp),(~3Sp)|=(~3Pp)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 4
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is a booby-trap"

frontend/src/Debate/Arguments/CarbsObesity.elm

@@ -11,7 +11,8 @@ argumentCarbsObesity =
     , propositionSummary = "There are a number of predictions made from the hypothesis that carbohydrates uniquely cause obesity. One of those predictions is that obesity would track with carbohydrate intake, but it doesn't"
     , proofLink  = "https://www.umsu.de/trees/#(P~5Q),(~3Q)|=(~3P)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "carbs uniquely cause fat accumulation or obesity"

frontend/src/Debate/Arguments/ColonizingNature.elm

@@ -5,13 +5,14 @@ import Debate.Types exposing (..)
 
 argumentColonizingNature : Argument
 argumentColonizingNature =
-    { argumentTitle = "Argument for the Non-Violent Displacement of Nature"
+    { argumentTitle = "Argument for Colonizing Nature"
     , propositionTitle = "We are justified in displacing nature into non-existence"
     , propositionReductio = ""
     , propositionSummary = "Summary"
     , proofLink  = "https://www.umsu.de/trees/#(P~1~3Q~1~3R~1~3S~5W),(P),(~3Q),(~3R),(~3S)%7C=(W)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "the natural world contains intolerable rights violations"

frontend/src/Debate/Arguments/CropDeaths.elm

@@ -11,7 +11,8 @@ argumentCropDeaths =
     , propositionSummary = "We can't claim to know that cropland kills more animals than wildland, because if we did know this, there would be evidence for it, and there isn't any such evidence."
     , proofLink  = "https://www.umsu.de/trees/#(P~5Q),(~3Q)%7C=(~3P)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "it is known that cropland leads to more animal death than wildland"

frontend/src/Debate/Arguments/DairyCowRape.elm

@@ -11,7 +11,8 @@ argumentDairyCowRape =
     , propositionSummary = "Summary"
     , proofLink  = "https://www.umsu.de/trees/#(~6x~6y(Px~4(Qxy~1~3Ryx))),(Qae),(~3Rea)|=(Pa)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) qualifies as rape"

frontend/src/Debate/Arguments/DietaryCholesterol.elm

@@ -10,7 +10,8 @@ argumentDietaryCholesterol =
     , propositionReductio = ""
     , propositionSummary = "LDL causally associates with heart disease in a linear and proportional manner, and in all cases exposures that durably increase LDL over time produce likewise increases in heart disease risk. Dietary cholesterol is one such exposure."
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(Pd)|=(Qd)"
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "consuming high amounts of (x) increases LDL"

frontend/src/Debate/Arguments/EfilismPatrolSquad.elm

@@ -10,7 +10,8 @@ argumentEfilismPatrolSquad =
     , propositionReductio = "Efilists fundamentally believe that sentient life is inherently characterized by suffering and that the most ethical action is to prevent the creation of any new sentient beings, ultimately aiming to completely eliminate all conscious life in the universe to end suffering permanently."
     , propositionSummary = "If efilists follow their own logic to its ultimate conclusion, they would paradoxically be committed to a form of pragmatic natalism - the very opposite of their core philosophical stance."
     , proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q),(~3P~1R~5~3S),(R),(~3S~5W)|=(W)"
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "humans abstaining from procreation maximally reduces rights violations"

frontend/src/Debate/Arguments/EpidemiologyCausality.elm

@@ -11,7 +11,8 @@ argumentEpidemiologyCausality =
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(Pe)|=(Qe)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 8
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) consistently identifies associations that are later confirmed by randomized controlled trials"

frontend/src/Debate/Arguments/EthicalSlurs.elm

@@ -10,8 +10,8 @@ argumentEthicalSlurs =
     , propositionReductio = ""
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(~6x(~3Px~5Rx)),(~3Pr),(~3Qr~1Rr~5Sr),(Sr~5Wr)|=(Wr)"
-    
-    , argumentCertainty = 1
+    , argumentCertainty = 7
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x)'s negative connotations have been neutralised"

frontend/src/Debate/Arguments/FineTuning.elm

@@ -10,8 +10,8 @@ argumentFineTuning =
     , propositionReductio = ""
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(Pg),(Qg~5R)%7C=(R)"
-    
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is finely tuned"
@@ -22,7 +22,7 @@ argumentFineTuning =
         , { definiendum = "R"
           , definiens = "fine tuning is an infinitely regressive explanation for God"
           }
-          , { definiendum = "x"
+        , { definiendum = "x"
           , definiens = "a thing"
           }
         , { definiendum = "g"

frontend/src/Debate/Arguments/FlatEarthDebunk.elm

@@ -10,8 +10,8 @@ argumentFlatEarthDebunk =
     , propositionReductio = ""
     , propositionSummary = "The argument is structured to demonstrate that, within the context of a flat Earth model, if the stars are perceived as rotating counter-clockwise from the center, they cannot also be perceived as rotating clockwise from any point on the Earth."
     , proofLink = "https://www.umsu.de/trees/#(~6x~6y~6z(Pxy~5(Qyz~5Rxz))),(Pkt~1Qta),(Rka~5~3Ska)|=(~3Ska)"
-    
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x,y)"
           , definiens = "(x) is perceived as rotating counter-clockwise from point (y)"

frontend/src/Debate/Arguments/FructoseNAFLD.elm

@@ -9,9 +9,9 @@ argumentFructoseNAFLD =
     , propositionTitle = "Fructose doesn't seem to uniquely cause fatty liver disease."
     , propositionReductio = ""
     , propositionSummary = "Experimental investigations into fructose overfeeding have consistently failed to produce a fatty liver phenotype in humans. This suggests that fructose, contrary to popular belief in some domains, does not uniquely cause fatty liver disease."
-    , proofLink  = "https://www.umsu.de/trees/#(P~5~3Q),(P)|=(~3Q)"
-    
-    , argumentCertainty = 1
+    , proofLink = "https://www.umsu.de/trees/#(P~5~3Q),(P)|=(~3Q)"
+    , argumentCertainty = 8
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "experimental investigations into fructose overfeeding consistently fail to recreate a fatty liver phenotype in humans"

frontend/src/Debate/Arguments/HealthPromotingFoods.elm

@@ -10,7 +10,8 @@ argumentHealthPromotingFoods =
     , propositionSummary = "Given that food is, by its very definition, material that provides essential nutrients and energy to sustain bodily functions and growth, it follows that anything classified as food must be inherently health-promoting by its very nature."
     , proofLink  = "https://www.umsu.de/trees/#(P~5Q),(P)|=(Q)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "food is defined as material consisting essentially of protein, carbohydrate, and/or fat used in the body of an organism to sustain growth, repair, and vital processes and to furnish energy"

frontend/src/Debate/Arguments/HealthSeeker.elm

@@ -11,7 +11,8 @@ argumentHealthSeeker =
     , propositionSummary = "If someone values consuming ancestral foods over novel foods because they have the overall value of reducing disease risk, but a novel food reduces disease risk when replacing an ancestral food, they would be acting against their values by rejecting the novel food."
     , proofLink = "https://www.umsu.de/trees/#(~7x(Px)~1~7y(Qy)~5~6x~6y(~3Rxy~5Sx)),(~7x(Px)),(~7y(Qy))|=(~6x~6y(~3Rxy~5Sx))"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) favours consuming ancestral foods to the exclusion of (y) because they value reducing disease risk"

frontend/src/Debate/Arguments/HealthyChocolate.elm

@@ -5,13 +5,14 @@ import Debate.Types exposing (..)
 
 argumentHealthyChocolate : Argument
 argumentHealthyChocolate =
-    { argumentTitle = "Argument Against Atherogenic Chocolate"
+    { argumentTitle = "Argument for Healthy Chocolate"
     , propositionTitle = "Chocolate does not cause atherosclerosis."
     , propositionReductio = ""
     , propositionSummary = "Despite chocolate containing high amounts of saturated fat, populations that consume more chocolate do not exhibit higher rates of atherosclerosis, suggesting that chocolate does not have the same effect on heart disease risk as most other saturated fat sources."
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(~3Qc)|=(~3Pc)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 7
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) causes atherosclerosis"

frontend/src/Debate/Arguments/HealthyDairy.elm

@@ -2,15 +2,16 @@ module Debate.Arguments.HealthyDairy exposing (..)
 
 import Debate.Types exposing (..)
 
+
 argumentHealthyDairy : Argument
 argumentHealthyDairy =
     { argumentTitle = "Argument for Healthy Dairy Products"
     , propositionTitle = "Non-churned, non-homogenized dairy do not cause atherosclerosis."
     , propositionReductio = ""
     , propositionSummary = "The diet-heart hypothesis would predict that populations consuming more dairy foods should have higher rates of the disease. However, even when you account for factors that could plausibly influence the results, non-churned, non-homogenized dairy have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes, particularly with respect to cardiovascular disease and colorectal cancer."
-    , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(~3Qh)|=(~3Ph)"
-    
-    , argumentCertainty = 1
+    , proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(~3Qh)|=(~3Ph)"
+    , argumentCertainty = 7
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) causes atherosclerosis"

frontend/src/Debate/Arguments/HealthyFattyFish.elm

@@ -11,7 +11,8 @@ argumentHealthyFattyFish =
     , propositionSummary = "Even when you account for factors that could plausibly influence the results, fatty fish have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes, particularly with respect to cardiovascular disease."
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qf)|=(Pf)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 8
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is overwhelmingly healthy"

frontend/src/Debate/Arguments/HealthyFibre.elm

@@ -11,7 +11,8 @@ argumentHealthyFibre =
     , propositionSummary = "Even when you account for factors that could plausibly influence the results, both refined and whole fibre have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes, particularly with respect to cardiovascular disease."
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qb)|=(Pb)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is overwhelmingly healthy"

frontend/src/Debate/Arguments/HealthyFood.elm

@@ -11,7 +11,8 @@ argumentHealthyFood =
     , propositionSummary = "A food is considered healthier than another in a specific context if it increases the time before illness or disease sets in when replacing the other food. On a desert island, since Pepsi can extend the time before starvation compared to leafy greens, it is considered healthier than leafy greens in that context."
     , proofLink = "https://www.umsu.de/trees/#(~6x~6y~6z~6w(Pxyw~4Qwxzy)),(Qdpsl)|=(Ppld)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x,y,w)"
           , definiens = "(x) is healthy compared to (w) when in (y)"

frontend/src/Debate/Arguments/HealthyPlantFoods.elm

@@ -11,7 +11,8 @@ argumentHealthyPlantFoods =
     , propositionSummary = "Since whole plant foods consistently consistently associate with reduced risk of illness and death, it is reasonable to conclude that whole plant foods are overwhelmingly healthy."
     , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qf)|=(Pf)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is overwhelmingly healthy"

frontend/src/Debate/Arguments/HealthySeedOils.elm

@@ -11,7 +11,8 @@ argumentHealthySeedOils =
     , propositionSummary = "Even when you account for factors that could plausibly influence the results, non-hydrogenated vegetable oils have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes."
     , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(Pv)|=(Qv)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is overwhelmingly healthy"

frontend/src/Debate/Arguments/HealthySoy.elm

@@ -5,13 +5,14 @@ import Debate.Types exposing (..)
 
 argumentHealthySoy : Argument
 argumentHealthySoy =
-    { argumentTitle = "Argument for Soy Products"
+    { argumentTitle = "Argument for Healthy Soy Products"
     , propositionTitle = "Soy products are overwhelmingly healthy."
     , propositionReductio = ""
     , propositionSummary = "Even when you account for factors that could plausibly influence the results, non-hydrogenated soy products have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes, particularly with respect to cardiovascular disease."
     , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qs)|=(Ps)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 7
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is overwhelmingly healthy"

frontend/src/Debate/Arguments/ImmortalityReductio.elm

@@ -11,7 +11,8 @@ argumentImmortalityReductio =
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x~6y(Hx~5~3Rxy)),(Hs)%7C=(~3Rsd)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "humans undergo (x)"

frontend/src/Debate/Arguments/Malondialdehyde.elm

@@ -10,8 +10,8 @@ argumentMalondialdehyde =
     , propositionReductio = ""
     , propositionSummary = "If one takes the view that in order for a substance to increase the risk of atherosclerosis, it must facilitate the oxidative modification of LDL particles via malondialdehyde production, and one also affirms that omega-3s are anti-atherogenic, then this would imply that all fatty acids that produce malondialdehyde, including omega-3s, must also be atherogenic, which contradicts the their belief that omega-3s are heart-healthy."
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qm),(Pm~5~6x(Rx))%7C=(Ro)"
-    
-    , argumentCertainty = 1
+    , argumentCertainty = 6
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) increases the risk of atherosclerosis"
@@ -22,10 +22,10 @@ argumentMalondialdehyde =
         , { definiendum = "R(x)"
           , definiens = "all (x) are atherogenic"
           }
-             , { definiendum = "x"
+        , { definiendum = "x"
           , definiens = "a substance"
           }
-                 , { definiendum = "y"
+        , { definiendum = "y"
           , definiens = "malondialdehyde-producing fatty acids"
           }
         , { definiendum = "m"

frontend/src/Debate/Arguments/OddOrderPredators.elm

@@ -10,8 +10,8 @@ argumentOddOrderPredators =
     , propositionReductio = ""
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~5~3Qx)),(Pa),(~3Qa~5R)%7C=(R)"
-    
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) has negative rights"

frontend/src/Debate/Arguments/Omega3Omega6Ratio.elm

@@ -10,7 +10,8 @@ argumentOmega3Omega6Ratio =
     , propositionSummary = "More often than not, the associated risks of a high omega-6/omega-3 ratio are better explained by omega-3 alone. In multivariable analyses, the ratio looks like it matters, but in univariable anaylses, low omega-3 is almost always driving the risk via lowering the denominator."
     , proofLink  = "https://www.umsu.de/trees/#(P~5Q),(~3Q)|=(~3P)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 7
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "increases or decreases in disease risk associated with a high or low omega-6/omega-3 ratio are better explained by changes in omega-3 alone"

frontend/src/Debate/Arguments/Ostroveganism.elm

@@ -11,7 +11,8 @@ argumentOstroveganism =
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx~1Rx~1(Sx~2Wx))),(Qc~1~3Rc~1Sc~1~3Wc),(~3Pc~5~6x(~3Tx))|=(~3Tb)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) counts as a brain"

frontend/src/Debate/Arguments/PlantBasedCVDReversal.elm

@@ -5,13 +5,14 @@ import Debate.Types exposing (..)
 
 argumentPlantBasedCVDReversal : Argument
 argumentPlantBasedCVDReversal =
-    { argumentTitle = "Argument Against Plant-Based Diets Reversing Heart Disease"
+    { argumentTitle = "Argument Against Plant-Based CVD Reversal"
     , propositionTitle = "Plant-based diets do not appear to clinically reverse atherosclerosis."
     , propositionReductio = ""
     , propositionSummary = "To date, there is not a single case of supposed heart disease reversal from a plant-based diet that is actually compatible with  established definitions of heart disease reversal in the literature."
     , proofLink  = "https://www.umsu.de/trees/#(P~1~3Q~5~3R),(P),(~3Q)|=(~3R)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 8
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "there are established definitions for atherosclerosis reversal in the domain of cardiology"

frontend/src/Debate/Arguments/PollinationReductio.elm

@@ -11,7 +11,8 @@ argumentPollinationReductio =
     , propositionSummary = "Summary"
     , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~4~3Qx)),(Qb),(~3Pb~5~6y(~3Ry))|=(~3Ra)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is vegan"

frontend/src/Debate/Arguments/PolyphenolReductio.elm

@@ -11,7 +11,8 @@ argumentPolyphenolReductio =
     , propositionSummary = "If one is committed to the notions that polyphenols in plants are bad for humans, and that grass-fed red meat is the healthiest available type of red meat, then they're pragmatically committed to being pro-GMO to lower the grass-derived polyphenol content of grass-fed beef."
     , proofLink = "https://www.umsu.de/trees/#(~6x~6y(Px~1Qxy~5Rxy)),(Pp),(Qpg),(Rpg~5Spg),(Spg~5Wp)|=(Wp)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 7
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is harmful"

frontend/src/Debate/Arguments/ScratcherPioneers.elm

@@ -11,7 +11,8 @@ argumentScratcherPioneers =
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx~2Rx~2Sx)),(Qt),(Rt),(St)%7C=(Pt)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is a scratcher"

frontend/src/Debate/Arguments/SodiumCVD.elm

@@ -10,7 +10,8 @@ argumentSodiumCVD =
     , propositionSummary = "In all of the strongest analysis on the relationship between sodium intake and cardiovascular disease risk, there is a linear and proportional relationship. Particularly when the strongest measurement methods are used, such as multiple 24-hour urinary collections."
     , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~1Q~5Rx)),(Ps),(Q)|=(Rs)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) consistently raises blood pressure in controlled studies"

frontend/src/Debate/Arguments/TMAOCausality.elm

@@ -11,7 +11,8 @@ argumentTMAOCausality =
     , propositionSummary = "In the strongest research we have on the relationship between TMAO and heart disease risk, such as with Mendelian randomization and genome-wide associational studies, there is no persuasive causal link between TMAO in the blood and heart disease risk."
     , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(~3Qt)|=(~3Pt)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is likely to be causative of heart diseas"

frontend/src/Debate/Arguments/Template.elm

@@ -11,6 +11,7 @@ argument =
     , propositionSummary = ""
     , proofLink  = ""
     , argumentCertainty = 1
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = ""
           , definiens = ""

frontend/src/Debate/Arguments/TransPeople.elm

@@ -11,7 +11,8 @@ argumentTransPeople =
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Rx~1Wx)),(~6x(Qx~4Sx~1Wx)),(Ra~1Wa),(Sg~1Wg)|=(Pa~1Qg)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "Male"
           , definiens = "the cluster of traits that associate with small, but not large, gametes."

frontend/src/Debate/Arguments/TruncatedMeta.elm

@@ -11,7 +11,8 @@ argumentTruncatedMeta =
     , propositionSummary = "Summary"
     , proofLink  = "https://www.umsu.de/trees/#(P~5Q),(P)%7C=(Q)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 7
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "underpowered studies provide weaker causal estimates than adequately powered studies"

frontend/src/Debate/Arguments/UnhealthyCoconutOil.elm

@@ -11,7 +11,8 @@ argumentUnhealthyCoconutOil =
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~1Qx~5~3Rx)),(Pc),(Qc)|=(~3Rc)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P"
           , definiens = "a given (x) increases LDL-C at a similar rate to other saturated fat sources"

frontend/src/Debate/Arguments/UnhealthyProcessedMeat.elm

@@ -5,13 +5,14 @@ import Debate.Types exposing (..)
 
 argumentUnhealthyProcessedMeat : Argument
 argumentUnhealthyProcessedMeat =
-    { argumentTitle = "Argument for Overwhelmingly Unhealthy Processed Meat"
+    { argumentTitle = "Argument for Unhealthy Processed Meat"
     , propositionTitle = "Processed meat is overwhelmingly unhealthy."
     , propositionReductio = ""
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qs)|=(Ps)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 8
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is overwhelmingly unhealthy"

frontend/src/Debate/Arguments/UnhealthyRedMeat.elm

@@ -5,13 +5,14 @@ import Debate.Types exposing (..)
 
 argumentUnhealthyRedMeat : Argument
 argumentUnhealthyRedMeat =
-    { argumentTitle = "Argument for Overwhelmingly Unhealthy Red Meat"
+    { argumentTitle = "Argument for Unhealthy Red Meat"
     , propositionTitle = "Red meat and processed meat are overwhelmingly unhealthy."
     , propositionReductio = ""
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qm)|=(Pm)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 7
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is overwhelmingly unhealthy"

frontend/src/Debate/Arguments/UnhealthySaturatedFat.elm

@@ -11,7 +11,8 @@ argumentUnhealthySaturatedFat =
     , propositionSummary = "Summary"
     , proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qf)|=(Pf)"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 9
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "(x) is overwhelmingly unhealthy"

frontend/src/Debate/Arguments/VeganSocietyReductio.elm

@@ -11,7 +11,8 @@ argumentVeganSocietyReductio =
     , propositionSummary = "Summary"
     , proofLink  = "https://www.umsu.de/trees/#(~6x(Px~4~3Qx)),(~6x~6y(~3Rx~5~3Q(e(y)))),(~3Rg)%7C=(P(e(g)))"
     
-    , argumentCertainty = 1
+    , argumentCertainty = 10
+    , argumentImage = ""
     , definitionTable =
         [ { definiendum = "P(x)"
           , definiens = "it is vegan to do (x)"

frontend/src/Debate/Helpers.elm

@@ -13,7 +13,7 @@ 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.Attributes exposing (form, id)
+import Html.Attributes exposing (form, id, style)
 import Layouts
 import List.Extra exposing (..)
 import Maybe exposing (withDefault)
@@ -24,18 +24,6 @@ import Shared
 import View exposing (View)
 
 
-
--- (if isArgumentExpanded then
---             [ height <| px 0
---             , transitionStyle
---             , roundEach { topLeft = 0, topRight = 0, bottomRight = 10, bottomLeft = 10 }
---             ]
---          else
---             [
---             ]
---         )
-
-
 type alias ArgMakerInput msg =
     { arg : Argument
     , index : Int
@@ -47,12 +35,31 @@ type alias ArgMakerInput msg =
 
 argumentMaker : ArgMakerInput msg -> Element msg
 argumentMaker argMakerInput =
+    -- row [ imageSpacer, E.alignLeft ]
+    --     [ E.image
+    --         (case argMakerInput.maybeHeight of
+    --             Nothing ->
+    --                 [ transparent True ]
+    --             Just _ ->
+    --                 [ centerX
+    --                 , centerY
+    --                 , alignTop
+    --                 , D.rounded 100
+    --                 , E.width <| px 52
+    --                 ]
+    --         )
+    --         { src = "arguments/" ++ argMakerInput.arg.argumentImage ++ ".png"
+    --         , description = ""
+    --         }
+    --     ,
     column
         (if isNothing argMakerInput.maybeHeight then
-            [ E.htmlAttribute (id <| "arg" ++ String.fromInt argMakerInput.index) ]
+            [ E.htmlAttribute (id <| "arg" ++ String.fromInt argMakerInput.index)
+            , E.width <| px 600
+            ]
 
          else
-            []
+            [ E.width <| px 600, alignTop ]
         )
         [ titleMaker argMakerInput
         , column
@@ -60,7 +67,8 @@ argumentMaker argMakerInput =
                 Just h ->
                     [ B.color colourTheme.cardBackground
                     , clip
-                    , transitionStyle
+                    , htmlAttribute <| style "transition" "all .7s ease-in-out"
+                    , roundEach { topLeft = 0, topRight = 0, bottomRight = 20, bottomLeft = 20 }
                     , height <|
                         px <|
                             if argMakerInput.isExpanded then
@@ -85,6 +93,10 @@ argumentMaker argMakerInput =
         ]
 
 
+
+-- ]
+
+
 titleMaker : ArgMakerInput msg -> Element msg
 titleMaker argMakerInput =
     paragraph
@@ -93,16 +105,14 @@ titleMaker argMakerInput =
                , F.color colourTheme.backgroundColour
                , B.color colourTheme.highlightText
                , paddingEach { top = 6, bottom = 2, left = 12, right = 12 }
-               , D.width 1
-               , roundEach { topLeft = 10, topRight = 10, bottomRight = 0, bottomLeft = 0 }
                , alignBottom
+               , roundEach { topLeft = 10, topRight = 10, bottomRight = 0, bottomLeft = 0 }
                , F.center
-               , transitionStyle
                , pointer
+               , htmlAttribute <| style "transition" "all 0.3s ease-in-out"
                , mouseOver
                     [ B.color colourTheme.highlightTextHover
                     , F.color colourTheme.nonHighlightedText
-                    , D.color colourTheme.highlightTextHover
                     ]
                , V.onClick <| argMakerInput.titleClickMsg
                ]
@@ -111,7 +121,14 @@ titleMaker argMakerInput =
                         [ transparent True ]
 
                     Just _ ->
-                        [ roundEach { topLeft = 10, topRight = 10, bottomRight = 0, bottomLeft = 0 } ]
+                        [ roundEach <|
+                            if argMakerInput.isExpanded then
+                                { topLeft = 10, topRight = 10, bottomRight = 0, bottomLeft = 0 }
+
+                            else
+                                { topLeft = 10, topRight = 10, bottomRight = 10, bottomLeft = 10 }
+                        , F.alignLeft
+                        ]
                )
         )
         [ text argMakerInput.arg.argumentTitle ]
@@ -120,7 +137,8 @@ titleMaker argMakerInput =
 propositionMaker : ArgMakerInput msg -> Element msg
 propositionMaker argMakerInput =
     row
-        [ paddingEach { top = 10, right = 0, bottom = 0, left = 0 }
+        [ paddingEach { top = 20, right = 30, bottom = 0, left = 30 }
+        , E.width fill
         ]
         [ column
             [ E.alignTop, E.alignLeft ]
@@ -153,7 +171,7 @@ reductioMaker argMakerInput =
             none
 
         reductio ->
-            row []
+            row [ paddingEach { top = 8, right = 30, bottom = 0, left = 30 }, E.width fill ]
                 [ column
                     [ E.alignTop, E.alignLeft ]
                     [ paragraph (paragraphBoldFormat ++ [ F.size 18, E.width <| px 100 ])
@@ -169,7 +187,7 @@ reductioMaker argMakerInput =
 
 summaryMaker : ArgMakerInput msg -> Element msg
 summaryMaker argMakerInput =
-    row []
+    row [ paddingEach { top = 10, right = 30, bottom = 0, left = 30 } ]
         [ column
             [ E.alignTop, E.alignLeft ]
             [ paragraph (paragraphBoldFormat ++ [ F.size 18, E.width <| px 100 ])
@@ -202,7 +220,7 @@ strengthMaker argMakerInput =
         barMaker num =
             el
                 [ E.height <| px 12
-                , E.width <| px 500
+                , E.width fill
                 , D.rounded 10
                 , D.color colourTheme.nonHighlightedDarkText
                 , D.width 2
@@ -228,10 +246,10 @@ strengthMaker argMakerInput =
                     "Very low. Extremely weak reasoning."
 
                 2 ->
-                    "Kinda low. Weak reasoning."
+                    "Low. Weak reasoning."
 
                 3 ->
-                    "Low. Somewhat weak reasoning."
+                    "Kinda low. Somewhat weak reasoning."
 
                 4 ->
                     "Below average. More weak than strong."
@@ -243,10 +261,10 @@ strengthMaker argMakerInput =
                     "Above average. More strong than weak."
 
                 7 ->
-                    "High. Somewhat strong reasoning."
+                    "Kinda high. Somewhat strong reasoning."
 
                 8 ->
-                    "Kinda high. Robust reasoning."
+                    "High. Robust reasoning."
 
                 9 ->
                     "Very high. Extremely robust reasoning."
@@ -257,7 +275,7 @@ strengthMaker argMakerInput =
                 _ ->
                     "Confidence level out of expected range."
     in
-    row [ paddingEach { top = 10, right = 0, bottom = 0, left = 0 } ]
+    row [ paddingEach { top = 10, right = 30, bottom = 0, left = 30 }, E.width fill ]
         [ column
             [ E.alignTop, E.alignLeft ]
             [ paragraph (paragraphBoldFormat ++ [ F.size 18, E.width <| px 100 ])
@@ -281,7 +299,7 @@ tableMaker argMakerInput =
             in
             List.indexedMap
                 (\index argumentEntry ->
-                    column (paragraphFormat ++ [ spacing 3, centerX, E.width <| px 500, paddingEach { top = 10, right = 0, bottom = 0, left = 0 } ])
+                    column (paragraphFormat ++ [ spacing 3, centerX, E.width fill, paddingEach { top = 10, right = 30, bottom = 0, left = 30 } ])
                         (List.indexedMap
                             (\premiseIndex premiseWithNotation ->
                                 column argumentFormatting
@@ -313,7 +331,11 @@ tableMaker argMakerInput =
                 )
                 argMakerInput.arg.argumentFormalization
     in
-    column [ centerX, E.width <| px 600 ]
+    column
+        [ centerX
+        , paddingEach { top = 8, right = 30, bottom = 0, left = 30 }
+        , E.width fill
+        ]
         [ wrappedRow (paragraphBoldFormat ++ [ E.alignLeft, E.width fill ])
             [ E.table
                 [ spacing 0
@@ -381,19 +403,22 @@ tableMaker argMakerInput =
 
 proofTreeMaker : ArgMakerInput msg -> Element msg
 proofTreeMaker argMakerInput =
-    row [ paddingEach { top = 10, right = 0, bottom = 10, left = 0 }, centerX, E.width fill ]
-        [ column [ E.alignRight ]
+    row
+        [ paddingEach { top = 8, right = 30, bottom = 0, left = 30 }
+        , centerX
+        , E.width fill
+        ]
+        [ column [ E.width fill ]
             [ newTabLink
                 (paragraphBoldFormat
                     ++ [ F.size 18
                        , F.color colourTheme.backgroundColour
                        , B.color colourTheme.highlightText
                        , paddingEach { top = 6, bottom = 2, left = 12, right = 12 }
-                       , D.width 1
                        , D.rounded 10
-                       , E.width <| px 105
                        , F.center
                        , E.alignRight
+                       , alignBottom
                        , transitionStyle
                        , mouseOver
                             [ B.color colourTheme.highlightTextHover

frontend/src/Debate/Types.elm

@@ -9,6 +9,7 @@ type alias Argument =
     , proofLink : String
     , definitionTable : List Definition
     , argumentCertainty : Int
+    , argumentImage : String
     , argumentFormalization : List ArgumentEntry
     }
 

frontend/src/Pages/Arguments.elm

@@ -175,9 +175,8 @@ debateList model =
         argColumn : Bool -> Element Msg
         argColumn isHidden =
             column
-                -- (explain Debug.todo ::
                 [ padding 30
-                , spacing 10
+                , spacing 15
                 ]
             <|
                 List.map argumentMaker <|
@@ -201,7 +200,13 @@ debateList model =
                         (List.map Just model.argHeights)
     in
     el
-        [ behindContent <| argColumn True ]
+        [ behindContent <| argColumn True
+        , spacing 10
+        , centerX
+        , centerY
+        , alignTop
+        , paddingEach { top = 30, bottom = 30, left = 30, right = 30 }
+        ]
     <|
         argColumn False
 

frontend/src/Pages/Platforms.elm

@@ -153,20 +153,24 @@ makeRow makeRowInput =
                     )
                     makeRowInput.platformsRecommendedClients
     in
-    row [ imageSpacer ]
+    row [ spacing 20 ]
         [ image platformImageFormat
             { src = makeRowInput.logoImage
             , description = makeRowInput.logoDescription
             }
-        , column paragraphColumnFormat
-            [ newTabLink highlightedTitleFormat
-                { url = makeRowInput.platformsLink
-                , label = text makeRowInput.platformsTitle
-                }
-            , paragraph paragraphFormat makeRowInput.platformsParagraph1
-            , paragraph paragraphFormat makeRowInput.platformsParagraph2
-            , paragraph paragraphFormat
-                (recommendedClients :: clientRows)
+        , column [ width <| px 500, spacing 10 ]
+            [ column []
+                [ newTabLink highlightedTitleFormat
+                    { url = makeRowInput.platformsLink
+                    , label = text makeRowInput.platformsTitle
+                    }
+                ]
+            , column [ spacing 20 ]
+                [ paragraph paragraphFormat makeRowInput.platformsParagraph1
+                , paragraph paragraphFormat makeRowInput.platformsParagraph2
+                , paragraph paragraphFormat
+                    (recommendedClients :: clientRows)
+                ]
             ]
         ]
 

frontend/src/Pages/Services.elm

@@ -10,11 +10,12 @@ import Html.Attributes as H exposing (style)
 import Layouts
 import Page exposing (Page)
 import Route exposing (Route)
+import Services.Helpers exposing (..)
 import Services.ServiceList.Coaching.DebateAnalysis exposing (..)
 import Services.ServiceList.Coaching.DebateTutoring exposing (..)
 import Services.ServiceList.Coaching.NutritionScience exposing (..)
+import Services.ServiceList.Creative.ElmBuilds exposing (..)
 import Services.ServiceList.Creative.NixBuilds exposing (..)
-import Services.Helpers exposing (..)
 import Shared exposing (..)
 import View exposing (View)
 
@@ -99,8 +100,9 @@ servicesList =
         pageList
     <|
         List.map serviceMaker
-            [ servicesDebateTutoring
-            , servicesDebateAnalysis
+            [ servicesDebateAnalysis
+            , servicesDebateTutoring
             , servicesNutritionScience
             , servicesNixBuilds
+            , servicesElmBuilds
             ]

frontend/src/Services/Helpers.elm

@@ -3,34 +3,31 @@ module Services.Helpers exposing (..)
 import Config.Colour exposing (..)
 import Config.Format exposing (..)
 import Effect exposing (Effect)
-import Element exposing (..)
+import Element as E exposing (..)
 import Element.Border as D
 import Element.Font as F
 import Html.Attributes as H exposing (style)
 import Layouts
 import Page exposing (Page)
 import Route exposing (Route)
+import Services.ServiceList.Creative.ElmBuilds exposing (servicesElmBuilds)
 import Services.Types exposing (..)
 import Shared
 import View exposing (View)
 
 
-servicesImageFormat : List (Attribute msg)
-servicesImageFormat =
-    [ width <| px 100
-    , alignTop
-    ]
-
-
 serviceMaker : Service -> Element msg
 serviceMaker service =
-    row [ imageSpacer ]
-        [ image servicesImageFormat
-            { src = "services/" ++ service.logoImage ++ ".png"
-            , description = service.logoDescription
-            }
-        , column paragraphColumnFormat
-            [ row [ spacing 8 ]
+    row [ spacing 20 ]
+        [ column [ alignTop, alignRight, width <| px 100 ]
+            [ image
+                [ width <| px 100, alignTop, alignRight ]
+                { src = "services/" ++ service.logoImage ++ ".png"
+                , description = service.logoDescription
+                }
+            ]
+        , column [ width <| px 500, spacing 3 ]
+            [ row [ spacing 10 ]
                 [ newTabLink highlightedTitleFormat
                     { url = service.servicesLink
                     , label =

frontend/src/Services/ServiceList/Coaching/DebateTutoring.elm

@@ -10,5 +10,5 @@ servicesDebateTutoring =
     , servicesLink = "https://the-nutrivore.social/"
     , servicesTitle = "DEBATE COACHING"
     , servicesRate = "$60/hr"
-    , servicesDescription = "Participate in a structured course consisting of five one-hour modules, covering critical thinking, debate strategy, propositional logic, and more. Throughout the course you will receive both personalized and generalizable advice on how to improve your debate performance."
+    , servicesDescription = "Participate in a structured course consisting of five one-hour modules, covering critical thinking, debate strategy, propositional logic, and more. Throughout the course you will receive both personalized and generalizable advice on how to improve your debate performance and critical thinking skills."
     }

frontend/src/Services/ServiceList/Coaching/NutritionScience.elm

@@ -9,6 +9,6 @@ servicesNutritionScience =
     , logoDescription = "nutrition logo"
     , servicesLink = "https://the-nutrivore.social/"
     , servicesTitle = "NUTRITION SCIENCE"
-    , servicesRate = "$40/hr"
+    , servicesRate = "$50/hr"
     , servicesDescription = "Participate in a one-hour Q&A session specifically to inquire about nutrition science. Ask questions about research design, methodology, epistemology, and study interpretation. Also, by participating you will also gain access to nutrition science interpretation cheat-sheets that will streamline and simplify the research appraisal process."
     }

frontend/src/Services/ServiceList/Creative/ElmBuilds.elm

@@ -0,0 +1,15 @@
+module Services.ServiceList.Creative.ElmBuilds exposing (..)
+
+import Element as E exposing (..)
+import Services.Types exposing (..)
+
+
+servicesElmBuilds : Service
+servicesElmBuilds =
+    { logoImage = "elm"
+    , logoDescription = "elm logo"
+    , servicesLink = ""
+    , servicesTitle = "CUSTOM ELM SITES"
+    , servicesRate = "$20/hr"
+    , servicesDescription = "The site you're looking at right now was designed and written by me in Elm, using Elm-Land and Elm-UI. Elm is a purely functional programming language that compiles to JavaScript. It can also handle HTML and CSS in a purely functional paradigm, resulting in highly reproducible sites that require minimal maintenance."
+    }

frontend/src/Services/ServiceList/Creative/NixBuilds.elm

@@ -8,7 +8,7 @@ servicesNixBuilds =
     { logoImage = "nixos"
     , logoDescription = "nixos logo"
     , servicesLink = "https://the-nutrivore.social/"
-    , servicesTitle = "CUSTOM NIX BUILDS"
+    , servicesTitle = "CUSTOM NIX CONFIGS"
     , servicesRate = "$40/hr"
-    , servicesDescription = "NixOS has become popular in my community, with many people choosing to explore it over Windows, MacOS, and other Linux distributions. Naturally, as a consequence of this, I receive numerous requests for help regarding the Nix programming language and NixOS system configuration. So, to fast-track newcomers and to make my life a little bit easier for both of us, I'm offering to build custom NixOS configurations for interested clients."
+    , servicesDescription = "NixOS has gained popularity in my community, with many switching from Windows, macOS, and other Linux distros. As a result, I often get requests for help with NixOS and the Nix programming language. To streamline the process and make things easier for both of us, I'm offering custom NixOS configurations for clients."
     }