diff --git a/frontend/src/Cuckery/CuckList/AdamSinger.elm b/frontend/src/Cuckery/CuckList/AdamSinger.elm index 9b1389a..b67c667 100755 --- a/frontend/src/Cuckery/CuckList/AdamSinger.elm +++ b/frontend/src/Cuckery/CuckList/AdamSinger.elm @@ -1,6 +1,7 @@ module Cuckery.CuckList.AdamSinger exposing (..) import Cuckery.Types exposing (..) +import Cuckery.Helpers exposing(..) cuckAdamSinger : Cuck diff --git a/frontend/src/Cuckery/CuckList/AnnChilders.elm b/frontend/src/Cuckery/CuckList/AnnChilders.elm index 90a8a60..746dbfe 100755 --- a/frontend/src/Cuckery/CuckList/AnnChilders.elm +++ b/frontend/src/Cuckery/CuckList/AnnChilders.elm @@ -17,7 +17,7 @@ cuckAnnChilders = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1447245484356108292?s=20" , dodgeDescription = RanAway , dodgeProposition = "diets humans thrived on in the wild, sans dentists and doctors, are correct." - , dodgeNicksDoxasticState = Just Belief + , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = Vague } ] diff --git a/frontend/src/Cuckery/CuckList/AnthonyGustin.elm b/frontend/src/Cuckery/CuckList/AnthonyGustin.elm index c87c0dd..831c4a5 100755 --- a/frontend/src/Cuckery/CuckList/AnthonyGustin.elm +++ b/frontend/src/Cuckery/CuckList/AnthonyGustin.elm @@ -18,7 +18,7 @@ cuckAnthonyGustin = , dodgeDescription = GhostedMe , dodgeProposition = "seed oils are not a significant, independent risk factor for public health." , dodgeNicksDoxasticState = Just Belief - , dodgeNicksDoxasticReason = NoProp + , dodgeNicksDoxasticReason = Specific "the aggregate of the data suggests seed oils are beneficial for humans" } ] } diff --git a/frontend/src/Cuckery/Helpers.elm b/frontend/src/Cuckery/Helpers.elm index e622de4..d152221 100755 --- a/frontend/src/Cuckery/Helpers.elm +++ b/frontend/src/Cuckery/Helpers.elm @@ -18,7 +18,7 @@ import View exposing (View) makeDodge : Dodge -> Int -> Element msg makeDodge dodgeEntry index = column paragraphAlignLeft - [ row (paragraphFormat ++ [ width fill ]) + [ row paragraphFormat [ text " " , text (String.fromInt index ++ ". ") , paragraphLinkFormat @@ -51,45 +51,56 @@ makeDodge dodgeEntry index = } ] , row paragraphBoldFormat - [ column [ alignTop ] + [ column [ alignTop, width <| px 184 ] [ text " Proposition:" ] , column [ width <| px 350, alignLeft ] [ paragraph [ F.regular ] [ text dodgeEntry.dodgeProposition ] ] ] , row (paragraphBoldFormat ++ [ width fill ]) - [ text " Doxastic State:" - , case dodgeEntry.dodgeNicksDoxasticState of - Nothing -> - paragraph [ F.regular ] [ text "Nick doesn't form a doxastic state." ] + [ column [ alignTop, width <| px 184 ] + [ text " Doxastic State:" + ] + , column [ width <| px 350, alignLeft ] + [ case dodgeEntry.dodgeNicksDoxasticState of + Nothing -> + paragraph [ F.regular ] [ text "Nick doesn't form a doxastic state." ] - Just Belief -> - paragraph [ F.regular ] - [ text "Nick leans more toward " - , el [ F.bold ] (text "TRUE") - , text " than false." - ] + Just Belief -> + paragraph [ F.regular ] + [ text "Nick leans more toward " + , el [ F.bold ] (text "TRUE") + , text " than false." + ] - Just Disbelief -> - paragraph [ F.regular ] - [ text "Nick leans more toward " - , text "FALSE" |> el [ F.bold ] - , text " than true." - ] + Just Disbelief -> + paragraph [ F.regular ] + [ text "Nick leans more toward " + , text "FALSE" |> el [ F.bold ] + , text " than true." + ] - Just Agnostic -> - el [ F.regular ] (text "Nick doesn't form beliefs about this proposition.") + Just Agnostic -> + el [ F.regular ] (text "Nick doesn't form beliefs about this proposition.") + ] ] , row (paragraphBoldFormat ++ [ width fill ]) - [ text " Reason:" - , el [ F.regular ] - (text <| - case dodgeEntry.dodgeNicksDoxasticReason of - NoProp -> - "there is no proposition to evaluate." + [ column [ alignTop, width <| px 184 ] + [ text " Reason:" + ] + , column [ width <| px 350, alignLeft ] + [ paragraph [ F.regular ] + [ text <| + case dodgeEntry.dodgeNicksDoxasticReason of + NoProp -> + "there is no proposition to evaluate." - Vague -> - "the proposition is too vague to evaluate." - ) + Vague -> + "the proposition is too vague to evaluate." + + Specific str -> + str + ] + ] ] ] diff --git a/frontend/src/Cuckery/Types.elm b/frontend/src/Cuckery/Types.elm index 6474878..774c70c 100755 --- a/frontend/src/Cuckery/Types.elm +++ b/frontend/src/Cuckery/Types.elm @@ -36,12 +36,17 @@ type DoxasticState type Evaluation = NoProp | Vague + | Specific String type alias FormattedCuckName = String +type alias FormattedCuckSocial = + String + + formatCuckName : String -> FormattedCuckName formatCuckName name = name @@ -49,10 +54,6 @@ formatCuckName name = |> String.replace " " "" -type alias FormattedCuckSocial = - String - - formatCuckSocial : String -> FormattedCuckSocial formatCuckSocial name = name diff --git a/frontend/static/cucks/austinherbert.png b/frontend/static/cucks/austinherbert.png index d21163a..134f5c3 100755 Binary files a/frontend/static/cucks/austinherbert.png and b/frontend/static/cucks/austinherbert.png differ diff --git a/frontend/static/cucks/benbikman.png b/frontend/static/cucks/benbikman.png index c980868..75cacc9 100755 Binary files a/frontend/static/cucks/benbikman.png and b/frontend/static/cucks/benbikman.png differ