feat: massive refactor

This commit is contained in:
Nick 2024-12-15 02:31:26 -06:00
parent c619757eff
commit fc7b85afc1
214 changed files with 4764 additions and 4716 deletions

View file

@ -13,6 +13,7 @@ type alias PageInput =
, pageNutriDex : String
, pageServices : String
, pageDonate : String
, pageNotFound : String
}
@ -29,8 +30,5 @@ pageNames =
, pageInterviews = "interviews"
, pageContact = "contact"
, pageDonate = "donate"
, pageNotFound = "notFound"
}
url =
"http://localhost:1234/"

View file

@ -1,10 +1,11 @@
module Config.Helpers.ArticleFormat exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.CardFormat exposing (..)
import Config.Helpers.Format exposing (..)
import Config.Helpers.ToolTip exposing (..)
import Config.Pages.Headers.Types exposing (..)
import Config.Helpers.Format
exposing
( paragraphFontSize
, paragraphSpacing
)
import Config.Style.Colour exposing (colourTheme)
import Config.Style.Transitions
exposing
@ -12,13 +13,10 @@ import Config.Style.Transitions
, transitionStyleFast
, transitionStyleSlow
)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html
import Html.Attributes as H exposing (style)
bodyFormat : List (Attribute msg)

View file

@ -3,7 +3,6 @@ module Config.Helpers.CardFormat exposing (..)
import Config.Data.Identity
exposing
( pageNames
, url
)
import Config.Helpers.Converters exposing (formatName)
import Config.Helpers.Format
@ -29,9 +28,10 @@ import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html.Attributes as H
import Route.Path as Path
import Route.Path as Path exposing (..)
topLevelBox : List (Attribute msg)
topLevelBox =
[ E.width fill
, E.height fill

View file

@ -2,7 +2,6 @@ module Config.Helpers.Response exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Element as E exposing (..)
import Element.Background as B
topLevelContainer : Element msg -> Element msg
@ -10,8 +9,7 @@ topLevelContainer =
el
[ width fill
, height fill
, B.color colourTheme.backgroundLightGrey
, height fill
, explain Debug.todo
, scrollbarY
]

View file

@ -10,8 +10,8 @@ import Element.Border as D
barMaker : (Int -> String) -> Int -> Element msg
barMaker getTooltip num =
el
([ E.height <| px 12
, E.width fill
([ height <| px 12
, width fill
, D.rounded 10
, D.color colourTheme.textDarkGrey
, D.width 2
@ -32,6 +32,6 @@ barMaker getTooltip num =
barPadding : List (Element msg) -> Element msg
barPadding =
column
[ E.width fill
, E.alignLeft
[ width fill
, alignLeft
]

View file

@ -22,7 +22,7 @@ tooltip content =
, below <|
el [ htmlAttribute (H.style "pointerEvents" "none") ] <|
el
[ E.width <| px 300
[ width <| px 300
, htmlAttribute <| H.style "z-index" "4"
, F.size 15
, F.center

View file

@ -1,392 +0,0 @@
module Config.Pages.Contact.Helpers exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.CardFormat exposing (..)
import Config.Helpers.Format exposing (..)
import Config.Helpers.StrengthBar
exposing
( barMaker
, barPadding
)
import Config.Helpers.ToolTip exposing (..)
import Config.Pages.Contact.Methods.Discord exposing (contactDiscord)
import Config.Pages.Contact.Types exposing (..)
import Config.Pages.Headers.Types exposing (..)
import Config.Pages.Interviews.Types exposing (..)
import Config.Pages.Products.Types exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleSlow
)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html.Attributes as H exposing (style)
instructionMaker : Element msg
instructionMaker =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (String.toUpper pageNames.pageContact)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ instructionBody ]
]
]
]
]
]
instructionBody : Element msg
instructionBody =
column
[ spacing 10
, paddingEach
{ top = 10
, bottom = 0
, left = 0
, right = 0
}
]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text "The following terms may seem unreasonable to some, but after years on a large platform, I've learned the importance of filtering the criticisms I receive. Most feedback I receive is just vague gesturing and lacks substance, making some sort of quality filter essential. Thank you for your patience and understanding." ]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text "Please keep in mind that any failure to comply with the following terms and conditions will forfeit your access to my time and attention. I ask that you respect my time and read these terms carefully. You are the one requesting an audience with me, and my time is mine to donate as I see fit. If you wish to submit your criticisms, you must do so on my terms, following the rules and conditions that streamline the process for me." ]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.center
, width fill
, paddingEach
{ top = 10
, bottom = 10
, left = 0
, right = 0
}
]
)
[ el
[ F.color colourTheme.textLightOrange
, F.size 18
]
<|
text "Terms and Conditions"
]
, column [ spacing 10 ] <|
List.indexedMap
(\index term ->
row
[ spacing 10
, width fill
]
[ column
[ width <| px 15
, alignTop
]
[ el [ alignRight ] <| text (String.fromInt (index + 1) ++ ". ") ]
, column
[ spacing 10
, width fill
, alignRight
]
[ paragraph
[ width fill
, F.size 16
, F.alignLeft
]
term
]
]
)
termsAndConditions
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.center
, width fill
, paddingEach
{ top = 10
, bottom = 10
, left = 0
, right = 0
}
]
)
[ el
[ F.color colourTheme.textLightOrange
, F.size 18
]
<|
text "Additional Clarifications"
]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text " "
, text "You are only allowed to post one criticism at a time in the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎criticism"
}
, text " channel. You may post an additional criticism only after the previous one has been addressed and resolved to my satisfaction. This policy aims to reduce spamming, rambling, and Gish galloping, and to encourage linear discourse."
]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text " ", text "You may or may not be asked to voice chat about your criticism. While your willingness to engage in voice chat is a necessary condition for submitting your criticism, it does not guarantee that a voice chat will be requested. If your initial criticism is clear and I agree with it, then no voice chat will be required." ]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text " ", text "You may or may not be asked to have your criticism formalized. While your willingness to have your criticism formalized is a necessary condition for submitting your criticism, it does not guarantee that a formalization will be requested. If your initial criticism is clear and I agree with it, then no formalization will be required." ]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text " "
, text "If I find it necessary to access a text-based channel (for simple clarifying questions, for example), then either I or a moderator will open a new thread in the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎criticism"
}
, text " channel. There we can then engage in a text-based discussion and/or ping other users if needed."
]
, paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.alignLeft
, width fill
]
)
[ text " ", text "I will only request that your criticism be formalized if I do not understand it and we have exhausted all other reasonable means of clarification. If formalization is requested, you will not need to do it yourself, as I recognize that not everyone understands formal logic. If formalization is requested and I am unavailable to assist you, you may ping the @Logic role, and another user may help you." ]
]
darkFormat : Attr decorative msg
darkFormat =
F.color colourTheme.textDarkGrey
orangeFormat : List (Attr () msg)
orangeFormat =
[ F.color colourTheme.textLightOrange
, hoverFontDarkOrange
, transitionStyleFast
]
rounding : Attribute msg
rounding =
D.rounded 10
termsAndConditions : List (List (Element msg))
termsAndConditions =
[ [ paragraph [ alignLeft ]
[ text "You will register an account with "
, newTabLink []
{ url = "https://discord.com/login"
, label = el orangeFormat <| text "Discord"
}
, text " (if you haven't already)."
]
]
, [ row [ alignLeft ]
[ text "You will join the "
, newTabLink []
{ url = "https://discord.com/invite/VzU8yCvYX8"
, label = el orangeFormat <| text "upRootNutrition"
}
, text " Discord Server (if you haven't already)."
]
]
, [ el [ alignLeft ] <| text "You will click the \"😃\" emoji to enter the server (if you haven't already)." ]
, [ paragraph [ alignLeft ]
[ text "You will locate the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/826225570219687956"
, label = el orangeFormat <| text "💻general"
}
, text " channel in General category."
]
]
, [ row [ F.alignLeft, alignLeft ]
[ paragraph [ alignLeft ]
[ text "You will post exactly this in the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/826225570219687956"
, label = el orangeFormat <| text "💻general"
}
, text " channel:"
]
, column
[ paddingEach
{ top = 10
, bottom = 10
, left = 0
, right = 0
}
, alignLeft
]
[ paragraph
[ paddingEach
{ top = 15
, bottom = 15
, left = 20
, right = 20
}
, B.color colourTheme.backgroundLightGrey
, rounding
, width fill
, spacing 8
]
[ text "\"@Moderators I have a criticism for Nick.\""
]
]
]
]
, [ el [ alignLeft ] <| text "You will then receive the @Critic role." ]
, [ paragraph [ alignLeft ]
[ text "You will locate the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎criticism"
}
, text " channel in the General category."
]
]
, [ paragraph [ alignLeft ]
[ paragraph [ F.alignLeft ]
[ text "You will post your criticism in the "
, newTabLink []
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎criticism"
}
, text " channel with this exact format:"
]
]
, column
[ paddingEach
{ top = 10
, bottom = 10
, left = 0
, right = 0
}
, alignLeft
]
[ column
[ paddingEach
{ top = 15
, bottom = 15
, left = 20
, right = 20
}
, B.color colourTheme.backgroundLightGrey
, rounding
, width fill
, spacing 8
]
[ text "\"Hello, <@191027366640877568>. I have a criticism for you."
, row [ alignLeft ]
[ paragraph []
[ text "Proposition: "
, el [ darkFormat ] <| text "specify the exact proposition you are addressing."
]
]
, row [ alignLeft ]
[ paragraph []
[ text "Link: "
, el [ darkFormat ] <| text "provide a url to the claim, with a timestamp if applicable."
]
]
, row [ alignLeft ]
[ paragraph []
[ text "Reason for Error: "
, el [ darkFormat ] <| text "explain exactly why you believe this claim is in error."
]
]
, row [ alignLeft ]
[ paragraph []
[ text "Suggested Correction (if any): "
, el [ darkFormat ] <| text "provide the corrected information or perspective."
]
]
, row [ alignLeft ]
[ paragraph []
[ text "Additional Comments: "
, el [ darkFormat ] <| text "any other relevant thoughts or context."
, text "\""
]
]
]
]
]
, [ el [ alignLeft ] <| text "You will not post additional criticisms until the last one has been resolved." ]
, [ paragraph [ alignLeft ]
[ text "You will not post anything other than criticisms in the "
, newTabLink [ alignLeft ]
{ url = "https://discord.com/channels/692563032546476062/1301247050796634182"
, label = el orangeFormat <| text "🔎criticism"
}
, text " channel."
]
]
, [ el [ alignLeft ] <| text "You must be willing to converse over voice chat." ]
, [ el [ alignLeft ] <| text "You must be willing to have your criticism formalized." ]
]

View file

@ -1,22 +0,0 @@
module Config.Pages.Contact.Methods.Discord exposing (..)
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Contact.Types exposing (..)
contactDiscord : Contact
contactDiscord =
let
name =
"Discord"
in
{ contactName = name
, contactImage = formatName name
, contactLink = "https://discord.com/invite/YrcEvgRTqy"
, contactLinkLabel = "upRootNutrition Server"
, contactEntry =
[ { contactInstructions =
""
}
]
}

View file

@ -1,25 +0,0 @@
module Config.Pages.Contact.Methods.Email exposing (..)
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Contact.Types exposing (..)
contactEmail : Contact
contactEmail =
let
name =
"Email"
contact =
"nick@uprootnutrition.com"
in
{ contactName = name
, contactImage = formatName name
, contactLink = contact
, contactLinkLabel = contact
, contactEntry =
[ { contactInstructions =
""
}
]
}

View file

@ -1,698 +0,0 @@
module Config.Pages.Debate.Arguments.Helpers exposing (..)
import Config.Data.Hashtags.Helpers exposing (..)
import Config.Helpers.CardFormat exposing (..)
import Config.Helpers.Format
exposing
( paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.StrengthBar
exposing
( barMaker
, barPadding
)
import Config.Helpers.ToolTip exposing (tooltip)
import Config.Pages.Debate.Arguments.Inferences.Abortion exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Agnosticism exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AgriculturalPredation exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AnabolicKeto exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AnimalRights exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AntagonisticPleiotropy exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AntiRewilding exposing (..)
import Config.Pages.Debate.Arguments.Inferences.AntiVandalism exposing (..)
import Config.Pages.Debate.Arguments.Inferences.ApoBCVD exposing (..)
import Config.Pages.Debate.Arguments.Inferences.BoobyTrapPagers exposing (..)
import Config.Pages.Debate.Arguments.Inferences.CarbsObesity exposing (..)
import Config.Pages.Debate.Arguments.Inferences.ColonizingNature exposing (..)
import Config.Pages.Debate.Arguments.Inferences.CropDeaths exposing (..)
import Config.Pages.Debate.Arguments.Inferences.DairyCowRape exposing (..)
import Config.Pages.Debate.Arguments.Inferences.DietaryCholesterol exposing (..)
import Config.Pages.Debate.Arguments.Inferences.EfilismPatrolSquad exposing (..)
import Config.Pages.Debate.Arguments.Inferences.EpidemiologyCausality exposing (..)
import Config.Pages.Debate.Arguments.Inferences.EthicalSlurs exposing (..)
import Config.Pages.Debate.Arguments.Inferences.FineTuning exposing (..)
import Config.Pages.Debate.Arguments.Inferences.FlatEarthDebunk exposing (..)
import Config.Pages.Debate.Arguments.Inferences.FructoseNAFLD exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthPromotingFoods exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthSeeker exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyChocolate exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyDairy exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyFattyFish exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyFibre exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyFood exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthyPlantFoods exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthySeedOils exposing (..)
import Config.Pages.Debate.Arguments.Inferences.HealthySoy exposing (..)
import Config.Pages.Debate.Arguments.Inferences.ImmortalityReductio exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Malondialdehyde exposing (..)
import Config.Pages.Debate.Arguments.Inferences.OddOrderPredators exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Omega3Omega6Ratio exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Ostroveganism exposing (..)
import Config.Pages.Debate.Arguments.Inferences.PlantBasedCVDReversal exposing (..)
import Config.Pages.Debate.Arguments.Inferences.PollinationReductio exposing (..)
import Config.Pages.Debate.Arguments.Inferences.PolyphenolReductio exposing (..)
import Config.Pages.Debate.Arguments.Inferences.ScratcherPioneers exposing (..)
import Config.Pages.Debate.Arguments.Inferences.SodiumCVD exposing (..)
import Config.Pages.Debate.Arguments.Inferences.TMAOCausality exposing (..)
import Config.Pages.Debate.Arguments.Inferences.Template exposing (argument)
import Config.Pages.Debate.Arguments.Inferences.TransPeople exposing (..)
import Config.Pages.Debate.Arguments.Inferences.TruncatedMeta exposing (..)
import Config.Pages.Debate.Arguments.Inferences.UnhealthyCoconutOil exposing (..)
import Config.Pages.Debate.Arguments.Inferences.UnhealthyProcessedMeat exposing (..)
import Config.Pages.Debate.Arguments.Inferences.UnhealthyRedMeat exposing (..)
import Config.Pages.Debate.Arguments.Inferences.UnhealthySaturatedFat exposing (..)
import Config.Pages.Debate.Arguments.Inferences.VeganSocietyReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Config.Style.Glow
exposing
( glowDeepDarkGrey
, glowDeepDarkOrange
)
import Config.Style.Transitions exposing (transitionStyleSlow)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html exposing (div, hr)
import Html.Attributes as H exposing (style, title, wrap)
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
]
]
]
]
]
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
]
]
]
]
]
argumentImage : Argument -> { src : String, description : String }
argumentImage argument =
{ src = "/arguments/" ++ argument.argumentImage ++ ".png"
, description = argument.argumentTitle
}
argumentLink : Argument -> String
argumentLink argument =
argument.proofLink
infoSpacing =
E.width <| px 100
propositionMakerDesktop : Argument -> Element msg
propositionMakerDesktop argument =
row []
[ propositionMaker
, propositionTitleMaker argument
]
propositionMakerMobile : Argument -> Element msg
propositionMakerMobile argument =
column []
[ propositionMaker
, propositionTitleMaker argument
]
propositionMaker : Element msg
propositionMaker =
column
[ E.alignTop, E.alignLeft ]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, infoSpacing
]
)
[ el
[ tooltip
"A proposition is a declarative statement that can be evaluated as either true or false, and which serves as the basis for debate."
]
(text "Proposition:")
|> el [ F.color colourTheme.textLightOrange ]
]
]
propositionTitleMaker : Argument -> Element msg
propositionTitleMaker argument =
column
[ E.width fill, E.alignLeft ]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18 ]
)
[ text argument.propositionTitle
|> el
[ F.color colourTheme.textLightGrey
, F.regular
, F.size 16
]
]
]
reductioMakerDesktop : Argument -> Element msg
reductioMakerDesktop argument =
case argument.propositionReductio of
"" ->
none
reductio ->
row
[]
[ reductioMaker
, reductioMakerTitle reductio
]
reductioMakerMobile : Argument -> Element msg
reductioMakerMobile argument =
case argument.propositionReductio of
"" ->
none
reductio ->
row
[]
[ reductioMaker
, reductioMakerTitle reductio
]
reductioMaker : Element msg
reductioMaker =
column
[ E.alignTop, E.alignLeft ]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, infoSpacing
]
)
[ el
[ tooltip
"This is the position from which the reductio ad absurdum is derived."
]
(text "Reductio:")
|> el [ F.color colourTheme.textLightOrange ]
]
]
reductioMakerTitle : String -> Element msg
reductioMakerTitle reductio =
column [ E.width fill, E.alignLeft ]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.size 16
, spacing 3
]
)
[ text reductio ]
]
summaryMakerDesktop : Argument -> Element msg
summaryMakerDesktop argument =
row []
[ summaryMaker
, summaryMakerTitle argument
]
summaryMakerMobile : Argument -> Element msg
summaryMakerMobile argument =
column []
[ summaryMaker
, summaryMakerTitle argument
]
summaryMaker : Element msg
summaryMaker =
column
[ E.alignTop
, E.alignLeft
]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, infoSpacing
]
)
[ el
[ tooltip
"The following information provides additional context and insight into the reasoning behind the argument."
]
(text "Summary:")
|> el [ F.color colourTheme.textLightOrange ]
]
]
summaryMakerTitle : Argument -> Element msg
summaryMakerTitle argument =
column
[ E.width fill
, E.alignLeft
]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, spacing 3
]
)
[ text argument.propositionSummary
|> el
[ F.color colourTheme.textLightGrey
, F.regular
, F.size 16
]
]
]
strengthBar : Argument -> Element msg
strengthBar argument =
row [ E.width fill ]
[ strengthMaker
, strengthMakerBar argument
]
strengthMaker : Element msg
strengthMaker =
column
[ E.alignTop
, E.alignLeft
]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ F.size 18
, E.width fill
]
)
[ el
[ tooltip
"This represents my confidence in the soundness of the argument."
]
(el
[ paddingEach
{ top = 0
, right = 5
, bottom = 0
, left = 0
}
]
<|
text "Confidence:"
)
|> el [ F.color colourTheme.textLightOrange ]
]
]
strengthMakerBar : Argument -> Element msg
strengthMakerBar argument =
barPadding
[ barMaker getConfidenceTooltip argument.argumentCertainty ]
getConfidenceTooltip : Int -> String
getConfidenceTooltip num =
case num of
0 ->
"Extremely low. Speculative reasoning."
1 ->
"Very low. Extremely weak reasoning."
2 ->
"Low. Weak reasoning."
3 ->
"Kinda low. Somewhat weak reasoning."
4 ->
"Below average. More weak than strong."
5 ->
"Moderate. OK reasoning."
6 ->
"Above average. More strong than weak."
7 ->
"Kinda high. Somewhat strong reasoning."
8 ->
"High. Robust reasoning."
9 ->
"Very high. Extremely robust reasoning."
10 ->
"Extremely high. Air tight reasoning."
_ ->
"Confidence level out of expected range."
tableMaker : Argument -> Element msg
tableMaker argument =
column
[ centerX
, E.width fill
]
[ wrappedRow
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ E.alignLeft
, E.width fill
, htmlAttribute <| H.style "position" "relative"
]
)
[ E.table
[ spacing 0
, D.rounded 10
, D.width 2
, D.color colourTheme.textDarkGrey
, clip
]
{ data = argument.definitionTable
, columns =
[ { header =
el
[ F.bold
, D.widthEach
{ bottom = 1
, top = 1
, left = 1
, right = 1
}
, D.color colourTheme.textDarkGrey
, padding 8
, E.width fill
]
(text "Definiendum")
|> el [ F.color colourTheme.textLightOrange ]
, width = fill |> maximum 50
, view =
\definition ->
row
[ F.color colourTheme.textLightOrange
, F.bold
, D.widthEach
{ bottom = 1
, top = 0
, left = 1
, right = 1
}
, D.color colourTheme.textDarkGrey
, padding 8
, E.height fill
]
[ row [ centerX ]
[ paragraph [] [ text definition.definiendum ]
]
]
}
, { header =
el
[ F.bold
, D.widthEach
{ bottom = 1
, top = 1
, left = 0
, right = 1
}
, D.color colourTheme.textDarkGrey
, padding 8
, E.width fill
]
(text "Definiens")
|> el [ F.color colourTheme.textLightOrange ]
, width = fill
, view =
\definition ->
paragraph
[ F.color colourTheme.textLightGrey
, F.regular
, D.widthEach
{ bottom = 1
, top = 0
, left = 0
, right = 1
}
, D.color colourTheme.textDarkGrey
, padding 8
, E.height fill
]
[ row []
[ paragraph [] [ text definition.definiens ]
]
]
}
]
}
]
]
argumentDesktopPadding : Attribute msg
argumentDesktopPadding =
paddingXY 40 3
argumentMobilePadding : Attribute msg
argumentMobilePadding =
paddingXY 0 3
desktopFormalizationMaker : Argument -> Element msg
desktopFormalizationMaker argument =
formalizationMaker argument argumentDesktopPadding
mobileFormalizationMaker : Argument -> Element msg
mobileFormalizationMaker argument =
formalizationMaker argument argumentMobilePadding
formalizationMaker : Argument -> Attribute msg -> Element msg
formalizationMaker argument padding =
column
[ centerX
, E.width fill
, spacing 10
]
(List.indexedMap
(\index argumentEntry ->
column
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ spacing 3
, centerX
, E.width fill
, padding
]
)
(List.indexedMap
(\entryIndex entryWithNotation ->
column
[ centerX
, F.center
, spacing 3
, E.width fill
]
[ paragraph
[ F.color colourTheme.textLightOrange
, F.bold
, spacing 3
, F.size 17
]
[ text
(if entryIndex < List.length argumentEntry.premises then
"P" ++ String.fromInt (entryIndex + 1) ++ ") "
else
"C) "
)
, text
(if entryIndex < List.length argumentEntry.premises then
entryWithNotation.premise
else
argumentEntry.conclusion
)
|> el
[ F.color colourTheme.textLightGrey
, F.regular
, E.width fill
]
]
, paragraph
[ centerX
, F.center
, spacing 3
, E.width fill
, F.color colourTheme.textLightOrange
, F.bold
]
[ text
(if entryIndex < List.length argumentEntry.premises then
"(" ++ entryWithNotation.notation ++ ")"
else
"(" ++ argumentEntry.conclusionNotation ++ ")"
)
]
]
)
(argumentEntry.premises ++ [ { premise = argumentEntry.conclusion, notation = argumentEntry.conclusionNotation } ])
)
)
argument.argumentFormalization
)
argumentList : List Argument
argumentList =
[ argumentApoBCVD
, argumentAnabolicKeto
, argumentAntagonisticPleiotropy
, argumentCarbsObesity
, argumentDietaryCholesterol
, argumentFructoseNAFLD
, argumentHealthPromotingFoods
, argumentHealthSeeker
, argumentHealthyChocolate
, argumentHealthyDairy
, argumentHealthyFattyFish
, argumentHealthyFibre
, argumentHealthyFood
, argumentHealthyPlantFoods
, argumentHealthySeedOils
, argumentHealthySoy
, argumentMalondialdehyde
, argumentOmega3Omega6Ratio
, argumentPlantBasedCVDReversal
, argumentPolyphenolReductio
, argumentSodiumCVD
, argumentTMAOCausality
, argumentUnhealthyCoconutOil
, argumentUnhealthyProcessedMeat
, argumentUnhealthyRedMeat
, argumentUnhealthySaturatedFat
, argumentAbortion
, argumentAgnosticism
, argumentAgriculturalPredation
, argumentAnimalRights
, argumentAntiRewilding
, argumentAntiVandalism
, argumentColonizingNature
, argumentCropDeaths
, argumentDairyCowRape
, argumentEfilismPatrolSquad
, argumentEthicalSlurs
, argumentFineTuning
, argumentImmortalityReductio
, argumentOddOrderPredators
, argumentOstroveganism
, argumentPollinationReductio
, argumentScratcherPioneers
, argumentTransPeople
, argumentVeganSocietyReductio
, argumentBoobyTrapPagers
, argumentEpidemiologyCausality
, argumentFlatEarthDebunk
, argumentTruncatedMeta
]
argumentListNumber : Int
argumentListNumber =
List.length argumentList

View file

@ -0,0 +1,112 @@
module Config.Pages.Debate.Arguments.List exposing (..)
import Config.Pages.Debate.Arguments.Records.Abortion exposing (argumentAbortion)
import Config.Pages.Debate.Arguments.Records.Agnosticism exposing (argumentAgnosticism)
import Config.Pages.Debate.Arguments.Records.AgriculturalPredation exposing (argumentAgriculturalPredation)
import Config.Pages.Debate.Arguments.Records.AnabolicKeto exposing (argumentAnabolicKeto)
import Config.Pages.Debate.Arguments.Records.AnimalRights exposing (argumentAnimalRights)
import Config.Pages.Debate.Arguments.Records.AntagonisticPleiotropy exposing (argumentAntagonisticPleiotropy)
import Config.Pages.Debate.Arguments.Records.AntiRewilding exposing (argumentAntiRewilding)
import Config.Pages.Debate.Arguments.Records.AntiVandalism exposing (argumentAntiVandalism)
import Config.Pages.Debate.Arguments.Records.ApoBCVD exposing (argumentApoBCVD)
import Config.Pages.Debate.Arguments.Records.BoobyTrapPagers exposing (argumentBoobyTrapPagers)
import Config.Pages.Debate.Arguments.Records.CarbsObesity exposing (argumentCarbsObesity)
import Config.Pages.Debate.Arguments.Records.ColonizingNature exposing (argumentColonizingNature)
import Config.Pages.Debate.Arguments.Records.CropDeaths exposing (argumentCropDeaths)
import Config.Pages.Debate.Arguments.Records.DairyCowRape exposing (argumentDairyCowRape)
import Config.Pages.Debate.Arguments.Records.DietaryCholesterol exposing (argumentDietaryCholesterol)
import Config.Pages.Debate.Arguments.Records.EfilismPatrolSquad exposing (argumentEfilismPatrolSquad)
import Config.Pages.Debate.Arguments.Records.EpidemiologyCausality exposing (argumentEpidemiologyCausality)
import Config.Pages.Debate.Arguments.Records.EthicalSlurs exposing (argumentEthicalSlurs)
import Config.Pages.Debate.Arguments.Records.FineTuning exposing (argumentFineTuning)
import Config.Pages.Debate.Arguments.Records.FlatEarthDebunk exposing (argumentFlatEarthDebunk)
import Config.Pages.Debate.Arguments.Records.FructoseNAFLD exposing (argumentFructoseNAFLD)
import Config.Pages.Debate.Arguments.Records.HealthPromotingFoods exposing (argumentHealthPromotingFoods)
import Config.Pages.Debate.Arguments.Records.HealthSeeker exposing (argumentHealthSeeker)
import Config.Pages.Debate.Arguments.Records.HealthyChocolate exposing (argumentHealthyChocolate)
import Config.Pages.Debate.Arguments.Records.HealthyDairy exposing (argumentHealthyDairy)
import Config.Pages.Debate.Arguments.Records.HealthyFattyFish exposing (argumentHealthyFattyFish)
import Config.Pages.Debate.Arguments.Records.HealthyFibre exposing (argumentHealthyFibre)
import Config.Pages.Debate.Arguments.Records.HealthyFood exposing (argumentHealthyFood)
import Config.Pages.Debate.Arguments.Records.HealthyPlantFoods exposing (argumentHealthyPlantFoods)
import Config.Pages.Debate.Arguments.Records.HealthySeedOils exposing (argumentHealthySeedOils)
import Config.Pages.Debate.Arguments.Records.HealthySoy exposing (argumentHealthySoy)
import Config.Pages.Debate.Arguments.Records.ImmortalityReductio exposing (argumentImmortalityReductio)
import Config.Pages.Debate.Arguments.Records.Malondialdehyde exposing (argumentMalondialdehyde)
import Config.Pages.Debate.Arguments.Records.OddOrderPredators exposing (argumentOddOrderPredators)
import Config.Pages.Debate.Arguments.Records.Omega3Omega6Ratio exposing (argumentOmega3Omega6Ratio)
import Config.Pages.Debate.Arguments.Records.Ostroveganism exposing (argumentOstroveganism)
import Config.Pages.Debate.Arguments.Records.PlantBasedCVDReversal exposing (argumentPlantBasedCVDReversal)
import Config.Pages.Debate.Arguments.Records.PollinationReductio exposing (argumentPollinationReductio)
import Config.Pages.Debate.Arguments.Records.PolyphenolReductio exposing (argumentPolyphenolReductio)
import Config.Pages.Debate.Arguments.Records.ScratcherPioneers exposing (argumentScratcherPioneers)
import Config.Pages.Debate.Arguments.Records.SodiumCVD exposing (argumentSodiumCVD)
import Config.Pages.Debate.Arguments.Records.TMAOCausality exposing (argumentTMAOCausality)
import Config.Pages.Debate.Arguments.Records.Template exposing (argument)
import Config.Pages.Debate.Arguments.Records.TransPeople exposing (argumentTransPeople)
import Config.Pages.Debate.Arguments.Records.TruncatedMeta exposing (argumentTruncatedMeta)
import Config.Pages.Debate.Arguments.Records.UnhealthyCoconutOil exposing (argumentUnhealthyCoconutOil)
import Config.Pages.Debate.Arguments.Records.UnhealthyProcessedMeat exposing (argumentUnhealthyProcessedMeat)
import Config.Pages.Debate.Arguments.Records.UnhealthyRedMeat exposing (argumentUnhealthyRedMeat)
import Config.Pages.Debate.Arguments.Records.UnhealthySaturatedFat exposing (argumentUnhealthySaturatedFat)
import Config.Pages.Debate.Arguments.Records.VeganSocietyReductio exposing (argumentVeganSocietyReductio)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentList : List Argument
argumentList =
[ argumentApoBCVD
, argumentAnabolicKeto
, argumentAntagonisticPleiotropy
, argumentCarbsObesity
, argumentDietaryCholesterol
, argumentFructoseNAFLD
, argumentHealthPromotingFoods
, argumentHealthSeeker
, argumentHealthyChocolate
, argumentHealthyDairy
, argumentHealthyFattyFish
, argumentHealthyFibre
, argumentHealthyFood
, argumentHealthyPlantFoods
, argumentHealthySeedOils
, argumentHealthySoy
, argumentMalondialdehyde
, argumentOmega3Omega6Ratio
, argumentPlantBasedCVDReversal
, argumentPolyphenolReductio
, argumentSodiumCVD
, argumentTMAOCausality
, argumentUnhealthyCoconutOil
, argumentUnhealthyProcessedMeat
, argumentUnhealthyRedMeat
, argumentUnhealthySaturatedFat
, argumentAbortion
, argumentAgnosticism
, argumentAgriculturalPredation
, argumentAnimalRights
, argumentAntiRewilding
, argumentAntiVandalism
, argumentColonizingNature
, argumentCropDeaths
, argumentDairyCowRape
, argumentEfilismPatrolSquad
, argumentEthicalSlurs
, argumentFineTuning
, argumentImmortalityReductio
, argumentOddOrderPredators
, argumentOstroveganism
, argumentPollinationReductio
, argumentScratcherPioneers
, argumentTransPeople
, argumentVeganSocietyReductio
, argumentBoobyTrapPagers
, argumentEpidemiologyCausality
, argumentFlatEarthDebunk
, argumentTruncatedMeta
]
argumentListNumber : Int
argumentListNumber =
List.length argumentList

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.Abortion exposing (..)
module Config.Pages.Debate.Arguments.Records.Abortion exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.Agnosticism exposing (..)
module Config.Pages.Debate.Arguments.Records.Agnosticism exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.AgriculturalPredation exposing (..)
module Config.Pages.Debate.Arguments.Records.AgriculturalPredation exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.AnabolicKeto exposing (..)
module Config.Pages.Debate.Arguments.Records.AnabolicKeto exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.AnimalRights exposing (..)
module Config.Pages.Debate.Arguments.Records.AnimalRights exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.AntagonisticPleiotropy exposing (..)
module Config.Pages.Debate.Arguments.Records.AntagonisticPleiotropy exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.AntiRewilding exposing (..)
module Config.Pages.Debate.Arguments.Records.AntiRewilding exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.AntiVandalism exposing (..)
module Config.Pages.Debate.Arguments.Records.AntiVandalism exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.ApoBCVD exposing (..)
module Config.Pages.Debate.Arguments.Records.ApoBCVD exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.BoobyTrapPagers exposing (..)
module Config.Pages.Debate.Arguments.Records.BoobyTrapPagers exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.CarbsObesity exposing (..)
module Config.Pages.Debate.Arguments.Records.CarbsObesity exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.ColonizingNature exposing (..)
module Config.Pages.Debate.Arguments.Records.ColonizingNature exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.CropDeaths exposing (..)
module Config.Pages.Debate.Arguments.Records.CropDeaths exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.DairyCowRape exposing (..)
module Config.Pages.Debate.Arguments.Records.DairyCowRape exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.DietaryCholesterol exposing (..)
module Config.Pages.Debate.Arguments.Records.DietaryCholesterol exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.EfilismPatrolSquad exposing (..)
module Config.Pages.Debate.Arguments.Records.EfilismPatrolSquad exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.EpidemiologyCausality exposing (..)
module Config.Pages.Debate.Arguments.Records.EpidemiologyCausality exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.EthicalSlurs exposing (..)
module Config.Pages.Debate.Arguments.Records.EthicalSlurs exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.FineTuning exposing (..)
module Config.Pages.Debate.Arguments.Records.FineTuning exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.FlatEarthDebunk exposing (..)
module Config.Pages.Debate.Arguments.Records.FlatEarthDebunk exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.FructoseNAFLD exposing (..)
module Config.Pages.Debate.Arguments.Records.FructoseNAFLD exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthPromotingFoods exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthPromotingFoods exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthSeeker exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthSeeker exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyChocolate exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyChocolate exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyDairy exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyDairy exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyFattyFish exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyFattyFish exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyFibre exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyFibre exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyFood exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyFood exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthyPlantFoods exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyPlantFoods exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthySeedOils exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthySeedOils exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.HealthySoy exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthySoy exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.ImmortalityReductio exposing (..)
module Config.Pages.Debate.Arguments.Records.ImmortalityReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.Malondialdehyde exposing (..)
module Config.Pages.Debate.Arguments.Records.Malondialdehyde exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.OddOrderPredators exposing (..)
module Config.Pages.Debate.Arguments.Records.OddOrderPredators exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.Omega3Omega6Ratio exposing (..)
module Config.Pages.Debate.Arguments.Records.Omega3Omega6Ratio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.Ostroveganism exposing (..)
module Config.Pages.Debate.Arguments.Records.Ostroveganism exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.PlantBasedCVDReversal exposing (..)
module Config.Pages.Debate.Arguments.Records.PlantBasedCVDReversal exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.PollinationReductio exposing (..)
module Config.Pages.Debate.Arguments.Records.PollinationReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.PolyphenolReductio exposing (..)
module Config.Pages.Debate.Arguments.Records.PolyphenolReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.ScratcherPioneers exposing (..)
module Config.Pages.Debate.Arguments.Records.ScratcherPioneers exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.SodiumCVD exposing (..)
module Config.Pages.Debate.Arguments.Records.SodiumCVD exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.TMAOCausality exposing (..)
module Config.Pages.Debate.Arguments.Records.TMAOCausality exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.Template exposing (..)
module Config.Pages.Debate.Arguments.Records.Template exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.TransPeople exposing (..)
module Config.Pages.Debate.Arguments.Records.TransPeople exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.TruncatedMeta exposing (..)
module Config.Pages.Debate.Arguments.Records.TruncatedMeta exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.UnhealthyCoconutOil exposing (..)
module Config.Pages.Debate.Arguments.Records.UnhealthyCoconutOil exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.UnhealthyProcessedMeat exposing (..)
module Config.Pages.Debate.Arguments.Records.UnhealthyProcessedMeat exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.UnhealthyRedMeat exposing (..)
module Config.Pages.Debate.Arguments.Records.UnhealthyRedMeat exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.UnhealthySaturatedFat exposing (..)
module Config.Pages.Debate.Arguments.Records.UnhealthySaturatedFat exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.Inferences.VeganSocietyReductio exposing (..)
module Config.Pages.Debate.Arguments.Records.VeganSocietyReductio exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)

View file

@ -2,7 +2,6 @@ module Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (..)
type alias Argument =
{ argumentTitle : String
, propositionTitle : String

View file

@ -1,611 +0,0 @@
module Config.Pages.Debate.Cuckery.Helpers exposing (..)
import Config.Helpers.CardFormat exposing (..)
import Config.Helpers.Converters exposing (formatSocial)
import Config.Helpers.Format
exposing
( paragraphFontSize
, paragraphSpacing
)
import Config.Pages.Debate.Cuckery.CuckList.AdamSinger exposing (cuckAdamSinger)
import Config.Pages.Debate.Cuckery.CuckList.AmberOHearn exposing (cuckAmberOHearn)
import Config.Pages.Debate.Cuckery.CuckList.AnnChilders exposing (cuckAnnChilders)
import Config.Pages.Debate.Cuckery.CuckList.AnthonyGustin exposing (cuckAnthonyGustin)
import Config.Pages.Debate.Cuckery.CuckList.AshwaniGarg exposing (cuckAshwaniGarg)
import Config.Pages.Debate.Cuckery.CuckList.AustinHerbert exposing (cuckAustinHerbert)
import Config.Pages.Debate.Cuckery.CuckList.BartKay exposing (cuckBartKay)
import Config.Pages.Debate.Cuckery.CuckList.BenBikman exposing (cuckBenBikman)
import Config.Pages.Debate.Cuckery.CuckList.BennyMalone exposing (cuckBennyMalone)
import Config.Pages.Debate.Cuckery.CuckList.BradCampbell exposing (cuckBradCampbell)
import Config.Pages.Debate.Cuckery.CuckList.BradCohn exposing (cuckBradCohn)
import Config.Pages.Debate.Cuckery.CuckList.BradMarshall exposing (cuckBradMarshall)
import Config.Pages.Debate.Cuckery.CuckList.BretWeinstein exposing (cuckBretWeinstein)
import Config.Pages.Debate.Cuckery.CuckList.BrianKerley exposing (cuckBrianKerley)
import Config.Pages.Debate.Cuckery.CuckList.CarnivoreAurelius exposing (cuckCarnivoreAurelius)
import Config.Pages.Debate.Cuckery.CuckList.CateShanahan exposing (cuckCateShanahan)
import Config.Pages.Debate.Cuckery.CuckList.ChrisBoettcher exposing (cuckChrisBoettcher)
import Config.Pages.Debate.Cuckery.CuckList.ClaraAboel exposing (cuckClaraAboel)
import Config.Pages.Debate.Cuckery.CuckList.CliffHarvey exposing (cuckCliffHarvey)
import Config.Pages.Debate.Cuckery.CuckList.DaveFeldman exposing (cuckDaveFeldman)
import Config.Pages.Debate.Cuckery.CuckList.DavidDiamond exposing (cuckDavidDiamond)
import Config.Pages.Debate.Cuckery.CuckList.DavidGornoski exposing (cuckDavidGornoski)
import Config.Pages.Debate.Cuckery.CuckList.DianaRodgers exposing (cuckDianaRodgers)
import Config.Pages.Debate.Cuckery.CuckList.EdwardGoeke exposing (cuckEdwardGoeke)
import Config.Pages.Debate.Cuckery.CuckList.ElieJarrouge exposing (cuckElieJarrouge)
import Config.Pages.Debate.Cuckery.CuckList.GaryBrecka exposing (cuckGaryBrecka)
import Config.Pages.Debate.Cuckery.CuckList.GaryFettke exposing (cuckGaryFettke)
import Config.Pages.Debate.Cuckery.CuckList.GaryTaubes exposing (cuckGaryTaubes)
import Config.Pages.Debate.Cuckery.CuckList.GeorgeMartin exposing (cuckGeorgeMartin)
import Config.Pages.Debate.Cuckery.CuckList.GuyAustin exposing (cuckGuyAustin)
import Config.Pages.Debate.Cuckery.CuckList.IvorCummins exposing (cuckIvorCummins)
import Config.Pages.Debate.Cuckery.CuckList.JakeMey exposing (cuckJakeMey)
import Config.Pages.Debate.Cuckery.CuckList.JamesDiNicolantonio exposing (cuckJamesDiNicolantonio)
import Config.Pages.Debate.Cuckery.CuckList.JosephEverett exposing (cuckJosephEverett)
import Config.Pages.Debate.Cuckery.CuckList.JustinMares exposing (cuckJustinMares)
import Config.Pages.Debate.Cuckery.CuckList.KaitMalthaner exposing (cuckKaitMalthaner)
import Config.Pages.Debate.Cuckery.CuckList.KemMinnick exposing (cuckKemMinnick)
import Config.Pages.Debate.Cuckery.CuckList.KenBerry exposing (cuckKenBerry)
import Config.Pages.Debate.Cuckery.CuckList.KevinStock exposing (cuckKevinStock)
import Config.Pages.Debate.Cuckery.CuckList.KyleMamounis exposing (cuckKyleMamounis)
import Config.Pages.Debate.Cuckery.CuckList.MarkSisson exposing (cuckMarkSisson)
import Config.Pages.Debate.Cuckery.CuckList.MartyKendall exposing (cuckMartyKendall)
import Config.Pages.Debate.Cuckery.CuckList.MaxLugavere exposing (cuckMaxLugavere)
import Config.Pages.Debate.Cuckery.CuckList.MichaelKummer exposing (cuckMichaelKummer)
import Config.Pages.Debate.Cuckery.CuckList.MichaelManderville exposing (cuckMichaelManderville)
import Config.Pages.Debate.Cuckery.CuckList.MikeMutzel exposing (cuckMikeMutzel)
import Config.Pages.Debate.Cuckery.CuckList.MikeSweeney exposing (cuckMikeSweeney)
import Config.Pages.Debate.Cuckery.CuckList.NickEggleton exposing (cuckNickEggleton)
import Config.Pages.Debate.Cuckery.CuckList.NinaTeicholz exposing (cuckNinaTeicholz)
import Config.Pages.Debate.Cuckery.CuckList.NorstrongChris exposing (cuckNorstrongChris)
import Config.Pages.Debate.Cuckery.CuckList.PaulMason exposing (cuckPaulMason)
import Config.Pages.Debate.Cuckery.CuckList.PaulSaladino exposing (cuckPaulSaladino)
import Config.Pages.Debate.Cuckery.CuckList.PhilipOvadia exposing (cuckPhilipOvadia)
import Config.Pages.Debate.Cuckery.CuckList.PhilippeStephenson exposing (cuckPhilippeStephenson)
import Config.Pages.Debate.Cuckery.CuckList.RalphNapolitano exposing (cuckRalphNapolitano)
import Config.Pages.Debate.Cuckery.CuckList.RaphaelSirtoli exposing (cuckRaphaelSirtoli)
import Config.Pages.Debate.Cuckery.CuckList.RobMeijer exposing (cuckRobMeijer)
import Config.Pages.Debate.Cuckery.CuckList.RobbWolf exposing (cuckRobbWolf)
import Config.Pages.Debate.Cuckery.CuckList.SebastianRamirez exposing (cuckSebastianRamirez)
import Config.Pages.Debate.Cuckery.CuckList.ShawnBaker exposing (cuckShawnBaker)
import Config.Pages.Debate.Cuckery.CuckList.SimonGoddek exposing (cuckSimonGoddek)
import Config.Pages.Debate.Cuckery.CuckList.TravisStatham exposing (cuckTravisStatham)
import Config.Pages.Debate.Cuckery.CuckList.TristanHaggard exposing (cuckTristanHaggard)
import Config.Pages.Debate.Cuckery.CuckList.TroKalayjian exposing (cuckTroKalayjian)
import Config.Pages.Debate.Cuckery.CuckList.TuckerGoodrich exposing (cuckTuckerGoodrich)
import Config.Pages.Debate.Cuckery.CuckList.ZoeHarcombe exposing (cuckZoeHarcombe)
import Config.Pages.Debate.Cuckery.CuckList.ZsofiaClemens exposing (cuckZsofiaClemens)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleSlow
)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html.Attributes as H
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
]
]
]
]
]
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
]
]
]
]
]
]
cuckImage :
Cuck
->
{ src : String
, description : String
}
cuckImage cuck =
{ src = "/cucks/" ++ cuck.cuckImage ++ "/" ++ cuck.cuckImage ++ ".png"
, description = cuck.cuckName
}
cuckTitle : Cuck -> String
cuckTitle cuck =
cuck.cuckName
cuckSocial : Cuck -> String
cuckSocial cuck =
cuck.cuckSocial
dodgeMaker : Cuck -> Element msg
dodgeMaker cuck =
column
[ spacing 10
, width fill
]
<|
List.map2 (\x y -> makeDodge x y)
cuck.cuckDodges
(List.range 1 (List.length cuck.cuckDodges))
socialMaker : Cuck -> Element msg
socialMaker cuck =
paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
, F.size 18
, spacing 8
]
[ text "Social: "
, newTabLink
[ paragraphFontSize
, F.color colourTheme.textLightOrange
]
{ url = cuck.cuckSocial
, label =
el
[ transitionStyleSlow
, hoverFontDarkOrange
]
<|
text (formatSocial cuck.cuckSocial)
}
]
dodgeTitle : Cuck -> Element msg
dodgeTitle cuck =
paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
, F.size 18
]
[ text "Dodges: " ]
makeDodge : Dodge -> Int -> Element msg
makeDodge dodgeEntry index =
column
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, alignLeft
, spacing 8
, width fill
]
[ row
[ width fill
, paddingEach
{ top = 0
, right = 0
, bottom = 0
, left = 35
}
]
[ column
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.size 18
, alignTop
, alignRight
, F.alignRight
]
[ text (String.fromInt index ++ ". ") ]
, column
[ spacing 3
, width fill
]
[ circumstanceMaker dodgeEntry
, column
[ spacing 3
, width fill
]
[ propositionMaker dodgeEntry
, reductioMaker dodgeEntry
, attitudeMaker dodgeEntry
, reasonMaker dodgeEntry
]
]
]
]
dodgeWidth =
width <| px 93
formatProposition : String -> String
formatProposition proposition =
if proposition == "N/A" then
proposition
else
"\"" ++ proposition ++ "\""
dodgeCounter : Int -> Element msg
dodgeCounter index =
column
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.size 18
]
)
[ text (String.fromInt index ++ ". ") ]
circumstanceMaker : Dodge -> Element msg
circumstanceMaker dodgeEntry =
column
[ width fill
]
[ newTabLink
[ paragraphFontSize
, F.color colourTheme.textLightOrange
]
{ url = dodgeEntry.dodgeLink
, label =
row [ F.size 18 ]
[ column [ width fill ]
[ paragraph []
[ el
[ transitionStyleSlow
, hoverFontDarkOrange
]
<|
text
(case dodgeEntry.dodgeDescription of
NoReply ->
"Debate invitation extended with no response"
RanAway ->
"Engaged in written debate and ran away when cornered"
GhostedMe ->
"Debate invitation accepted with no follow-up"
OutrightNo ->
"Debate invitation declined"
InTooDeep ->
"Debate invitation accepted and subsequently retracted"
KillScreen ->
"All further debate invitations preemptively declined"
VagueGesture ->
"Chose to gesture vaguely instead of engaging"
)
, paragraph [ F.color colourTheme.textLightGrey ] [ text "." ]
, column
[ spacing 5
, F.size 12
]
(List.indexedMap
(\index2 link ->
newTabLink
[ paddingEach
{ top = 0
, right = 0
, bottom = 0
, left = 5
}
]
{ url = link
, label =
row [ moveUp 5 ]
[ el
[ transitionStyleSlow
, hoverFontDarkOrange
]
<|
text (String.fromInt (index2 + 1))
, text ", " |> el [ F.color colourTheme.textLightGrey ]
]
}
)
dodgeEntry.dodgeReceipts
)
]
]
]
}
]
propositionMaker : Dodge -> Element msg
propositionMaker dodgeEntry =
row
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
[ paragraph
[ alignTop
, dodgeWidth
]
[ text "Proposition:"
]
, paragraph
[ E.width fill
, alignLeft
]
[ paragraph [ F.regular ] [ text (formatProposition dodgeEntry.dodgeProposition) ]
]
]
attitudeMaker : Dodge -> Element msg
attitudeMaker dodgeEntry =
row
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ width fill ]
)
[ paragraph
[ alignTop
, dodgeWidth
]
[ text "Attitude:"
]
, paragraph
[ E.width fill
, alignLeft
]
[ case dodgeEntry.dodgeNicksDoxasticState of
Nothing ->
paragraph [ F.regular ] [ text "I don't form a doxastic state." ]
Just Belief ->
paragraph [ F.regular ]
[ text "I lean more toward "
, el [ F.bold ] (text "TRUE")
, text " than false."
]
Just Disbelief ->
paragraph [ F.regular ]
[ text "I lean more toward "
, text "FALSE" |> el [ F.bold ]
, text " than true."
]
Just Agnostic ->
el [ F.regular ] (text "I don't form beliefs about this proposition.")
]
]
reductioMaker : Dodge -> Element msg
reductioMaker dodgeEntry =
case dodgeEntry.dodgeFallacy of
Nothing ->
none
Just fallacy ->
case fallacy of
SpecificFallacy str ->
if String.isEmpty str then
none
else
displayFallacy str
AppealToNature ->
displayFallacy "Appeal to Nature"
AppealToTradition ->
displayFallacy "Appeal to Tradition"
AppealToIgnorance ->
displayFallacy "Appeal to Ignorance"
AppealFromIncredulity ->
displayFallacy "Appeal from Incredulity"
RedHerring ->
displayFallacy "Red Herring"
BeggingTheQuestion ->
displayFallacy "Begging the Question"
Strawman ->
displayFallacy "Strawman"
Equivocation ->
displayFallacy "Equivocation"
GeneticFallacy ->
displayFallacy "Genetic Fallacy"
MotteAndBailey ->
displayFallacy "Motte and Bailey"
reasonMaker : Dodge -> Element msg
reasonMaker dodgeEntry =
row
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
++ [ width fill ]
)
[ paragraph
[ alignTop
, dodgeWidth
]
[ text "Reason:"
]
, paragraph [ F.regular ]
[ text <|
case dodgeEntry.dodgeNicksDoxasticReason of
NoProp ->
"There is no proposition to evaluate."
VagueProp ->
"The proposition is too vague to evaluate."
SpecificPropReason str ->
str
]
]
displayFallacy : String -> Element msg
displayFallacy fallacyText =
row
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
]
[ paragraph
[ alignTop
, dodgeWidth
]
[ text "Fallacy:"
]
, paragraph
[ E.width fill
, alignLeft
]
[ paragraph [ F.regular ]
[ text fallacyText ]
]
]
cuckList =
[ cuckAdamSinger
, cuckAmberOHearn
, cuckAnnChilders
, cuckAnthonyGustin
, cuckAshwaniGarg
, cuckAustinHerbert
, cuckBartKay
, cuckBenBikman
, cuckBennyMalone
, cuckBradCampbell
, cuckBradCohn
, cuckBradMarshall
, cuckBretWeinstein
, cuckBrianKerley
, cuckCarnivoreAurelius
, cuckCateShanahan
, cuckChrisBoettcher
, cuckClaraAboel
, cuckCliffHarvey
, cuckDaveFeldman
, cuckDavidDiamond
, cuckDavidGornoski
, cuckDianaRodgers
, cuckEdwardGoeke
, cuckElieJarrouge
, cuckGaryBrecka
, cuckGaryFettke
, cuckGaryTaubes
, cuckGeorgeMartin
, cuckGuyAustin
, cuckIvorCummins
, cuckJakeMey
, cuckJamesDiNicolantonio
, cuckJosephEverett
, cuckJustinMares
, cuckKaitMalthaner
, cuckKemMinnick
, cuckKenBerry
, cuckKevinStock
, cuckKyleMamounis
, cuckMarkSisson
, cuckMartyKendall
, cuckMaxLugavere
, cuckMichaelKummer
, cuckMichaelManderville
, cuckMikeMutzel
, cuckMikeSweeney
, cuckNickEggleton
, cuckNinaTeicholz
, cuckNorstrongChris
, cuckPaulMason
, cuckPaulSaladino
, cuckPhilipOvadia
, cuckPhilippeStephenson
, cuckRalphNapolitano
, cuckRaphaelSirtoli
, cuckRobbWolf
, cuckRobMeijer
, cuckSebastianRamirez
, cuckShawnBaker
, cuckSimonGoddek
, cuckTravisStatham
, cuckTristanHaggard
, cuckTroKalayjian
, cuckTuckerGoodrich
, cuckZoeHarcombe
, cuckZsofiaClemens
]
cuckListNumber : Int
cuckListNumber =
List.length cuckList

View file

@ -0,0 +1,147 @@
module Config.Pages.Debate.Cuckery.List exposing (..)
import Config.Pages.Debate.Cuckery.Records.AdamSinger exposing (cuckAdamSinger)
import Config.Pages.Debate.Cuckery.Records.AmberOHearn exposing (cuckAmberOHearn)
import Config.Pages.Debate.Cuckery.Records.AnnChilders exposing (cuckAnnChilders)
import Config.Pages.Debate.Cuckery.Records.AnthonyGustin exposing (cuckAnthonyGustin)
import Config.Pages.Debate.Cuckery.Records.AshwaniGarg exposing (cuckAshwaniGarg)
import Config.Pages.Debate.Cuckery.Records.AustinHerbert exposing (cuckAustinHerbert)
import Config.Pages.Debate.Cuckery.Records.BartKay exposing (cuckBartKay)
import Config.Pages.Debate.Cuckery.Records.BenBikman exposing (cuckBenBikman)
import Config.Pages.Debate.Cuckery.Records.BennyMalone exposing (cuckBennyMalone)
import Config.Pages.Debate.Cuckery.Records.BradCampbell exposing (cuckBradCampbell)
import Config.Pages.Debate.Cuckery.Records.BradCohn exposing (cuckBradCohn)
import Config.Pages.Debate.Cuckery.Records.BradMarshall exposing (cuckBradMarshall)
import Config.Pages.Debate.Cuckery.Records.BretWeinstein exposing (cuckBretWeinstein)
import Config.Pages.Debate.Cuckery.Records.BrianKerley exposing (cuckBrianKerley)
import Config.Pages.Debate.Cuckery.Records.CarnivoreAurelius exposing (cuckCarnivoreAurelius)
import Config.Pages.Debate.Cuckery.Records.CateShanahan exposing (cuckCateShanahan)
import Config.Pages.Debate.Cuckery.Records.ChrisBoettcher exposing (cuckChrisBoettcher)
import Config.Pages.Debate.Cuckery.Records.ClaraAboel exposing (cuckClaraAboel)
import Config.Pages.Debate.Cuckery.Records.CliffHarvey exposing (cuckCliffHarvey)
import Config.Pages.Debate.Cuckery.Records.DaveFeldman exposing (cuckDaveFeldman)
import Config.Pages.Debate.Cuckery.Records.DavidDiamond exposing (cuckDavidDiamond)
import Config.Pages.Debate.Cuckery.Records.DavidGornoski exposing (cuckDavidGornoski)
import Config.Pages.Debate.Cuckery.Records.DianaRodgers exposing (cuckDianaRodgers)
import Config.Pages.Debate.Cuckery.Records.EdwardGoeke exposing (cuckEdwardGoeke)
import Config.Pages.Debate.Cuckery.Records.ElieJarrouge exposing (cuckElieJarrouge)
import Config.Pages.Debate.Cuckery.Records.GaryBrecka exposing (cuckGaryBrecka)
import Config.Pages.Debate.Cuckery.Records.GaryFettke exposing (cuckGaryFettke)
import Config.Pages.Debate.Cuckery.Records.GaryTaubes exposing (cuckGaryTaubes)
import Config.Pages.Debate.Cuckery.Records.GeorgeMartin exposing (cuckGeorgeMartin)
import Config.Pages.Debate.Cuckery.Records.GuyAustin exposing (cuckGuyAustin)
import Config.Pages.Debate.Cuckery.Records.IvorCummins exposing (cuckIvorCummins)
import Config.Pages.Debate.Cuckery.Records.JakeMey exposing (cuckJakeMey)
import Config.Pages.Debate.Cuckery.Records.JamesDiNicolantonio exposing (cuckJamesDiNicolantonio)
import Config.Pages.Debate.Cuckery.Records.JosephEverett exposing (cuckJosephEverett)
import Config.Pages.Debate.Cuckery.Records.JustinMares exposing (cuckJustinMares)
import Config.Pages.Debate.Cuckery.Records.KaitMalthaner exposing (cuckKaitMalthaner)
import Config.Pages.Debate.Cuckery.Records.KemMinnick exposing (cuckKemMinnick)
import Config.Pages.Debate.Cuckery.Records.KenBerry exposing (cuckKenBerry)
import Config.Pages.Debate.Cuckery.Records.KevinStock exposing (cuckKevinStock)
import Config.Pages.Debate.Cuckery.Records.KyleMamounis exposing (cuckKyleMamounis)
import Config.Pages.Debate.Cuckery.Records.MarkSisson exposing (cuckMarkSisson)
import Config.Pages.Debate.Cuckery.Records.MartyKendall exposing (cuckMartyKendall)
import Config.Pages.Debate.Cuckery.Records.MaxLugavere exposing (cuckMaxLugavere)
import Config.Pages.Debate.Cuckery.Records.MichaelKummer exposing (cuckMichaelKummer)
import Config.Pages.Debate.Cuckery.Records.MichaelManderville exposing (cuckMichaelManderville)
import Config.Pages.Debate.Cuckery.Records.MikeMutzel exposing (cuckMikeMutzel)
import Config.Pages.Debate.Cuckery.Records.MikeSweeney exposing (cuckMikeSweeney)
import Config.Pages.Debate.Cuckery.Records.NickEggleton exposing (cuckNickEggleton)
import Config.Pages.Debate.Cuckery.Records.NinaTeicholz exposing (cuckNinaTeicholz)
import Config.Pages.Debate.Cuckery.Records.NorstrongChris exposing (cuckNorstrongChris)
import Config.Pages.Debate.Cuckery.Records.PaulMason exposing (cuckPaulMason)
import Config.Pages.Debate.Cuckery.Records.PaulSaladino exposing (cuckPaulSaladino)
import Config.Pages.Debate.Cuckery.Records.PhilipOvadia exposing (cuckPhilipOvadia)
import Config.Pages.Debate.Cuckery.Records.PhilippeStephenson exposing (cuckPhilippeStephenson)
import Config.Pages.Debate.Cuckery.Records.RalphNapolitano exposing (cuckRalphNapolitano)
import Config.Pages.Debate.Cuckery.Records.RaphaelSirtoli exposing (cuckRaphaelSirtoli)
import Config.Pages.Debate.Cuckery.Records.RobMeijer exposing (cuckRobMeijer)
import Config.Pages.Debate.Cuckery.Records.RobbWolf exposing (cuckRobbWolf)
import Config.Pages.Debate.Cuckery.Records.SebastianRamirez exposing (cuckSebastianRamirez)
import Config.Pages.Debate.Cuckery.Records.ShawnBaker exposing (cuckShawnBaker)
import Config.Pages.Debate.Cuckery.Records.SimonGoddek exposing (cuckSimonGoddek)
import Config.Pages.Debate.Cuckery.Records.TravisStatham exposing (cuckTravisStatham)
import Config.Pages.Debate.Cuckery.Records.TristanHaggard exposing (cuckTristanHaggard)
import Config.Pages.Debate.Cuckery.Records.TroKalayjian exposing (cuckTroKalayjian)
import Config.Pages.Debate.Cuckery.Records.TuckerGoodrich exposing (cuckTuckerGoodrich)
import Config.Pages.Debate.Cuckery.Records.ZoeHarcombe exposing (cuckZoeHarcombe)
import Config.Pages.Debate.Cuckery.Records.ZsofiaClemens exposing (cuckZsofiaClemens)
import Config.Pages.Debate.Cuckery.Types exposing (..)
cuckList : List Cuck
cuckList =
[ cuckAdamSinger
, cuckAmberOHearn
, cuckAnnChilders
, cuckAnthonyGustin
, cuckAshwaniGarg
, cuckAustinHerbert
, cuckBartKay
, cuckBenBikman
, cuckBennyMalone
, cuckBradCampbell
, cuckBradCohn
, cuckBradMarshall
, cuckBretWeinstein
, cuckBrianKerley
, cuckCarnivoreAurelius
, cuckCateShanahan
, cuckChrisBoettcher
, cuckClaraAboel
, cuckCliffHarvey
, cuckDaveFeldman
, cuckDavidDiamond
, cuckDavidGornoski
, cuckDianaRodgers
, cuckEdwardGoeke
, cuckElieJarrouge
, cuckGaryBrecka
, cuckGaryFettke
, cuckGaryTaubes
, cuckGeorgeMartin
, cuckGuyAustin
, cuckIvorCummins
, cuckJakeMey
, cuckJamesDiNicolantonio
, cuckJosephEverett
, cuckJustinMares
, cuckKaitMalthaner
, cuckKemMinnick
, cuckKenBerry
, cuckKevinStock
, cuckKyleMamounis
, cuckMarkSisson
, cuckMartyKendall
, cuckMaxLugavere
, cuckMichaelKummer
, cuckMichaelManderville
, cuckMikeMutzel
, cuckMikeSweeney
, cuckNickEggleton
, cuckNinaTeicholz
, cuckNorstrongChris
, cuckPaulMason
, cuckPaulSaladino
, cuckPhilipOvadia
, cuckPhilippeStephenson
, cuckRalphNapolitano
, cuckRaphaelSirtoli
, cuckRobbWolf
, cuckRobMeijer
, cuckSebastianRamirez
, cuckShawnBaker
, cuckSimonGoddek
, cuckTravisStatham
, cuckTristanHaggard
, cuckTroKalayjian
, cuckTuckerGoodrich
, cuckZoeHarcombe
, cuckZsofiaClemens
]
cuckListNumber : Int
cuckListNumber =
List.length cuckList

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.AdamSinger exposing (..)
module Config.Pages.Debate.Cuckery.Records.AdamSinger exposing (..)
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Debate.Cuckery.Types exposing (..)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.AmberOHearn exposing (..)
module Config.Pages.Debate.Cuckery.Records.AmberOHearn exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.AnnChilders exposing (..)
module Config.Pages.Debate.Cuckery.Records.AnnChilders exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.AnthonyGustin exposing (..)
module Config.Pages.Debate.Cuckery.Records.AnthonyGustin exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.AshwaniGarg exposing (..)
module Config.Pages.Debate.Cuckery.Records.AshwaniGarg exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.AustinHerbert exposing (..)
module Config.Pages.Debate.Cuckery.Records.AustinHerbert exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.BartKay exposing (..)
module Config.Pages.Debate.Cuckery.Records.BartKay exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.BenBikman exposing (..)
module Config.Pages.Debate.Cuckery.Records.BenBikman exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.BennyMalone exposing (..)
module Config.Pages.Debate.Cuckery.Records.BennyMalone exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.BradCampbell exposing (..)
module Config.Pages.Debate.Cuckery.Records.BradCampbell exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.BradCohn exposing (..)
module Config.Pages.Debate.Cuckery.Records.BradCohn exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.BradMarshall exposing (..)
module Config.Pages.Debate.Cuckery.Records.BradMarshall exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.BretWeinstein exposing (..)
module Config.Pages.Debate.Cuckery.Records.BretWeinstein exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.BrianKerley exposing (..)
module Config.Pages.Debate.Cuckery.Records.BrianKerley exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.CarnivoreAurelius exposing (..)
module Config.Pages.Debate.Cuckery.Records.CarnivoreAurelius exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.CateShanahan exposing (..)
module Config.Pages.Debate.Cuckery.Records.CateShanahan exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.ChrisBoettcher exposing (..)
module Config.Pages.Debate.Cuckery.Records.ChrisBoettcher exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.ClaraAboel exposing (..)
module Config.Pages.Debate.Cuckery.Records.ClaraAboel exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.CliffHarvey exposing (..)
module Config.Pages.Debate.Cuckery.Records.CliffHarvey exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.DaveFeldman exposing (..)
module Config.Pages.Debate.Cuckery.Records.DaveFeldman exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.DavidDiamond exposing (..)
module Config.Pages.Debate.Cuckery.Records.DavidDiamond exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.DavidGornoski exposing (..)
module Config.Pages.Debate.Cuckery.Records.DavidGornoski exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.DianaRodgers exposing (..)
module Config.Pages.Debate.Cuckery.Records.DianaRodgers exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.EdwardGoeke exposing (..)
module Config.Pages.Debate.Cuckery.Records.EdwardGoeke exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.ElieJarrouge exposing (..)
module Config.Pages.Debate.Cuckery.Records.ElieJarrouge exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.GaryBrecka exposing (..)
module Config.Pages.Debate.Cuckery.Records.GaryBrecka exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.GaryFettke exposing (..)
module Config.Pages.Debate.Cuckery.Records.GaryFettke exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.GaryTaubes exposing (..)
module Config.Pages.Debate.Cuckery.Records.GaryTaubes exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.GeorgeMartin exposing (..)
module Config.Pages.Debate.Cuckery.Records.GeorgeMartin exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.GuyAustin exposing (..)
module Config.Pages.Debate.Cuckery.Records.GuyAustin exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.IvorCummins exposing (..)
module Config.Pages.Debate.Cuckery.Records.IvorCummins exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.JakeMey exposing (..)
module Config.Pages.Debate.Cuckery.Records.JakeMey exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.JamesDiNicolantonio exposing (..)
module Config.Pages.Debate.Cuckery.Records.JamesDiNicolantonio exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.JosephEverett exposing (..)
module Config.Pages.Debate.Cuckery.Records.JosephEverett exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.JustinMares exposing (..)
module Config.Pages.Debate.Cuckery.Records.JustinMares exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.CuckList.KaitMalthaner exposing (..)
module Config.Pages.Debate.Cuckery.Records.KaitMalthaner exposing (..)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Helpers.Converters exposing (formatName)

Some files were not shown because too many files have changed in this diff Show more