module Config.Pages.Debate.Cuckery.Records.AllenGreen exposing (cuckAllenGreen)

import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Debate.Cuckery.Types
    exposing
        ( Cuck
        , DodgeDescription(..)
        , DodgeFallacies(..)
        , DoxasticState(..)
        , Evaluation(..)
        , commonPropReasons
        , noProposition
        )


cuckAllenGreen : Cuck
cuckAllenGreen =
    let
        name : String
        name =
            "Allen Green"
    in
    { cuckImage = formatName name
    , cuckName = name
    , cuckSocial = "https://x.com/AllenGreenMD1"
    , isNewTabLink = True
    , cuckDodges =
        [ { dodgeLink = "https://x.com/upRootNutrition/status/1982632539216023931"
          , dodgeDescription = VagueGesture
          , dodgeProposition = "Bears killing baby moose is morally permissible because baby moose are not human."
          , dodgeReceipts =
                [ { receipt = "receipt1" }
                ]
          , dodgeFallacy = Just VagueHumanity
          , dodgeNicksDoxasticState = Just Disbelief
          , dodgeNicksDoxasticReason = SpecificPropReason "The correct response here is to ask what is true of the baby moose that is untrue of the human child that, if made true of the human child, would lead Allen to let the human child die too. When asked, Allen vaguely gestured, then ran away."
          }
        ]
    }
