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

@ -1,21 +1,7 @@
module Pages.Debate.Arguments exposing (Model, Msg, page)
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 (toTitleCase)
import Config.Helpers.Format
exposing
@ -150,17 +136,11 @@ debateList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ argumentHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map argumentMakerMobile
( Tablet, Portrait ) ->
List.map argumentMakerMobile
_ ->
List.map argumentMaker
List.map (argumentMaker device)
)
argumentList
]
@ -177,60 +157,18 @@ argumentHeader =
}
argumentMaker : Argument -> Element msg
argumentMaker argument =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (argumentImage argument) (argumentLink argument)
, cardMaker
[ cardTitleMaker argument.argumentTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ -- propositionMakerDesktop argument
-- , reductioMakerDesktop argument
-- ,
summaryMakerDesktop argument
, strengthBar argument
, tableMaker argument
, desktopFormalizationMaker argument
]
]
]
]
]
argumentMaker : Device -> Argument -> Element msg
argumentMaker device argument =
cardMaker device argument.argumentTitle (contentList argument) (argumentImage argument) argument.proofLink
argumentMakerMobile : Argument -> Element msg
argumentMakerMobile argument =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker argument.argumentTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ spacing 10, E.width fill ]
[ mobileCardMaker mobileImageBoxSize mobileImageSize (argumentImage argument) (argumentLink argument)
-- , column [ E.width fill ]
-- [ propositionMakerMobile argument
-- ]
]
-- , reductioMakerMobile argument
, summaryMakerMobile argument
, strengthBar argument
, tableMaker argument
, mobileFormalizationMaker argument
]
]
]
]
]
contentList : Argument -> List (Element msg)
contentList argument =
[ summaryMakerDesktop argument
, strengthBar argument
, tableMaker argument
, desktopFormalizationMaker argument
]
argumentImage : Argument -> { src : String, description : String }
@ -240,11 +178,6 @@ argumentImage argument =
}
argumentLink : Argument -> String
argumentLink argument =
argument.proofLink
infoSpacing =
E.width <| px 100

View file

@ -1,21 +1,7 @@
module Pages.Debate.Cucklist exposing (Model, Msg, page)
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 (formatSocial)
import Config.Helpers.Format
exposing
@ -143,17 +129,11 @@ cucksList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ cuckListHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map mobileCuckMaker
( Tablet, Portrait ) ->
List.map mobileCuckMaker
_ ->
List.map desktopCuckMaker
List.map (cuckMaker device)
)
cuckList
]
@ -170,56 +150,17 @@ cuckListHeader =
}
desktopCuckMaker : Cuck -> Element msg
desktopCuckMaker cuck =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (cuckImage cuck) (cuckSocial cuck)
, cardMaker
[ cardTitleMaker (cuckTitle cuck)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ socialMaker cuck
, dodgeTitle cuck
, dodgeMaker cuck
]
]
]
]
]
cuckMaker : Device -> Cuck -> Element msg
cuckMaker device cuck =
cardMaker device cuck.cuckName (contentList cuck) (cuckImage cuck) cuck.cuckSocial
mobileCuckMaker : Cuck -> Element msg
mobileCuckMaker cuck =
column
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker (cuckTitle cuck)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ column
[ alignTop
, centerX
, alignLeft
, spacing 3
]
[ row [ spacing 10 ]
[ mobileCardMaker mobileImageBoxSize mobileImageSize (cuckImage cuck) (cuckSocial cuck)
, socialMaker cuck
]
, dodgeTitle cuck
, dodgeMaker cuck
]
]
]
]
]
]
contentList : Cuck -> List (Element msg)
contentList cuck =
[ socialMaker cuck
, dodgeTitle cuck
, dodgeMaker cuck
]
cuckImage :
@ -234,16 +175,6 @@ cuckImage cuck =
}
cuckTitle : Cuck -> String
cuckTitle cuck =
cuck.cuckName
cuckSocial : Cuck -> String
cuckSocial cuck =
cuck.cuckSocial
dodgeMaker : Cuck -> Element msg
dodgeMaker cuck =
column
@ -418,6 +349,7 @@ circumstance cuck dodge =
text "Chose to gesture vaguely instead of engaging"
, el [ F.color colourTheme.textLightGrey ] <|
text "."
-- , receipts cuck dodge
]

View file

@ -1,21 +1,7 @@
module Pages.Debate.Gibberish exposing (Model, Msg, page)
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 (toTitleCase)
import Config.Helpers.Format
exposing
@ -148,17 +134,11 @@ gibberishList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ gibberishHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map mobileGibberishMaker
( Tablet, Portrait ) ->
List.map mobileGibberishMaker
_ ->
List.map desktopGibberishMaker
List.map (gibberishMaker device)
)
[ epistemologyGibberish
, theologyGibberish
@ -182,47 +162,34 @@ gibberishHeader =
}
desktopGibberishMaker : Gibberish -> Element msg
desktopGibberishMaker gibberish =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (gibberishImage gibberish) gibberish.gibberishLink
, cardMaker
[ cardTitleMaker (gibberishTitle gibberish)
, cardFormatter
[ column [ spacing 20, padding 10 ]
[ descriptionMaker gibberish
, gibberishMakerBody gibberish
]
]
]
]
gibberishMaker : Device -> Gibberish -> Element msg
gibberishMaker device gibberish =
cardMaker device gibberish.gibberishTitle (contentList gibberish) (gibberishImage gibberish) gibberish.gibberishLink
mobileGibberishMaker : Gibberish -> Element msg
mobileGibberishMaker gibberish =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (gibberishTitle gibberish)
, cardFormatter
[ row [ spacing 20, padding 10 ]
[ column [] [ mobileCardMaker mobileImageBoxSize mobileImageSize (gibberishImage gibberish) gibberish.gibberishLink ]
, column [ width fill ]
[ descriptionMaker gibberish
]
]
, domainList gibberish
]
]
]
contentList : Gibberish -> List (Element msg)
contentList gibberish =
[ descriptionMaker gibberish
, gibberishMakerBody gibberish
]
gibberishMakerBody : Gibberish -> Element msg
gibberishMakerBody gibberish =
cardContentSpacing
column
[ paddingEach
{ top = 0
, bottom = 0
, left = 15
, right = 15
}
, spacing 8
, width fill
]
[ column
fieldSpacer
[ spacing 8
, width fill
]
[ paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing