upRootNutrition/website
1
0
Fork 0
mirror of https://gitlab.com/upRootNutrition/website.git synced 2025-06-17 12:55:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: still need to remake headers

Browse source
This commit is contained in:
Nick 2024-12-21 23:23:59 -06:00
parent 4686c14667
commit f9af0e1941
209 changed files with 1057 additions and 953 deletions
Download patch file Download diff file Expand all files Collapse all files

27
frontend/src/Pages/Debate/Arguments.elm
View file

@ -1,14 +1,15 @@
module Pages.Debate.Arguments exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Cardables.Helpers exposing (cardMaker)
import Config.Helpers.Cardables.Types as C
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Helpers.Format
exposing
( paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Header exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -136,12 +137,15 @@ debateList device =
)
<|
List.concat
[ List.map (headerMaker device)
[ argumentHeader ]
, (case ( device.class, device.orientation ) of
_ ->
List.map (argumentMaker device)
)
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
(\argument ->
cardMaker device (C.Argument argument) (contentList argument)
)
argumentList
]
@ -153,17 +157,10 @@ argumentHeader =
"Arguments"
in
{ headerTitle = String.toUpper name
, hasImage = False
, hasLink = False
, headerBody = "This page features arguments that I hold to be sound. I'm open to hearing all challenges, as I am ready to engage with and defend any argument listed."
}
argumentMaker : Device -> Argument -> Element msg
argumentMaker device argument =
cardMaker device argument.argumentTitle (contentList argument) (argumentImage argument) argument.proofLink
contentList : Argument -> List (Element msg)
contentList argument =
[ summaryMakerDesktop argument

27
frontend/src/Pages/Debate/Cucklist.elm
View file

@ -1,7 +1,8 @@
module Pages.Debate.Cucklist exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Cardables.Helpers exposing (cardMaker)
import Config.Helpers.Cardables.Types as C
import Config.Helpers.Converters exposing (formatSocial)
import Config.Helpers.Format
exposing
@ -9,7 +10,7 @@ import Config.Helpers.Format
, paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Header exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -129,12 +130,15 @@ cucksList device =
)
<|
List.concat
[ List.map (headerMaker device)
[ cuckListHeader ]
, (case ( device.class, device.orientation ) of
_ ->
List.map (cuckMaker device)
)
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
(\cuck ->
cardMaker device (C.Cuck cuck) (contentList cuck)
)
cuckList
]
@ -146,17 +150,10 @@ cuckListHeader =
"Cucklist"
in
{ headerTitle = String.toUpper name
, hasImage = False
, hasLink = False
, headerBody = "This page features a list of morons who wrote cheques with their mouths that their asses couldn't cash. Each person included in this list has dodged debating me."
}
cuckMaker : Device -> Cuck -> Element msg
cuckMaker device cuck =
cardMaker device cuck.cuckName (contentList cuck) (cuckImage cuck) cuck.cuckSocial
contentList : Cuck -> List (Element msg)
contentList cuck =
[ socialMaker cuck

27
frontend/src/Pages/Debate/Gibberish.elm
View file

@ -1,14 +1,15 @@
module Pages.Debate.Gibberish exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Cardables.Helpers exposing (cardMaker)
import Config.Helpers.Cardables.Types as C
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Helpers.Format
exposing
( paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Header exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -134,12 +135,15 @@ gibberishList device =
)
<|
List.concat
[ List.map (headerMaker device)
[ gibberishHeader ]
, (case ( device.class, device.orientation ) of
_ ->
List.map (gibberishMaker device)
)
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
(\gibberish ->
cardMaker device (C.Gibberish gibberish) (contentList gibberish)
)
[ epistemologyGibberish
, theologyGibberish
, metaphysicsGibberish
@ -158,17 +162,10 @@ gibberishHeader =
"Gibberish"
in
{ headerTitle = String.toUpper name
, hasImage = False
, hasLink = False
, headerBody = "This page is specifically for terms and ostensible concepts that I think are either nonsensical or so practically useless that its intelligiblity is irrelevant."
}
gibberishMaker : Device -> Gibberish -> Element msg
gibberishMaker device gibberish =
cardMaker device gibberish.gibberishTitle (contentList gibberish) (gibberishImage gibberish) gibberish.gibberishLink
contentList : Gibberish -> List (Element msg)
contentList gibberish =
[ descriptionMaker gibberish