feat: stuff is fucked but I'm too tired to continue tonight

This commit is contained in:
Nick 2024-12-21 04:07:50 -06:00
parent d2056e032e
commit 277ba17421
37 changed files with 683 additions and 1491 deletions

View file

@ -11,21 +11,7 @@ import Config.Data.Identity
exposing
( pageNames
)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Converters exposing (formatName)
import Config.Helpers.Format
exposing
@ -155,17 +141,11 @@ debateList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ debateHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map mobileDebateMaker
( Tablet, Portrait ) ->
List.map mobileDebateMaker
_ ->
List.map desktopDebateMaker
List.map (debateMaker device)
)
[ debateArguments
, debateCuckList
@ -185,46 +165,14 @@ debateHeader =
}
desktopDebateMaker : Debate -> Element msg
desktopDebateMaker debate =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (debateImage debate) debate.debateLink
, cardMaker
[ cardTitleMaker debate.debateTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ descriptionMaker debate ]
]
]
]
]
debateMaker : Device -> Debate -> Element msg
debateMaker device debate =
cardMaker device debate.debateTitle (contentList debate) (debateImage debate) debate.debateLink
mobileDebateMaker : Debate -> Element msg
mobileDebateMaker debate =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker debate.debateTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ width fill, spacing 10 ]
[ mobileCardMaker mobileImageBoxSize mobileImageSize (debateImage debate) debate.debateLink
, column
[ width fill ]
[ descriptionMaker debate ]
]
]
]
]
]
]
contentList : Debate -> List (Element msg)
contentList debate =
[ descriptionMaker debate ]
debateImage :