mirror of
https://gitlab.com/upRootNutrition/website.git
synced 2025-06-17 12:55:12 -05:00
feat: stuff is fucked but I'm too tired to continue tonight
This commit is contained in:
parent
d2056e032e
commit
277ba17421
37 changed files with 683 additions and 1491 deletions
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
]
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue