feat: added fallacy field

This commit is contained in:
Nick 2024-11-19 22:07:19 -06:00
parent 72c37b3bfb
commit 1e2db95875
68 changed files with 135 additions and 2 deletions

View file

@ -25,6 +25,23 @@ makeDodge dodgeEntry index =
else
"\"" ++ proposition ++ "\""
maybeFallacyField : Element msg
maybeFallacyField =
case dodgeEntry.dodgeFallacy of
"" ->
none
fallacy ->
row paragraphBoldFormat
[ column [ alignTop, width <| px 184 ]
[ text " Fallacy:"
]
, column [ width <| px 350, alignLeft ]
[ paragraph [ F.regular ]
[ text (formatProposition fallacy) ]
]
]
in
column paragraphAlignLeft
[ row (paragraphFormat ++ [ F.size 18 ])
@ -68,6 +85,7 @@ makeDodge dodgeEntry index =
]
, 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:"