feat: so very close

This commit is contained in:
Nick 2024-12-27 23:24:35 -06:00
parent 185d922ffb
commit 071c823c41
20 changed files with 293 additions and 570 deletions

View file

@ -11,6 +11,7 @@ import Config.Data.Identity
exposing
( pageNames
)
import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyLink, detailBodyMaker, detailFormat, detailSpacing, detailTitleMaker)
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Outer.Types as C
import Config.Helpers.Converters exposing (formatName)
@ -35,7 +36,7 @@ import Config.Pages.Debate.Arguments.List exposing (argumentList)
import Config.Pages.Debate.Cuckery.List exposing (cuckList)
import Config.Pages.Debate.Gibberish.List exposing (gibberishList)
import Config.Pages.Debate.Types exposing (..)
import Config.Style.Colour.Helpers as T exposing (colourTheme)
import Config.Style.Colour.Helpers as T exposing (ThemeColor(..), colourTheme)
import Config.Style.Glow
exposing
( glowDeepDarkGrey
@ -181,46 +182,45 @@ descriptionMaker device debate =
<|
imageSquareMaker device (imagePathMaker M.Debate debate.debateImage) True size
in
chunkMaker
[ image "Fatty"
, el [] <|
inferenceMaker debate
, el [ width fill, height (px 0) ] none
, el
[ F.color colourTheme.textLightGrey ]
(text debate.debateDescription)
detailFormat row
[ case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
none
( Tablet, Portrait ) ->
none
_ ->
image "Fatty"
, detailFormat column
[ inferenceMaker debate
, detailBodyMaker TextLightGrey
(text debate.debateDescription)
]
]
inferenceMaker : Debate -> Element msg
inferenceMaker debate =
row [ spacing 5 ]
[ el
[ F.color colourTheme.textLightOrange
, paragraphSpacing
, F.bold
, headerFontSizeSmall
]
<|
if debate.debateTitle == "Arguments" then
text "Inferences: "
detailFormat row
[ detailTitleMaker TextLightOrange
(case debate.debateTitle of
"Arguments" ->
"Inferences:"
else if debate.debateTitle == "Cucklist" then
text "Cucks: "
"Cucklist" ->
"Cucks:"
else if debate.debateTitle == "Gibberish" then
text "Gibberations: "
"Gibberish" ->
"Gibberations:"
else
text ""
, el
[ F.color colourTheme.textLightGrey
, F.regular
, paragraphFontSize
]
<|
text
_ ->
""
)
, detailBodyMaker TextLightGrey
(text
(String.fromInt debate.debateCount)
)
]