mirror of
https://gitlab.com/upRootNutrition/website.git
synced 2025-06-16 12:25:12 -05:00
refactor: crushed the cuckery
This commit is contained in:
Nick
parent
e163ea8cf1
commit
9bf6a9703c
2 changed files with 154 additions and 186 deletions
|
|
@ -15,194 +15,162 @@ 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
|
||||
formatProposition : String -> String
|
||||
formatProposition proposition =
|
||||
if proposition == "N/A" then
|
||||
proposition
|
||||
|
||||
else
|
||||
"\"" ++ proposition ++ "\""
|
||||
|
||||
maybeFallacyField : Element msg
|
||||
maybeFallacyField =
|
||||
case dodgeEntry.dodgeFallacy of
|
||||
Nothing ->
|
||||
none
|
||||
|
||||
Just fallacy ->
|
||||
case fallacy of
|
||||
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 ])
|
||||
[ text " "
|
||||
, text (String.fromInt index ++ ". ")
|
||||
, paragraphLinkFormat
|
||||
{ url = dodgeEntry.dodgeLink
|
||||
, label =
|
||||
row [ F.size 18 ]
|
||||
[ transitionHighlightedLinkHover <|
|
||||
text
|
||||
(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
|
||||
[ 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 ])
|
||||
[ column [ alignTop, width <| px 184 ]
|
||||
[ 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
|
||||
]
|
||||
]
|
||||
]
|
||||
]
|
||||
let
|
||||
formatProposition : String -> String
|
||||
formatProposition proposition =
|
||||
if proposition == "N/A" then
|
||||
proposition
|
||||
else
|
||||
"\"" ++ proposition ++ "\""
|
||||
|
||||
maybeFallacyField : Element msg
|
||||
maybeFallacyField =
|
||||
case dodgeEntry.dodgeFallacy of
|
||||
Nothing ->
|
||||
none
|
||||
Just fallacy ->
|
||||
labeledField "Fallacy" (text (formatFallacy fallacy))
|
||||
in
|
||||
column paragraphAlignLeft
|
||||
[ row (paragraphFormat ++ [ F.size 18 ])
|
||||
[ text " "
|
||||
, text (String.fromInt index ++ ". ")
|
||||
, paragraphLinkFormat
|
||||
{ url = dodgeEntry.dodgeLink
|
||||
, label = row [ F.size 18 ]
|
||||
[ transitionHighlightedLinkHover <|
|
||||
text (formatDodgeDescription dodgeEntry.dodgeDescription)
|
||||
, text "." |> el [ F.color colourTheme.nonHighlightedText ]
|
||||
]
|
||||
}
|
||||
]
|
||||
, labeledField "Proposition" (text (formatProposition dodgeEntry.dodgeProposition))
|
||||
, maybeFallacyField
|
||||
, labeledField "Doxastic State" (formatDoxasticState dodgeEntry.dodgeNicksDoxasticState)
|
||||
, labeledField "Reason" (text (formatDoxasticReason dodgeEntry.dodgeNicksDoxasticReason))
|
||||
]
|
||||
|
||||
cuckMaker : Cuck -> Element msg
|
||||
cuckMaker cuck =
|
||||
row [ imageSpacer, alignLeft ]
|
||||
[ image
|
||||
[ centerX
|
||||
, centerY
|
||||
, alignTop
|
||||
, D.rounded 100
|
||||
, clip
|
||||
, width <| px 72
|
||||
]
|
||||
{ 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)
|
||||
}
|
||||
]
|
||||
, 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 [ imageSpacer, alignLeft ]
|
||||
[ image
|
||||
[ centerX
|
||||
, centerY
|
||||
, alignTop
|
||||
, D.rounded 100
|
||||
, clip
|
||||
, width <| px 72
|
||||
]
|
||||
{ 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)
|
||||
}
|
||||
]
|
||||
, 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))
|
||||
]
|
||||
]
|
||||
Loading…
Add table
Add a link
Reference in a new issue