refactor: crushed the cuckery

frontend/src/Config/Format.elm

@@ -22,7 +22,7 @@ pageList =
     , centerX
     , centerY
     , alignTop
-    , paddingEach { top = 30, bottom = 30, left = 0, right = 0 }
+    , paddingEach { top = 30, bottom = 30, left = 30, right = 30 }
     ]
 
 

frontend/src/Cuckery/Helpers.elm

@@ -15,6 +15,97 @@ import Shared
 import View exposing (View)
 
 
+labeledField : String -> Element msg -> Element msg
+labeledField label content =
+   row paragraphBoldFormat
+       [ column [ alignTop, width (px 184) ]
+           [ text (label ++ ":") |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
+           ]
+       , column [ width (px 350), alignLeft ]
+           [ paragraph [ F.regular ] [ content ]
+           ]
+       ]
+
+formatDoxasticState : Maybe DoxasticState -> Element msg
+formatDoxasticState state =
+   case state of
+       Nothing ->
+           text "I don't form a doxastic state."
+
+       Just Belief ->
+           row []
+               [ text "I lean more toward "
+               , el [ F.bold ] (text "TRUE")
+               , text " than false."
+               ]
+
+       Just Disbelief ->
+           row []
+               [ text "I lean more toward "
+               , el [ F.bold ] (text "FALSE")
+               , text " than true."
+               ]
+
+       Just Agnostic ->
+           text "I don't form beliefs about this proposition."
+
+formatDodgeDescription : DodgeDescription -> String
+formatDodgeDescription desc =
+   case desc of
+       NoReply ->
+           "Debate invitation extended with no response"
+       RanAway ->
+           "Engaged in written debate and ran away when cornered"
+       GhostedMe ->
+           "Debate invitation accepted with no follow-up"
+       OutrightNo ->
+           "Debate invitation declined"
+       InTooDeep ->
+           "Debate invitation accepted and subsequently retracted"
+       KillScreen ->
+           "All further debate invitations preemptively declined"
+       VagueGesture ->
+           "Chose to gesture vaguely instead of engaging"
+
+formatFallacy : DodgeFallacies -> String
+formatFallacy fallacy =
+   case fallacy of
+       SpecificFallacy str ->
+           if String.isEmpty str then
+               ""
+           else
+               str
+       AppealToNature ->
+           "Appeal to Nature"
+       AppealToTradition ->
+           "Appeal to Tradition"
+       AppealToIgnorance ->
+           "Appeal to Ignorance"
+       AppealFromIncredulity ->
+           "Appeal from Incredulity"
+       RedHerring ->
+           "Red Herring"
+       BeggingTheQuestion ->
+           "Begging the Question"
+       Strawman ->
+           "Strawman"
+       Equivocation ->
+           "Equivocation"
+       GeneticFallacy ->
+           "Genetic Fallacy"
+       MotteAndBailey ->
+           "Motte and Bailey"
+
+formatDoxasticReason : Evaluation -> String
+formatDoxasticReason reason =
+   case reason of
+       NoProp ->
+           "There is no proposition to evaluate."
+       VagueProp ->
+           "The proposition is too vague to evaluate."
+       SpecificProp str ->
+           str
+
 makeDodge : Dodge -> Int -> Element msg
 makeDodge dodgeEntry index =
    let
@@ -22,7 +113,6 @@ makeDodge dodgeEntry index =
        formatProposition proposition =
            if proposition == "N/A" then
                proposition
-
            else
                "\"" ++ proposition ++ "\""
 
@@ -31,57 +121,8 @@ makeDodge dodgeEntry index =
            case dodgeEntry.dodgeFallacy of
                Nothing ->
                    none
-
                Just fallacy ->
-                    case fallacy of
+                   labeledField "Fallacy" (text (formatFallacy fallacy))
-                        SpecificFallacy str ->
-                            if String.isEmpty str then
-                                none
-
-                            else
-                                displayFallacy str
-
-                        AppealToNature ->
-                            displayFallacy "Appeal to Nature"
-
-                        AppealToTradition ->
-                            displayFallacy "Appeal to Tradition"
-
-                        AppealToIgnorance ->
-                            displayFallacy "Appeal to Ignorance"
-
-                        AppealFromIncredulity ->
-                            displayFallacy "Appeal from Incredulity"
-
-                        RedHerring ->
-                            displayFallacy "Red Herring"
-
-                        BeggingTheQuestion ->
-                            displayFallacy "Begging the Question"
-
-                        Strawman ->
-                            displayFallacy "Strawman"
-
-                        Equivocation ->
-                            displayFallacy "Equivocation"
-
-                        GeneticFallacy ->
-                            displayFallacy "Genetic Fallacy"
-
-                        MotteAndBailey ->
-                            displayFallacy "Motte and Bailey"
-
-        displayFallacy : String -> Element msg
-        displayFallacy fallacyText =
-            row paragraphBoldFormat
-                [ column [ alignTop, width (px 184) ]
-                    [ text "Fallacy:" |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
-                    ]
-                , column [ width (px 350), alignLeft ]
-                    [ paragraph [ F.regular ]
-                        [ text fallacyText ]
-                    ]
-                ]
    in
    column paragraphAlignLeft
        [ row (paragraphFormat ++ [ F.size 18 ])
@@ -89,91 +130,18 @@ makeDodge dodgeEntry index =
            , text (String.fromInt index ++ ". ")
            , paragraphLinkFormat
                { url = dodgeEntry.dodgeLink
-                , label =
+               , label = row [ F.size 18 ]
-                    row [ F.size 18 ]
                    [ transitionHighlightedLinkHover <| 
-                            text
+                       text (formatDodgeDescription dodgeEntry.dodgeDescription)
-                                (case dodgeEntry.dodgeDescription of
-                                    NoReply ->
-                                        "Debate invitation extended with no response"
-
-                                    RanAway ->
-                                        "Engaged in written debate and ran away when cornered"
-
-                                    GhostedMe ->
-                                        "Debate invitation accepted with no follow-up"
-
-                                    OutrightNo ->
-                                        "Debate invitation declined"
-
-                                    InTooDeep ->
-                                        "Debate invitation accepted and subsequently retracted"
-
-                                    KillScreen ->
-                                        "All further debate invitations preemptively declined"
-
-                                    VagueGesture ->
-                                        "Chose to gesture vaguely instead of engaging"
-                                )
                    , text "." |> el [ F.color colourTheme.nonHighlightedText ]
                    ]
                }
            ]
-        , row paragraphBoldFormat
+       , labeledField "Proposition" (text (formatProposition dodgeEntry.dodgeProposition))
-            [ column [ alignTop, width <| px 184 ]
-                [ text "Proposition:" |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
-                ]
-            , column [ width <| px 350, alignLeft ] [ paragraph [ F.regular ] [ text (formatProposition dodgeEntry.dodgeProposition) ] ]
-            ]
        , maybeFallacyField
-        , row (paragraphBoldFormat ++ [ width fill ])
+       , labeledField "Doxastic State" (formatDoxasticState dodgeEntry.dodgeNicksDoxasticState)
-            [ column [ alignTop, width <| px 184 ]
+       , labeledField "Reason" (text (formatDoxasticReason dodgeEntry.dodgeNicksDoxasticReason))
-                [ text "Doxastic State:" |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
        ]
-            , column [ width <| px 350, alignLeft ]
-                [ case dodgeEntry.dodgeNicksDoxasticState of
-                    Nothing ->
-                        paragraph [ F.regular ] [ text "I don't form a doxastic state." ]
-
-                    Just Belief ->
-                        paragraph [ F.regular ]
-                            [ text "I lean more toward "
-                            , el [ F.bold ] (text "TRUE")
-                            , text " than false."
-                            ]
-
-                    Just Disbelief ->
-                        paragraph [ F.regular ]
-                            [ text "I lean more toward "
-                            , text "FALSE" |> el [ F.bold ]
-                            , text " than true."
-                            ]
-
-                    Just Agnostic ->
-                        el [ F.regular ] (text "I don't form beliefs about this proposition.")
-                ]
-            ]
-        , row (paragraphBoldFormat ++ [ width fill ])
-            [ column [ alignTop, width <| px 184 ]
-                [ text "Reason:" |> el [ paddingEach { top = 0, right = 0, bottom = 0, left = 70 } ]
-                ]
-            , column [ width <| px 350, alignLeft ]
-                [ paragraph [ F.regular ]
-                    [ text <|
-                        case dodgeEntry.dodgeNicksDoxasticReason of
-                            NoProp ->
-                                "There is no proposition to evaluate."
-
-                            VagueProp ->
-                                "The proposition is too vague to evaluate."
-
-                            SpecificProp str ->
-                                str
-                    ]
-                ]
-            ]
-        ]
-
 
 cuckMaker : Cuck -> Element msg
 cuckMaker cuck =