feat: still need to remake headers

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

View file

@ -11,7 +11,8 @@ 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 (formatName)
import Config.Helpers.Format
exposing
@ -19,7 +20,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
@ -141,12 +142,15 @@ debateList device =
)
<|
List.concat
[ List.map (headerMaker device)
[ debateHeader ]
, (case ( device.class, device.orientation ) of
_ ->
List.map (debateMaker device)
)
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
(\debate ->
cardMaker device (C.Debate debate) (contentList debate)
)
[ debateArguments
, debateCuckList
, debateGibberish
@ -161,17 +165,10 @@ debateHeader =
"Debate"
in
{ headerTitle = String.toUpper name
, hasImage = False
, hasLink = False
, headerBody = "Here you will find links to various pages relevant to debate, such as formal arguments, a list of debate-dodging cucks, and an inventory of nonsensical terminology."
}
debateMaker : Device -> Debate -> Element msg
debateMaker device debate =
cardMaker device debate.debateTitle (contentList debate) (debateImage debate) debate.debateLink
contentList : Debate -> List (Element msg)
contentList debate =
[ descriptionMaker debate ]
@ -240,8 +237,6 @@ debateArguments =
, debateLink = Path.toString Path.Debate_Arguments
, debateCount = List.length argumentList
, debateImage = formatName name
, hasLink = True
, hasImage = True
, isNewTabLink = False
, debateDescription = "This page features arguments that I hold to be sound, though with varying degrees of confidence. I'm open to hearing all challenges, as I am ready to engage with any substantive critiques and defend any argument listed. I have additionally included a confidence meter with each argument to give readers a clearer understanding of how strongly I hold to the argument."
}
@ -257,8 +252,6 @@ debateCuckList =
, debateLink = Path.toString Path.Debate_Cucklist
, debateCount = List.length cuckList
, debateImage = formatName name
, hasLink = True
, hasImage = True
, isNewTabLink = False
, debateDescription = "This page features a list of complete fucking morons who wrote cheques with their mouths that their asses ultimately couldn't cash. Each person included in this list has dodged debating me in some way, shape, or form. Whether it's simply ignoring invitations, or outright refusing to engage, or agreeing to debate and then subsequently withdrawing. All such instances are catalogued here."
}
@ -274,8 +267,6 @@ debateGibberish =
, debateLink = Path.toString Path.Debate_Gibberish
, debateCount = List.length gibberishList
, debateImage = formatName name
, hasLink = True
, hasImage = True
, isNewTabLink = False
, debateDescription = "This page is specifically for terms and ostensible concepts that I don't have a good reason to believe are understandable from at least one viewpoint. If the clarification of a philosophical term is unsatisfying or unsuccessful, and my interlocutor has exhausted all means of rendering the concept to me, the term ends up here until someone explains to me what the fuck it even means."
}