feat: refactored some stuff

This commit is contained in:
Nick 2024-11-28 00:33:22 -06:00
parent 5e25267fbe
commit ed73a38cbe
6 changed files with 380 additions and 141 deletions

View file

@ -39,7 +39,12 @@ cuckMaker cuck =
]
cuckImage : Cuck -> { src : String, description : String }
cuckImage :
Cuck
->
{ src : String
, description : String
}
cuckImage cuck =
{ src = "cucks/" ++ cuck.cuckImage ++ "/" ++ cuck.cuckImage ++ ".png"
, description = cuck.cuckName
@ -53,7 +58,11 @@ cuckTitle cuck =
dodgeMaker : Cuck -> Element msg
dodgeMaker cuck =
column [ spacing 15, width fill ] <|
column
[ spacing 15
, width fill
]
<|
List.map2 (\x y -> makeDodge x y)
cuck.cuckDodges
(List.range 1 (List.length cuck.cuckDodges))
@ -217,7 +226,10 @@ circumstanceMaker dodgeEntry =
propositionMaker : Dodge -> Element msg
propositionMaker dodgeEntry =
row paragraphBoldFormat
[ column [ alignTop, dodgeWidth ]
[ column
[ alignTop
, dodgeWidth
]
[ text "Proposition:"
]
, column
@ -232,10 +244,16 @@ propositionMaker dodgeEntry =
attitudeMaker : Dodge -> Element msg
attitudeMaker dodgeEntry =
row (paragraphBoldFormat ++ [ width fill ])
[ column [ alignTop, dodgeWidth ]
[ column
[ alignTop
, dodgeWidth
]
[ text "Attitude:"
]
, column [ E.width fill, alignLeft ]
, column
[ E.width fill
, alignLeft
]
[ case dodgeEntry.dodgeNicksDoxasticState of
Nothing ->
paragraph [ F.regular ] [ text "I don't form a doxastic state." ]
@ -309,10 +327,16 @@ reductioMaker dodgeEntry =
reasonMaker : Dodge -> Element msg
reasonMaker dodgeEntry =
row (paragraphBoldFormat ++ [ width fill ])
[ column [ alignTop, dodgeWidth ]
[ column
[ alignTop
, dodgeWidth
]
[ text "Reason:"
]
, column [ E.width fill, alignLeft ]
, column
[ E.width fill
, alignLeft
]
[ paragraph [ F.regular ]
[ text <|
case dodgeEntry.dodgeNicksDoxasticReason of
@ -332,10 +356,16 @@ reasonMaker dodgeEntry =
displayFallacy : String -> Element msg
displayFallacy fallacyText =
row paragraphBoldFormat
[ column [ alignTop, dodgeWidth ]
[ column
[ alignTop
, dodgeWidth
]
[ text "Fallacy:"
]
, column [ E.width fill, alignLeft ]
, column
[ E.width fill
, alignLeft
]
[ paragraph [ F.regular ]
[ text fallacyText ]
]