feat: v1 finally done?

This commit is contained in:
Nick 2025-01-02 02:33:57 -06:00
parent 9f8d9c3146
commit 07b9330264
245 changed files with 3140 additions and 2197 deletions

0
LICENSE Normal file → Executable file
View file

View file

@ -1,6 +1,6 @@
module Config.Data.Hashtags.Helpers exposing (..)
module Config.Data.Hashtags.Helpers exposing (hashtagList)
import Config.Data.Hashtags.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
hashtagList : Hashtags -> String

View file

@ -1,4 +1,4 @@
module Config.Data.Hashtags.Types exposing (..)
module Config.Data.Hashtags.Types exposing (Hashtags(..))
type Hashtags

View file

@ -1,4 +1,4 @@
module Config.Data.Identity exposing (..)
module Config.Data.Identity exposing (pageNames)
type alias PageInput =

View file

@ -1,4 +1,8 @@
module Config.Helpers.ImageFolders exposing (..)
module Config.Data.ImageFolders exposing
( ImageFolder(..)
, getImageFolderString
, imagePathMaker
)
imagePathMaker : ImageFolder -> String -> String

View file

@ -1,9 +1,12 @@
module Config.Data.Language exposing (..)
module Config.Data.Language exposing
( Language(..)
, MultilingualTextElement
)
{-| Types for facilitating multilingual functionality.
-}
import Element
import Element exposing (Element)
{-| A list of all currently supported languages. DeepL <https://www.deepl.com/translator> seems to
@ -83,33 +86,33 @@ type Language
{-| We need a type that returns a different element based on which language is selected.
-}
type alias MultilingualTextElement msg =
{ bulgarian : Element.Element msg
, chinese : Element.Element msg
, czech : Element.Element msg
, danish : Element.Element msg
, dutch : Element.Element msg
, english : Element.Element msg
, estonian : Element.Element msg
, finnish : Element.Element msg
, french : Element.Element msg
, german : Element.Element msg
, greek : Element.Element msg
, hungarian : Element.Element msg
, indonesian : Element.Element msg
, italian : Element.Element msg
, japanese : Element.Element msg
, korean : Element.Element msg
, latvian : Element.Element msg
, lithuanian : Element.Element msg
, norwegian : Element.Element msg
, polish : Element.Element msg
, portuguese : Element.Element msg
, romanian : Element.Element msg
, russian : Element.Element msg
, slovak : Element.Element msg
, slovenian : Element.Element msg
, spanish : Element.Element msg
, swedish : Element.Element msg
, turkish : Element.Element msg
, ukranian : Element.Element msg
{ bulgarian : Element msg
, chinese : Element msg
, czech : Element msg
, danish : Element msg
, dutch : Element msg
, english : Element msg
, estonian : Element msg
, finnish : Element msg
, french : Element msg
, german : Element msg
, greek : Element msg
, hungarian : Element msg
, indonesian : Element msg
, italian : Element msg
, japanese : Element msg
, korean : Element msg
, latvian : Element msg
, lithuanian : Element msg
, norwegian : Element msg
, polish : Element msg
, portuguese : Element msg
, romanian : Element msg
, russian : Element msg
, slovak : Element msg
, slovenian : Element msg
, spanish : Element msg
, swedish : Element msg
, turkish : Element msg
, ukranian : Element msg
}

View file

@ -1,49 +1,36 @@
module Config.Helpers.Articles.Article exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Markdown
exposing
( articleImage
, renderDeviceMarkdown
, renderDeviceMarkdownNoToc
)
import Config.Helpers.Articles.Types exposing (References)
import Config.Helpers.Cards.Inner.Helpers exposing (detailFormat)
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Outer.Types as C
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Helpers exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Markdown exposing (..)
import Config.Helpers.Response
exposing
( pageList
, topLevelContainer
)
import Config.Helpers.StrengthBar
exposing
( barMaker
, barPadding
)
import Config.Helpers.ToolTip exposing (..)
import Config.Helpers.Cards.Inner.Text exposing (detailFormat)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Config.Pages.Contact.Types exposing (..)
import Config.Pages.Interviews.Types exposing (..)
import Config.Pages.Products.Types exposing (..)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Colour.Helpers
exposing
( ThemeColor(..)
, getThemeColor
)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleSlow
)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Background as B exposing (color)
import Element.Border as D exposing (width)
import Element.Font as F
import Html
import Html.Attributes as H exposing (style)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
import Shared exposing (..)
import View exposing (View)
exposing
( alignLeft
, bold
, color
, regular
)
contentList : BlogArticle -> List (Element msg) -> List (Element msg)
@ -72,7 +59,7 @@ contentList article extraElements =
articleReferences : BlogArticle -> Element msg
articleReferences article =
column [ width fill, F.size 15, spacing 10 ] <|
column [ E.width fill, F.size 15, spacing 10 ] <|
List.map2 (\x y -> makeReference x y)
article.articleReferences
(List.range 1 (List.length article.articleReferences))
@ -92,7 +79,7 @@ makeReference references index =
paragraph []
[ newTabLink
[ F.bold
, F.color colourTheme.textLightOrange
, F.color (getThemeColor TextLightOrange)
, hoverFontDarkOrange
, transitionStyleFast
]

View file

@ -1,33 +1,41 @@
module Config.Helpers.Markdown exposing (..)
module Config.Helpers.Articles.Markdown exposing (..)
import Browser
-- import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Helpers.Cards.Inner.Text exposing (divider)
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Helpers.Format
import Config.Style.Colour.Helpers exposing (ThemeColor(..), getThemeColor)
import Config.Style.Fonts
exposing
( headerFontSizeBig
( defaultFontSize
, headerFontSizeBig
, headerFontSizeMedium
, headerFontSizeSmall
, paragraphFontSize
)
import Config.Helpers.Response exposing (pageList)
import Config.Helpers.ServiceFormat exposing (divider)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
, hoverFontLightOrange
, transitionStyleFast
, transitionStyleMedium
)
import Element as E exposing (..)
import Element.Background as B
import Element.Background as B exposing (color)
import Element.Border as D
import Element.Font as F
exposing
( color
, rounded
, widthEach
)
import Element.Font as F exposing (color)
import Element.Input as Input
import Element.Region as Region
import Html exposing (Attribute, Html)
import Html.Attributes
import Markdown.Block as Block exposing (Block, Inline, ListItem(..), Task(..))
import Markdown.Block as Block
exposing
( Block
, Inline
, ListItem(..)
, Task(..)
)
import Markdown.Html
import Markdown.Parser
import Markdown.Renderer
@ -144,12 +152,12 @@ tocView toc =
, headerFontSizeBig
, F.center
, width fill
, F.color colourTheme.textLightOrange
, F.color (getThemeColor TextLightOrange)
]
[ text "TABLE OF CONTENTS" ]
, column
[ E.spacing 3
, paragraphFontSize
, defaultFontSize
, E.width fill
]
(toc
@ -168,7 +176,7 @@ tocView toc =
, el
[ F.alignLeft
, E.width fill
, headerFontSizeSmall
, defaultFontSize
, alignTop
]
<|
@ -177,7 +185,7 @@ tocView toc =
{ url = "#" ++ headingBlock.anchorId
, label =
el
[ F.color colourTheme.textLightOrange
[ F.color (getThemeColor TextLightOrange)
, transitionStyleFast
, hoverFontDarkOrange
]
@ -250,7 +258,7 @@ elmUiRenderer =
, paragraph =
E.paragraph
[ E.spacing 3
, paragraphFontSize
, defaultFontSize
, F.alignLeft
, width fill
]
@ -282,8 +290,8 @@ elmUiRenderer =
{ url = destination
, label =
E.paragraph
[ F.color colourTheme.textLightOrange
, paragraphFontSize
[ F.color (getThemeColor TextLightOrange)
, defaultFontSize
, transitionStyleFast
, hoverFontDarkOrange
]
@ -356,9 +364,9 @@ elmUiRenderer =
, left = 10
, right = 10
}
, D.color colourTheme.textLightOrange
, B.color colourTheme.backgroundLightGrey
, paragraphFontSize
, D.color (getThemeColor TextLightOrange)
, B.color (getThemeColor BackgroundLightGrey)
, defaultFontSize
, width fill
, spacing 10
]
@ -367,7 +375,7 @@ elmUiRenderer =
\items ->
E.column
[ E.spacing 10
, paragraphFontSize
, defaultFontSize
]
(items
|> List.map
@ -413,12 +421,12 @@ elmUiRenderer =
, width <| px 25
, F.bold
, alignRight
, headerFontSizeMedium
, defaultFontSize
]
(E.text (String.fromInt (index + startingIndex) ++ "."))
, E.column
[ alignLeft
, paragraphFontSize
, defaultFontSize
, E.width fill
]
itemBlocks
@ -443,7 +451,7 @@ elmUiRenderer =
code : String -> Element msg
code snippet =
E.el
[ B.color colourTheme.backgroundLightGrey
[ B.color (getThemeColor BackgroundLightGrey)
, D.rounded 2
, E.paddingXY 5 3
, width fill
@ -460,7 +468,7 @@ code snippet =
codeBlock : { body : String, language : Maybe String } -> Element msg
codeBlock details =
E.el
[ B.color colourTheme.backgroundLightGrey
[ B.color (getThemeColor BackgroundLightGrey)
, E.htmlAttribute (Html.Attributes.style "white-space" "pre")
, width fill
, E.paddingEach
@ -469,7 +477,7 @@ codeBlock details =
, left = 20
, right = 20
}
, paragraphFontSize
, defaultFontSize
, F.family
[ F.external
{ url = "https://fonts.googleapis.com/css?family=Source+Code+Pro"
@ -498,7 +506,7 @@ heading { level, rawText, children } =
headerFontSizeMedium
_ ->
headerFontSizeSmall
defaultFontSize
, F.bold
, case level of
Block.H1 ->
@ -507,7 +515,7 @@ heading { level, rawText, children } =
_ ->
F.alignLeft
, width fill
, F.color colourTheme.textLightOrange
, F.color (getThemeColor TextLightOrange)
, Region.heading (Block.headingLevelToInt level)
, E.htmlAttribute
(Html.Attributes.attribute "name" (rawTextToId rawText))

View file

@ -1,4 +1,4 @@
module Config.Helpers.Articles.Types exposing (..)
module Config.Helpers.Articles.Types exposing (References)
type alias References =

View file

@ -1,13 +1,27 @@
module Config.Helpers.Price exposing (..)
module Config.Helpers.Cards.Inner.BuyButton exposing (buyButton)
import Config.Helpers.Format exposing (headerFontSizeBig)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Fonts exposing (headerFontSizeBig)
import Config.Style.Glow exposing (glowDeepDarkGrey)
import Config.Style.Transitions exposing (hoverPageButtonDeepDarkOrange, transitionStyleMedium)
import Element as E exposing (..)
import Element as E
exposing
( Element
, centerX
, el
, newTabLink
, paddingEach
, pointer
, row
, text
)
import Element.Background as B exposing (color)
import Element.Border as D exposing (rounded)
import Element.Font as F exposing (center)
import Element.Font as F
exposing
( bold
, center
)
buyButton : String -> String -> Element msg
@ -19,6 +33,7 @@ buyButton price url =
, glowDeepDarkGrey
, D.color colourTheme.backgroundLightGrey
, B.color colourTheme.backgroundLightGrey
, pointer
]
<|
el

View file

@ -0,0 +1,28 @@
module Config.Helpers.Cards.Inner.CopyButton exposing (..)
import Config.Helpers.Cards.Inner.Text
exposing
( getHoverColours
)
import Config.Helpers.Cards.Inner.ToolTip exposing (tooltip)
import Config.Style.Colour.Helpers
exposing
( ThemeColor(..)
, colourTheme
, getThemeColor
)
import Config.Style.Icons.Icons exposing (copyLink)
import Config.Style.Icons.Types as TySvg exposing (..)
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 Element.Input as Input
import Ports
import Shared
import Shared.Msg exposing (Msg(..))
import Svg.Attributes as SvgAttr
import Task
sdafasd = []

View file

@ -1,17 +1,36 @@
module Config.Helpers.StrengthBar exposing (..)
module Config.Helpers.Cards.Inner.StrengthBar exposing
( barMaker
, barPadding
)
import Config.Helpers.ToolTip exposing (..)
import Config.Helpers.Cards.Inner.ToolTip exposing (tooltip)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Element as E exposing (..)
import Element.Background as B
import Element as E
exposing
( Element
, alignLeft
, column
, el
, fill
, height
, none
, px
, width
)
import Element.Background as B exposing (gradient)
import Element.Border as D
exposing
( color
, rounded
, width
)
barMaker : (Int -> String) -> Int -> Element msg
barMaker getTooltip num =
el
[ height <| px 12
, width fill
, E.width fill
, D.rounded 10
, D.color colourTheme.textDarkGrey
, D.width 2
@ -23,7 +42,7 @@ barMaker getTooltip num =
, List.repeat (10 - num) colourTheme.barRed
]
}
, tooltip (getTooltip num)
, tooltip (getTooltip num) True
]
none
@ -31,6 +50,6 @@ barMaker getTooltip num =
barPadding : List (Element msg) -> Element msg
barPadding =
column
[ width fill
[ E.width fill
, alignLeft
]

View file

@ -1,27 +1,87 @@
module Config.Helpers.Cards.Inner.Helpers exposing (..)
module Config.Helpers.Cards.Inner.Text exposing
( bodyFormat
, detailBodyLink
, detailBodyMaker
, detailFormat
, detailFormatEl
, detailHeader
, detailSpacing
, detailTitleLink
, detailTitleLinkWide
, detailTitleMaker
, divider
, generalButton
, getHoverColours
, listCounter
, listItem
, listMaker
, listMaker2
, numberedListItem
, renderCodeLine
, socialMaker
, titleFormat
)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Converters exposing (formatSocial)
import Config.Helpers.Format
import Config.Style.Colour.Helpers
exposing
( headerFontSizeBig
, headerFontSizeMedium
, headerFontSizeSmall
, paragraphFontSize
( ThemeColor(..)
, getThemeColor
)
import Config.Style.Colour.Types exposing (SyntaxColors)
import Config.Style.Fonts
exposing
( defaultFontSize
, headerFontSizeBig
, paragraphSpacing
)
import Config.Style.Colour.Helpers exposing (..)
import Config.Style.Icons.Types as TySvg exposing (..)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleMedium
, transitionStyleSlow
)
import Element as E exposing (..)
import Element.Background as B
import Element as E
exposing
( Attribute
, Element
, alignLeft
, alignTop
, centerX
, column
, el
, fill
, height
, maximum
, mouseOver
, newTabLink
, none
, paddingEach
, paddingXY
, paragraph
, pointer
, row
, spacing
, text
, width
)
import Element.Border as D
exposing
( color
, rounded
, widthEach
)
import Element.Font as F
exposing
( alignLeft
, bold
, color
, family
)
import Shared
import Svg.Attributes as SvgAttr
detailSpacing : Attribute msg
@ -52,7 +112,7 @@ titleFormat colour =
[ alignTop
, F.bold
, F.color (getThemeColor colour)
, headerFontSizeSmall
, defaultFontSize
, paragraphSpacing
]
@ -60,7 +120,7 @@ titleFormat colour =
bodyFormat : ThemeColor -> List (Attribute msg)
bodyFormat colour =
[ F.regular
, paragraphFontSize
, defaultFontSize
, F.color (getThemeColor colour)
, width fill
]
@ -161,9 +221,9 @@ listMaker2 makeItem itemInfo =
listItem : ThemeColor -> String -> Element msg
listItem colour item =
el
[ paragraphFontSize
[ defaultFontSize
, F.bold
, alignLeft
, E.alignLeft
, width fill
, F.color (getThemeColor colour)
]
@ -178,41 +238,35 @@ numberedListItem colour index =
[ alignTop
, F.bold
, F.color (getThemeColor colour)
, paragraphFontSize
, defaultFontSize
]
<|
text (String.fromInt index ++ ". ")
argumentButton : String -> String -> Element msg
argumentButton url item =
generalButton : Shared.Model -> String -> (OuterPart msg -> Element msg) -> Element msg
generalButton shared url icon =
newTabLink
[ alignTop
, paddingXY 0 5
]
([ alignTop
, paddingXY 0 5
, F.color (getThemeColor TextLightOrange)
]
++ getHoverColours TextLightOrange
)
{ url = url
, label =
el
[ F.color colourTheme.textLightGrey
, B.color colourTheme.textDarkOrange
[ transitionStyleSlow
, paddingXY 7 7
, D.rounded 10
, paddingEach
{ top = 6
, bottom = 3
, left = 10
, right = 10
}
, mouseOver
[ F.color colourTheme.textLightOrange
, B.color colourTheme.textDeepDarkOrange
]
, transitionStyleSlow
, headerFontSizeSmall
, F.bold
]
<|
text
item
icon
{ elementAttributes =
[]
, sharedModel = shared
, svgAttributes = [ SvgAttr.width "20" ]
}
}
@ -232,3 +286,65 @@ listCounter : Int -> Element msg
listCounter index =
detailTitleMaker TextLightGrey
(String.fromInt index ++ ". ")
divider : Element msg
divider =
el
[ width fill
, height fill
, centerX
, width (fill |> maximum 600)
, D.widthEach
{ bottom = 1
, top = 0
, left = 0
, right = 0
}
, D.color (getThemeColor TextLightOrange)
, paddingEach
{ top = 10
, bottom = 0
, left = 0
, right = 0
}
]
<|
none
renderCodeLine : SyntaxColors -> List (Element msg) -> Element msg
renderCodeLine colors elements =
paragraph
[ F.color colors.text
, F.alignLeft
, F.family
[ F.monospace ]
]
elements
detailHeader : String -> Element msg
detailHeader title =
column
[ centerX
, width fill
]
[ divider
, paragraph
[ F.color (getThemeColor TextLightGrey)
, paragraphSpacing
, F.bold
, centerX
, F.center
, headerFontSizeBig
, F.color (getThemeColor TextLightOrange)
, paddingEach
{ top = 20
, right = 0
, bottom = 0
, left = 0
}
]
[ text (String.toUpper title) ]
]

View file

@ -1,28 +1,74 @@
module Config.Helpers.ToolTip exposing (..)
module Config.Helpers.Cards.Inner.ToolTip exposing
( tooltip
, tooltipImage
)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Transitions exposing (transitionStyleSlow)
import Element as E exposing (..)
import Element.Background as B
import Element as E
exposing
( Attribute
, alignLeft
, alignRight
, below
, centerX
, centerY
, el
, fill
, height
, htmlAttribute
, image
, inFront
, mouseOver
, moveLeft
, none
, padding
, px
, rgba
, text
, transparent
, width
)
import Element.Background as B exposing (color)
import Element.Border as D
exposing
( color
, rounded
, shadow
, width
)
import Element.Font as F
import Html.Attributes as H
exposing
( center
, regular
, size
)
import Html.Attributes as H exposing (style)
tooltip : String -> Attribute msg
tooltip content =
tooltip : String -> Bool -> Attribute msg
tooltip content isLeft =
inFront <|
el
[ width fill
[ E.width fill
, height fill
, transparent True
, mouseOver [ transparent False ]
, htmlAttribute <| H.style "z-index" "4"
, transitionStyleSlow
, below <|
el [ htmlAttribute (H.style "pointerEvents" "none") ] <|
el
[ htmlAttribute (H.style "pointerEvents" "none")
, case isLeft of
True ->
alignLeft
False ->
alignRight
]
<|
el
[ width <| px 300
[ E.width fill
, htmlAttribute <| H.style "z-index" "4"
, F.size 15
, F.center
@ -49,7 +95,7 @@ tooltipImage : String -> Attribute msg
tooltipImage content =
inFront <|
el
[ width fill
[ E.width fill
, height fill
, transparent True
, mouseOver [ transparent False ]
@ -62,11 +108,9 @@ tooltipImage content =
]
<|
el
[ width <| px 400
[ E.width <| px 400
, htmlAttribute <| H.style "z-index" "4"
, B.color colourTheme.backgroundLightGrey
-- , padding 15
, D.color colourTheme.textLightOrange
, D.rounded 5
, D.width 2
@ -78,7 +122,7 @@ tooltipImage content =
}
]
(image
[ width fill
[ E.width fill
, height fill
, centerX
, centerY

View file

@ -1,45 +1,80 @@
module Config.Helpers.Cards.Outer.Helpers exposing (..)
module Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Data.Identity
-- import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Data.Identity exposing (pageNames)
import Config.Data.ImageFolders as M
exposing
( pageNames
( ImageFolder(..)
, getImageFolderString
, imagePathMaker
)
import Config.Helpers.Cards.Outer.Types as C exposing (..)
import Config.Helpers.Cards.Inner.Text exposing (divider)
import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..))
import Config.Helpers.Converters exposing (formatName)
import Config.Helpers.Format
exposing
( headerFontSizeBig
, headerFontSizeMedium
, paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.ImageFolders as M exposing (..)
import Config.Helpers.Response exposing (contentContainer)
import Config.Helpers.ServiceFormat exposing (divider)
import Config.Pages.Debate.Arguments.Records.Template exposing (argument)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Colour.Helpers
exposing
( ThemeColor(..)
, getThemeColor
)
import Config.Style.Fonts
exposing
( defaultFontSize
, headerFontSizeBig
)
import Config.Style.Glow
exposing
( glowDeepDarkGrey
, glowDeepDarkOrange
)
import Config.Style.Icons.Icons exposing (construction)
import Config.Style.Transitions
import Config.Style.Transitions exposing (transitionStyleSlow)
import Element as E
exposing
( hoverCircleButtonDarkOrange
, transitionStyleMedium
, transitionStyleSlow
( Device
, DeviceClass(..)
, Element
, Orientation(..)
, alignRight
, alignTop
, centerX
, column
, el
, fill
, height
, image
, link
, mouseOver
, newTabLink
, none
, padding
, paddingEach
, paddingXY
, paragraph
, row
, spacing
, text
, width
)
import Element as E exposing (..)
import Element.Background as B
import Element.Background as B exposing (color)
import Element.Border as D
exposing
( color
, roundEach
, rounded
, width
)
import Element.Font as F
import Html.Attributes as H
import Route.Path as Path exposing (..)
import Shared
exposing
( alignLeft
, bold
, center
, color
)
import Html.Attributes as H exposing (id)
cardMaker : Device -> Cardable msg -> List (Element msg) -> Element msg
cardMaker : Device -> Cardable -> List (Element msg) -> Element msg
cardMaker device cardable contents =
let
hasLink : Bool
@ -84,13 +119,14 @@ cardMaker device cardable contents =
C.ContactPage _ ->
False
cardTitleMaker : String -> Maybe String -> Element msg
cardTitleMaker title maybeUrl =
cardTitleMaker : String -> String -> Maybe String -> Element msg
cardTitleMaker htmlId title maybeUrl =
el
([ headerFontSizeBig
, F.bold
, F.color colourTheme.textLightGrey
, width fill
, F.color (getThemeColor TextLightGrey)
, E.width fill
, E.htmlAttribute (H.id (formatName htmlId))
]
++ (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
@ -101,7 +137,7 @@ cardMaker device cardable contents =
_ ->
[ F.center
, B.color colourTheme.textDarkOrange
, B.color (getThemeColor TextDarkOrange)
, D.roundEach
{ topLeft = 26
, topRight = 26
@ -119,7 +155,7 @@ cardMaker device cardable contents =
)
<|
column
[ width fill
[ E.width fill
, spacing 10
]
[ case ( device.class, device.orientation ) of
@ -146,7 +182,7 @@ cardMaker device cardable contents =
case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
image
[ width fill
[ E.width fill
, paddingEach
{ top = 8
, bottom = 0
@ -158,7 +194,7 @@ cardMaker device cardable contents =
( Tablet, Portrait ) ->
image
[ width fill
[ E.width fill
, paddingEach
{ top = 8
, bottom = 0
@ -174,7 +210,7 @@ cardMaker device cardable contents =
_ ->
none
, row
[ width fill
[ E.width fill
, spacing 10
, case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
@ -243,8 +279,8 @@ cardMaker device cardable contents =
{ url = url
, label =
el
[ F.color colourTheme.textLightGrey
, B.color colourTheme.textDarkOrange
[ F.color (getThemeColor TextLightGrey)
, B.color (getThemeColor TextDarkOrange)
, D.rounded 10
, paddingEach
{ top = 6
@ -253,11 +289,11 @@ cardMaker device cardable contents =
, right = 10
}
, mouseOver
[ F.color colourTheme.textLightOrange
, B.color colourTheme.textDeepDarkOrange
[ F.color (getThemeColor TextLightOrange)
, B.color (getThemeColor TextDeepDarkOrange)
]
, transitionStyleSlow
, paragraphFontSize
, defaultFontSize
]
<|
text
@ -273,13 +309,13 @@ cardMaker device cardable contents =
)
}
cardInner : String -> Maybe String -> List (Element msg) -> Element msg
cardInner title maybeUrl elements =
cardInner : String -> String -> Maybe String -> List (Element msg) -> Element msg
cardInner htmlId title maybeUrl elements =
column
[ width fill
[ E.width fill
, spacing 0
]
[ cardTitleMaker title maybeUrl
[ cardTitleMaker htmlId title maybeUrl
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
el
@ -298,7 +334,7 @@ cardMaker device cardable contents =
)
<|
row
[ width fill
[ E.width fill
]
elements
]
@ -319,14 +355,14 @@ cardMaker device cardable contents =
_ ->
[ E.width fill
, D.width 5
, D.color colourTheme.backgroundDarkGrey
, D.color (getThemeColor BackgroundDarkGrey)
, D.rounded 32
, glowDeepDarkGrey
]
++ (if hasLink then
[ mouseOver
[ D.color colourTheme.textDarkOrange
, B.color colourTheme.textDarkOrange
[ D.color (getThemeColor TextDarkOrange)
, B.color (getThemeColor TextDarkOrange)
, glowDeepDarkOrange
]
, transitionStyleSlow
@ -339,11 +375,12 @@ cardMaker device cardable contents =
)
elements
cardWithImageWithLink : Bool -> String -> String -> String -> List (Element msg) -> Element msg
cardWithImageWithLink linkBool title image url content =
cardWithImageWithLink : String -> Bool -> String -> String -> String -> List (Element msg) -> Element msg
cardWithImageWithLink htmlId linkBool title image url content =
linkChooser
linkBool
(cardInner title
(cardInner htmlId
title
(if hasLink then
Just url
@ -355,29 +392,32 @@ cardMaker device cardable contents =
)
url
cardWithNoImageWithLink : Bool -> String -> String -> List (Element msg) -> Element msg
cardWithNoImageWithLink linkBool title url content =
cardWithNoImageWithLink : String -> Bool -> String -> String -> List (Element msg) -> Element msg
cardWithNoImageWithLink htmlId linkBool title url content =
linkChooser
linkBool
(cardInner title
(cardInner htmlId
title
(Just url)
[ cardContentMaker content
]
)
url
cardWithImage : String -> String -> List (Element msg) -> Element msg
cardWithImage title image content =
cardWithImage : String -> String -> String -> List (Element msg) -> Element msg
cardWithImage htmlId title image content =
cardOuter <|
cardInner title
cardInner htmlId
title
Nothing
[ cardContentMaker content
]
cardWithNoImage : String -> List (Element msg) -> Element msg
cardWithNoImage title content =
cardWithNoImage : String -> String -> List (Element msg) -> Element msg
cardWithNoImage htmlId title content =
cardOuter <|
cardInner title
cardInner htmlId
title
Nothing
[ cardContentMaker content
]
@ -387,10 +427,10 @@ cardMaker device cardable contents =
cardOuter <|
case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
el [ width fill ] <| element
el [ E.width fill ] <| element
( Tablet, Portrait ) ->
el [ width fill ] <| element
el [ E.width fill ] <| element
_ ->
(if linkBool then
@ -399,7 +439,7 @@ cardMaker device cardable contents =
else
link
)
[ width fill ]
[ E.width fill ]
{ url = url
, label = element
}
@ -407,6 +447,7 @@ cardMaker device cardable contents =
case cardable of
C.Contact contact ->
cardWithImageWithLink
contact.contactImage
contact.isNewTabLink
contact.contactName
(imagePathMaker M.Contact contact.contactImage)
@ -415,17 +456,20 @@ cardMaker device cardable contents =
C.Cuck cuck ->
cardWithImage
cuck.cuckImage
cuck.cuckName
(imagePathMaker M.Cuck cuck.cuckImage)
contents
C.BlogArticle blogArticle ->
cardWithNoImage
blogArticle.articleImage
(String.toUpper blogArticle.articleName)
contents
C.BlogCard blogArticle ->
cardWithImageWithLink
blogArticle.articleImage
blogArticle.isNewTabLink
blogArticle.articleName
(imagePathMaker M.BlogCard blogArticle.articleImage)
@ -434,11 +478,13 @@ cardMaker device cardable contents =
C.Argument argument ->
cardWithNoImage
argument.argumentImage
argument.argumentTitle
contents
C.Gibberish gibberish ->
cardWithImageWithLink
gibberish.gibberishImage
gibberish.isNewTabLink
gibberish.gibberishTitle
(imagePathMaker M.Gibberish gibberish.gibberishImage)
@ -447,6 +493,7 @@ cardMaker device cardable contents =
C.Service service ->
cardWithImageWithLink
service.serviceImage
service.isNewTabLink
service.serviceName
(imagePathMaker M.Service service.serviceImage)
@ -455,6 +502,7 @@ cardMaker device cardable contents =
C.Debate debate ->
cardWithImageWithLink
debate.debateImage
debate.isNewTabLink
debate.debateTitle
(imagePathMaker M.Debate debate.debateImage)
@ -463,6 +511,7 @@ cardMaker device cardable contents =
C.Donate donate ->
cardWithImageWithLink
donate.donateImage
donate.isNewTabLink
donate.donateName
(imagePathMaker M.Donate donate.donateImage)
@ -471,22 +520,26 @@ cardMaker device cardable contents =
C.Interview interview ->
cardWithImage
interview.interviewImage
interview.interviewName
(imagePathMaker M.Interviews interview.interviewImage)
contents
C.NutriDex nutriDex ->
cardWithNoImage
nutriDex.nutriDexTitle
(String.toUpper nutriDex.nutriDexTitle)
contents
C.ServicePage service ->
cardWithNoImage
service.serviceImage
(String.toUpper service.serviceName)
contents
C.ContactPage contact ->
cardWithNoImage
contact.contactImage
(String.toUpper contact.contactName)
contents
@ -495,7 +548,7 @@ cardContentMaker : List (Element msg) -> Element msg
cardContentMaker content =
column
[ spacing 8
, width fill
, E.width fill
]
content
@ -505,7 +558,7 @@ cardStuff content =
el
[ E.width fill
, centerX
, B.color colourTheme.backgroundDarkGrey
, B.color (getThemeColor BackgroundDarkGrey)
, padding 10
, D.roundEach
{ topLeft = 0
@ -522,7 +575,7 @@ cardStuff content =
, left = 15
, right = 15
}
, width fill
, E.width fill
, height fill
]
content

View file

@ -1,4 +1,4 @@
module Config.Helpers.Cards.Outer.Types exposing (..)
module Config.Helpers.Cards.Outer.Types exposing (Cardable(..))
import Config.Pages.Blog.Types exposing (BlogArticle)
import Config.Pages.Contact.Types exposing (Contact)
@ -9,10 +9,10 @@ import Config.Pages.Debate.Types exposing (Debate)
import Config.Pages.Donate.Types exposing (Donate)
import Config.Pages.Interviews.Types exposing (Interview)
import Config.Pages.Products.Types exposing (NutriDex)
import Config.Pages.Services.Types exposing (Service, ServicePage)
import Config.Pages.Services.Types exposing (Service)
type Cardable msg
type Cardable
= Contact Contact
| ContactPage Contact
| Cuck Cuck
@ -20,9 +20,9 @@ type Cardable msg
| BlogCard BlogArticle
| Argument Argument
| Gibberish Gibberish
| Service (Service msg)
| Service Service
| Debate Debate
| Donate Donate
| Interview Interview
| NutriDex NutriDex
| ServicePage (Service msg)
| ServicePage Service

View file

@ -1,4 +1,9 @@
module Config.Helpers.Converters exposing (..)
module Config.Helpers.Converters exposing
( formatName
, formatSocial
, toTitleCase
, wordCount
)
formatName : String -> String

View file

@ -1,47 +0,0 @@
module Config.Helpers.Format exposing (..)
import Config.Style.Colour.Types exposing (..)
import Element exposing (..)
import Element.Border as D
import Element.Font as F
paragraphSpacing : Attribute msg
paragraphSpacing =
spacing 0
headerFontSizeBig : Attr decorative msg
headerFontSizeBig =
F.size 23
headerFontSizeMedium : Attr decorative msg
headerFontSizeMedium =
F.size 20
headerFontSizeSmall : Attr decorative msg
headerFontSizeSmall =
F.size 18
paragraphFontSize : Attr decorative msg
paragraphFontSize =
F.size 18
smallTextFontSize : Attr decorative msg
smallTextFontSize =
F.size 16
renderCodeLine : SyntaxColors -> List (Element msg) -> Element msg
renderCodeLine colors elements =
paragraph
[ F.color colors.text
, F.alignLeft
, F.family
[ F.monospace ]
]
elements

View file

@ -1,37 +1,36 @@
module Config.Helpers.Headers.Helpers exposing (..)
module Config.Helpers.Headers.Helpers exposing (headerMaker)
import Config.Helpers.Cards.Inner.Text exposing (divider)
import Config.Helpers.Converters exposing (formatName)
import Config.Helpers.Format
exposing
( headerFontSizeBig
, headerFontSizeMedium
, headerFontSizeSmall
, paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Headers.Types as C exposing (..)
import Config.Helpers.Headers.Types as C exposing (Headerable(..))
import Config.Helpers.Response exposing (contentContainer)
import Config.Helpers.ServiceFormat exposing (divider)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Glow
import Config.Style.Fonts
exposing
( glowDeepDarkGrey
, glowDeepDarkOrange
( defaultFontSize
, headerFontSizeBig
)
import Config.Style.Icons.Icons exposing (construction)
import Config.Style.Transitions
import Element as E
exposing
( hoverCircleButtonDarkOrange
, transitionStyleMedium
, transitionStyleSlow
( Element
, centerX
, column
, el
, fill
, maximum
, minimum
, padding
, paddingEach
, paragraph
, spacing
, text
, width
)
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
import Route.Path as Path exposing (..)
import Shared exposing (..)
exposing
( bold
, center
)
headerMaker : Headerable msg -> Element msg
@ -88,7 +87,7 @@ headerMaker headerable =
<|
paragraph
[ width fill
, headerFontSizeSmall
, defaultFontSize
, F.center
]
<|

View file

@ -1,9 +1,24 @@
module Config.Helpers.Headers.Records exposing (..)
module Config.Helpers.Headers.Records exposing
( argumentHeader
, blogHeader
, contactHeader
, cuckListHeader
, debateHeader
, donateHeader
, gibberishHeader
, interviewHeader
, nutriDexHeader
, servicesHeader
)
import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyLink)
import Config.Helpers.Headers.Types exposing (..)
import Config.Helpers.Cards.Inner.Text exposing (detailBodyLink)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Style.Colour.Helpers exposing (ThemeColor(..))
import Element as E exposing (newTabLink, text)
import Element as E
exposing
( newTabLink
, text
)
import Route.Path as Path

View file

@ -1,4 +1,7 @@
module Config.Helpers.Headers.Types exposing (..)
module Config.Helpers.Headers.Types exposing
( Header
, Headerable(..)
)
import Element exposing (Element)

View file

@ -1,7 +1,32 @@
module Config.Helpers.Response exposing (..)
module Config.Helpers.Response exposing
( contentContainer
, pageList
, pageListCenter
, pageListFormat
, topLevelContainer
)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Element as E exposing (..)
import Element as E
exposing
( Attribute
, Device
, DeviceClass(..)
, Element
, Orientation(..)
, alignTop
, centerX
, centerY
, el
, fill
, height
, maximum
, minimum
, padding
, scrollbarY
, spacing
, width
)
import Element.Background as B exposing (color)
import Html.Attributes exposing (style)

View file

@ -1,261 +0,0 @@
module Config.Helpers.ServiceFormat exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Cards.Inner.Helpers exposing (detailSpacing)
import Config.Helpers.Format
exposing
( headerFontSizeBig
, headerFontSizeMedium
, headerFontSizeSmall
, paragraphFontSize
, paragraphSpacing
)
import Config.Style.Colour.Helpers 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
bodyFormat : List (Attribute msg)
bodyFormat =
[ spacing 10
, paddingEach
{ top = 10
, bottom = 0
, left = 0
, right = 0
}
]
chunkMaker : List (Element msg) -> Element msg
chunkMaker elements =
paragraph
[ F.color colourTheme.textLightGrey
, detailSpacing
, paragraphFontSize
, F.alignLeft
, width fill
]
elements
titleMaker : String -> Element msg
titleMaker title =
el
[ paragraphSpacing
, headerFontSizeMedium
, F.bold
, F.center
, width fill
, F.color colourTheme.textLightOrange
, paddingEach
{ top = 20
, bottom = 10
, left = 0
, right = 0
}
]
<|
text title
subTitleMaker : String -> Element msg
subTitleMaker item =
el
[ alignTop
, F.color colourTheme.textLightOrange
, paragraphSpacing
, F.bold
, headerFontSizeSmall
, E.width fill
]
<|
E.text item
highlightedBlockMaker : String -> List String -> Element msg
highlightedBlockMaker title items =
column
[ paddingEach
{ top = 15
, bottom = 15
, left = 20
, right = 20
}
, B.color colourTheme.backgroundLightGrey
, D.rounded 10
, width fill
, spacing 8
]
[ paragraph
[ F.bold
, headerFontSizeSmall
]
[ text title ]
, column
[]
<|
List.indexedMap
(\index item ->
row
[ spacing 10
, width fill
]
[ column
[ width <| px 30
, alignTop
]
[ el
[ alignRight
, headerFontSizeSmall
]
<|
text " "
]
, column
[ spacing 10
, width fill
, alignRight
]
[ paragraph
[ width fill
, paragraphFontSize
, F.alignLeft
]
[ row
[ alignLeft ]
[ paragraph [ alignLeft ]
[ text item
]
]
]
]
]
)
items
]
textEntry : String -> Element msg
textEntry item =
el
[ alignLeft ]
<|
paragraph [] [ text item ]
bulletPointMaker : List String -> Element msg
bulletPointMaker items =
column [ spacing 10 ] <|
List.indexedMap
(\index item ->
row
[ spacing 10
, width fill
]
[ column
[ width <| px 30
, alignTop
]
[ el
[ alignRight
, headerFontSizeSmall
]
<|
text " "
]
, column
[ spacing 10
, width fill
, alignRight
]
[ paragraph
[ width fill
, paragraphFontSize
, F.alignLeft
]
[ el
[ alignLeft ]
<|
paragraph [ alignLeft ]
[ text item
]
]
]
]
)
items
numberMaker : List String -> Element msg
numberMaker items =
column [ spacing 10 ] <|
List.indexedMap
(\index item ->
row
[ spacing 10
, width fill
]
[ column
[ width <| px 30
, alignTop
]
[ el
[ alignRight ]
<|
text (String.fromInt (index + 1) ++ ". ")
]
, column
[ spacing 10
, width fill
, alignRight
]
[ paragraph
[ width fill
, paragraphFontSize
, F.alignLeft
]
[ el
[ alignLeft ]
<|
paragraph [ alignLeft ]
[ text item
]
]
]
]
)
items
divider : Element msg
divider =
el
[ width fill
, height fill
, centerX
, width (fill |> maximum 600)
, D.widthEach
{ bottom = 1
, top = 0
, left = 0
, right = 0
}
, D.color colourTheme.textLightOrange
, paddingEach
{ top = 10
, bottom = 0
, left = 0
, right = 0
}
]
<|
none

View file

@ -1,7 +1,10 @@
module Config.Helpers.Viewport exposing (..)
module Config.Helpers.Viewport exposing
( Msg
, resetViewport
)
import Browser.Dom as Dom exposing (setViewport)
import Task exposing (perform)
import Task exposing (attempt)
type Msg

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.BigFatSurprise exposing (..)
module Config.Pages.Blog.Records.BigFatSurprise exposing (articleBigFatSurprise)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.EverettVegans exposing (..)
module Config.Pages.Blog.Records.EverettVegans exposing (articleEverettVegans)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.HunterGatherers exposing (..)
module Config.Pages.Blog.Records.HunterGatherers exposing (articleHunterGatherers)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.MeatApologetics exposing (..)
module Config.Pages.Blog.Records.MeatApologetics exposing (articleMeatApologetics)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path
@ -11,8 +11,6 @@ articleMeatApologetics =
, articleAuthor = "Nick Hiebert"
, isNewTabLink = False
, hasReferences = True
, hasTableOfContents = True
, articleImage = "meatapologetics"
, articlePublished = "Apr 13, 2022"

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.NagraGoodrich exposing (..)
module Config.Pages.Blog.Records.NagraGoodrich exposing (articleNagraGoodrich)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.PlantBasedMeta exposing (..)
module Config.Pages.Blog.Records.PlantBasedMeta exposing (articlePlantBasedMeta)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path
@ -11,8 +11,6 @@ articlePlantBasedMeta =
, articleAuthor = "Nick Hiebert"
, isNewTabLink = False
, hasReferences = True
, hasTableOfContents = True
, articleImage = "plantbasedmeta"
, articlePublished = "Feb 5, 2021"

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.QuackSmashing exposing (..)
module Config.Pages.Blog.Records.QuackSmashing exposing (articleQuackSmashing)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path
@ -11,8 +11,6 @@ articleQuackSmashing =
, articleAuthor = "Nick Hiebert"
, isNewTabLink = False
, hasReferences = True
, hasTableOfContents = True
, articleImage = "quacksmashing"
, articlePublished = "Dec 24, 2022"

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.SapienDiet exposing (..)
module Config.Pages.Blog.Records.SapienDiet exposing (articleSapienDiet)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path
@ -11,8 +11,6 @@ articleSapienDiet =
, articleAuthor = "Nick Hiebert"
, isNewTabLink = False
, hasReferences = True
, hasTableOfContents = True
, articleImage = "sapiendiet"
, articlePublished = "Aug 24, 2022"

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.SeedOils exposing (..)
module Config.Pages.Blog.Records.SeedOils exposing (articleSeedOils)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path
@ -11,8 +11,6 @@ articleSeedOils =
, articleAuthor = "Nick Hiebert"
, isNewTabLink = False
, hasReferences = True
, hasTableOfContents = True
, articleImage = "seedoils"
, articlePublished = "Oct 31, 2021"

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.Shenangians exposing (..)
module Config.Pages.Blog.Records.Shenangians exposing (articleShenanigans)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path
@ -11,8 +11,6 @@ articleShenanigans =
, articleAuthor = "Nick Hiebert"
, isNewTabLink = False
, hasReferences = False
, hasTableOfContents = True
, articleImage = "shenanigans"
, articlePublished = "Jun 6, 2024"

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.SweetDeception exposing (..)
module Config.Pages.Blog.Records.SweetDeception exposing (articleSweetDeception)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Records.Template exposing (..)
module Config.Pages.Blog.Records.Template exposing (article)
import Config.Pages.Blog.Types exposing (..)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Route.Path as Path

View file

@ -1,6 +1,6 @@
module Config.Pages.Blog.Types exposing (..)
module Config.Pages.Blog.Types exposing (BlogArticle)
import Config.Helpers.Articles.Types exposing (..)
import Config.Helpers.Articles.Types exposing (References)
type alias BlogArticle =

View file

@ -0,0 +1,34 @@
module Config.Pages.Contact.Records exposing (..)
import Config.Pages.Contact.Types exposing (Contact)
import Route.Path as Path
contactInquiry : Contact
contactInquiry =
{ contactName = "General Inquiries"
, contactImage = "email"
, contactDescription = "To submit any inquiries, including service purchases, general questions, guest appearances, webinars, public speaking, please reach out via email by clicking here. You may also submit Discord ban appeals here if you wish. To submit any criticism of the content on this site, follow the Criticism link below."
, contactLink = Path.toString Path.Contact_Inquiry
, isNewTabLink = False
}
contactCriticism : Contact
contactCriticism =
{ contactName = "Criticism"
, contactImage = "discord"
, contactDescription = "To submit critiques of my arguments, reasoning, blog articles, video content, or public statements, please follow this link and adhere to the instructions precisely. Before pursuing any criticism, consider that misuse of this option may result in an immediate Discord ban with no opportunity for appeal."
, contactLink = Path.toString Path.Contact_Criticism
, isNewTabLink = False
}
contactMain : Contact
contactMain =
{ contactName = "Contact"
, contactImage = ""
, contactDescription = ""
, contactLink = ""
, isNewTabLink = True
}

View file

@ -1,6 +1,4 @@
module Config.Pages.Contact.Types exposing (..)
import Route.Path as Path
module Config.Pages.Contact.Types exposing (Contact)
type alias Contact =
@ -10,38 +8,3 @@ type alias Contact =
, contactDescription : String
, isNewTabLink : Bool
}
type alias Method =
{ contactInstructions : String
}
contactInquiry : Contact
contactInquiry =
{ contactName = "General Inquiries"
, contactImage = "email"
, contactDescription = "For any inquiries, including service purchases, general questions, guest appearances, webinars, public speaking, please reach out via email by clicking here. You may also submit Discord ban appeals here if you wish. To submit any criticism of the content on this site, follow the Criticism link below."
, contactLink = Path.toString Path.Contact_Inquiry
, isNewTabLink = False
}
contactCriticism : Contact
contactCriticism =
{ contactName = "Criticism"
, contactImage = "discord"
, contactDescription = "For criticism of my arguments, reasoning, blog articles, video content, or public statements, please follow this link and adhere to the instructions precisely. Before pursuing any criticism, consider that misuse of this option may result in an immediate Discord ban with no opportunity for appeal."
, contactLink = Path.toString Path.Contact_Criticism
, isNewTabLink = False
}
contactMain : Contact
contactMain =
{ contactName = "Contact"
, contactImage = ""
, contactDescription = ""
, contactLink = ""
, isNewTabLink = True
}

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Arguments.List exposing (..)
module Config.Pages.Debate.Arguments.List exposing (argumentList)
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Records.Abortion exposing (argumentAbortion)

View file

@ -1,8 +1,8 @@
module Config.Pages.Debate.Arguments.Records.Abortion exposing (..)
module Config.Pages.Debate.Arguments.Records.Abortion exposing (argumentAbortion)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentAbortion : Argument

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.Agnosticism exposing (..)
module Config.Pages.Debate.Arguments.Records.Agnosticism exposing (argumentAgnosticism)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentAgnosticism : Argument
@ -14,8 +15,6 @@ argumentAgnosticism =
, argumentCertainty = 9
, argumentImage = "agnostic"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x,y)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.AgriculturalPredation exposing (..)
module Config.Pages.Debate.Arguments.Records.AgriculturalPredation exposing (argumentAgriculturalPredation)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentAgriculturalPredation : Argument
@ -14,8 +15,6 @@ argumentAgriculturalPredation =
, argumentCertainty = 10
, argumentImage = "predatoragriculture"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.AnabolicKeto exposing (..)
module Config.Pages.Debate.Arguments.Records.AnabolicKeto exposing (argumentAnabolicKeto)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentAnabolicKeto : Argument
@ -14,8 +15,6 @@ argumentAnabolicKeto =
, argumentCertainty = 5
, argumentImage = "anabolicketo"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.AnimalRights exposing (..)
module Config.Pages.Debate.Arguments.Records.AnimalRights exposing (argumentAnimalRights)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentAnimalRights : Argument
@ -14,8 +15,6 @@ argumentAnimalRights =
, argumentCertainty = 10
, argumentImage = "animalrights"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.AntagonisticPleiotropy exposing (..)
module Config.Pages.Debate.Arguments.Records.AntagonisticPleiotropy exposing (argumentAntagonisticPleiotropy)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentAntagonisticPleiotropy : Argument
@ -14,8 +15,6 @@ argumentAntagonisticPleiotropy =
, argumentCertainty = 6
, argumentImage = "antagonisticpleiotropy"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.AntiRewilding exposing (..)
module Config.Pages.Debate.Arguments.Records.AntiRewilding exposing (argumentAntiRewilding)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentAntiRewilding : Argument
@ -14,8 +15,6 @@ argumentAntiRewilding =
, argumentCertainty = 10
, argumentImage = "rewilding"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.AntiVandalism exposing (..)
module Config.Pages.Debate.Arguments.Records.AntiVandalism exposing (argumentAntiVandalism)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentAntiVandalism : Argument
@ -14,8 +15,6 @@ argumentAntiVandalism =
, argumentCertainty = 8
, argumentImage = "antivandalism"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.ApoBCVD exposing (..)
module Config.Pages.Debate.Arguments.Records.ApoBCVD exposing (argumentApoBCVD)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentApoBCVD : Argument
@ -14,8 +15,6 @@ argumentApoBCVD =
, argumentCertainty = 9
, argumentImage = "lipoprotein"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.BoobyTrapPagers exposing (..)
module Config.Pages.Debate.Arguments.Records.BoobyTrapPagers exposing (argumentBoobyTrapPagers)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentBoobyTrapPagers : Argument
@ -14,8 +15,6 @@ argumentBoobyTrapPagers =
, argumentCertainty = 4
, argumentImage = "pagers"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.CarbsObesity exposing (..)
module Config.Pages.Debate.Arguments.Records.CarbsObesity exposing (argumentCarbsObesity)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentCarbsObesity : Argument
@ -10,13 +11,10 @@ argumentCarbsObesity =
, propositionTitle = "Carbohydrates do not uniquely cause fat accumulation or obesity."
, propositionReductio = ""
, propositionSummary = "There are a number of predictions made from the hypothesis that carbohydrates uniquely cause obesity. One of those predictions is that obesity would track with carbohydrate intake, but it doesn't"
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q)|=(~3P)"
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q)|=(~3P)"
, argumentCertainty = 9
, argumentImage = "carbobesity"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.CateUpfReductio exposing (..)
module Config.Pages.Debate.Arguments.Records.CateUpfReductio exposing (argumentCateUpfReductio)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentCateUpfReductio : Argument
@ -14,8 +15,6 @@ argumentCateUpfReductio =
, argumentCertainty = 10
, argumentImage = "cateupfreductio"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.ColonizingNature exposing (..)
module Config.Pages.Debate.Arguments.Records.ColonizingNature exposing (argumentColonizingNature)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentColonizingNature : Argument

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.CropDeaths exposing (..)
module Config.Pages.Debate.Arguments.Records.CropDeaths exposing (argumentCropDeaths)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentCropDeaths : Argument
@ -10,13 +11,10 @@ argumentCropDeaths =
, propositionTitle = "Proposition"
, propositionReductio = ""
, propositionSummary = "We can't claim to know that cropland kills more animals than wildland, because if we did know this, there would be evidence for it, and there isn't any such evidence."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q)%7C=(~3P)"
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q)%7C=(~3P)"
, argumentCertainty = 9
, argumentImage = "cropdeaths"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.DairyCowRape exposing (..)
module Config.Pages.Debate.Arguments.Records.DairyCowRape exposing (argumentDairyCowRape)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentDairyCowRape : Argument
@ -14,8 +15,6 @@ argumentDairyCowRape =
, argumentCertainty = 10
, argumentImage = "cowrape"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.DietaryCholesterol exposing (..)
module Config.Pages.Debate.Arguments.Records.DietaryCholesterol exposing (argumentDietaryCholesterol)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentDietaryCholesterol : Argument
@ -14,8 +15,6 @@ argumentDietaryCholesterol =
, argumentCertainty = 9
, argumentImage = "dietarycholesterol"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,8 +1,8 @@
module Config.Pages.Debate.Arguments.Records.Dummy exposing (..)
module Config.Pages.Debate.Arguments.Records.Dummy exposing (argumentDummy)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentDummy : Argument
@ -15,8 +15,6 @@ argumentDummy =
, argumentCertainty = 6
, argumentImage = ""
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = ""

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.EfilismPatrolSquad exposing (..)
module Config.Pages.Debate.Arguments.Records.EfilismPatrolSquad exposing (argumentEfilismPatrolSquad)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentEfilismPatrolSquad : Argument
@ -14,8 +15,6 @@ argumentEfilismPatrolSquad =
, argumentCertainty = 10
, argumentImage = "efilism"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.EpidemiologyCausality exposing (..)
module Config.Pages.Debate.Arguments.Records.EpidemiologyCausality exposing (argumentEpidemiologyCausality)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentEpidemiologyCausality : Argument
@ -11,12 +12,9 @@ argumentEpidemiologyCausality =
, propositionReductio = ""
, propositionSummary = "It's just straightforwardly the case that nutritional epidemiology has outstanding translation rates with randomized controlled trials, or at least these is overwhelmingly consistent compatibility in the results. If randomized controlled trials are the standard against which other research methods are to be evaluated, it's not clear why nutritional epidemiology wouldn't be trustworthy in the aggregate."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5Qx)),(Pe)|=(Qe)"
, argumentCertainty = 8
, argumentImage = "epidemiologycausality"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.EthicalSlurs exposing (..)
module Config.Pages.Debate.Arguments.Records.EthicalSlurs exposing (argumentEthicalSlurs)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentEthicalSlurs : Argument
@ -14,8 +15,6 @@ argumentEthicalSlurs =
, argumentCertainty = 7
, argumentImage = "ethicalslurs"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.FineTuning exposing (..)
module Config.Pages.Debate.Arguments.Records.FineTuning exposing (argumentFineTuning)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentFineTuning : Argument
@ -14,8 +15,6 @@ argumentFineTuning =
, argumentCertainty = 10
, argumentImage = "finetuning"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.FlatEarthDebunk exposing (..)
module Config.Pages.Debate.Arguments.Records.FlatEarthDebunk exposing (argumentFlatEarthDebunk)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentFlatEarthDebunk : Argument
@ -14,8 +15,6 @@ argumentFlatEarthDebunk =
, argumentCertainty = 10
, argumentImage = "flatearth"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x,y)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.FructoseNAFLD exposing (..)
module Config.Pages.Debate.Arguments.Records.FructoseNAFLD exposing (argumentFructoseNAFLD)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentFructoseNAFLD : Argument
@ -14,8 +15,6 @@ argumentFructoseNAFLD =
, argumentCertainty = 8
, argumentImage = "fructosenafld"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,9 @@
module Config.Pages.Debate.Arguments.Records.HealthPromotingFoods exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthPromotingFoods exposing (argumentHealthPromotingFoods)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthPromotingFoods : Argument
argumentHealthPromotingFoods =
@ -9,13 +11,10 @@ argumentHealthPromotingFoods =
, propositionTitle = "All foods are definitionally health-promoting."
, propositionReductio = ""
, propositionSummary = "Given that food is, by its very definition, material that provides essential nutrients and energy to sustain bodily functions and growth, it follows that anything classified as food must be inherently health-promoting by its very nature."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(P)|=(Q)"
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(P)|=(Q)"
, argumentCertainty = 10
, argumentImage = "healthfoods"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,22 +1,20 @@
module Config.Pages.Debate.Arguments.Records.HealthSeeker exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthSeeker exposing (argumentHealthSeeker)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthSeeker : Argument
argumentHealthSeeker =
{ argumentTitle = toTitleCase "Ancestral Health Consistency Checker"
{ argumentTitle = toTitleCase "Ancestral Health Consistency Checker"
, propositionTitle = "If someone (who favours consuming ancestral foods to the exclusion of novel foods because they value reducing disease risk) is not in favour of consuming a novel food (that reduces disease risk when replacing an ancestral food), then that person would be acting against their values."
, propositionReductio = ""
, propositionSummary = "If someone values consuming ancestral foods over novel foods because they have the overall value of reducing disease risk, but a novel food reduces disease risk when replacing an ancestral food, they would be acting against their values by rejecting the novel food."
, proofLink = "https://www.umsu.de/trees/#(~7x(Px)~1~7y(Qy)~5~6x~6y(~3Rxy~5Sx)),(~7x(Px)),(~7y(Qy))|=(~6x~6y(~3Rxy~5Sx))"
, argumentCertainty = 10
, argumentImage = "healthseeker"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.HealthyChocolate exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyChocolate exposing (argumentHealthyChocolate)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthyChocolate : Argument
@ -14,8 +15,6 @@ argumentHealthyChocolate =
, argumentCertainty = 7
, argumentImage = "chocolate"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.HealthyDairy exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyDairy exposing (argumentHealthyDairy)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthyDairy : Argument
@ -14,8 +15,6 @@ argumentHealthyDairy =
, argumentCertainty = 7
, argumentImage = "dairy"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.HealthyFattyFish exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyFattyFish exposing (argumentHealthyFattyFish)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthyFattyFish : Argument
@ -14,8 +15,6 @@ argumentHealthyFattyFish =
, argumentCertainty = 8
, argumentImage = "fattyfish"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.HealthyFibre exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyFibre exposing (argumentHealthyFibre)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthyFibre : Argument
@ -11,12 +12,9 @@ argumentHealthyFibre =
, propositionReductio = ""
, propositionSummary = "Even when you account for factors that could plausibly influence the results, both refined and whole fibre have been shown to consistently reduce the risk of morbidity and mortality, strongly suggesting that they directly contribute to better health outcomes, particularly with respect to cardiovascular disease."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(Qb)|=(Pb)"
, argumentCertainty = 9
, argumentImage = "fibre"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.HealthyFood exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyFood exposing (argumentHealthyFood)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthyFood : Argument
@ -11,12 +12,9 @@ argumentHealthyFood =
, propositionReductio = ""
, propositionSummary = "A food is considered healthier than another in a specific context if it increases the time before illness or disease sets in when replacing the other food. On a desert island, since Pepsi can extend the time before starvation compared to leafy greens, it is considered healthier than leafy greens in that context."
, proofLink = "https://www.umsu.de/trees/#(~6x~6y~6z~6w(Pxyw~4Qwxzy)),(Qdpsl)|=(Ppld)"
, argumentCertainty = 10
, argumentImage = "foodsubstitution"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x,y,w)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.HealthyPlantFoods exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthyPlantFoods exposing (argumentHealthyPlantFoods)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthyPlantFoods : Argument
@ -14,8 +15,6 @@ argumentHealthyPlantFoods =
, argumentCertainty = 9
, argumentImage = "plantfoods"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.HealthySeedOils exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthySeedOils exposing (argumentHealthySeedOils)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthySeedOils : Argument
@ -14,8 +15,6 @@ argumentHealthySeedOils =
, argumentCertainty = 9
, argumentImage = "seedoils"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.HealthySoy exposing (..)
module Config.Pages.Debate.Arguments.Records.HealthySoy exposing (argumentHealthySoy)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentHealthySoy : Argument
@ -14,8 +15,6 @@ argumentHealthySoy =
, argumentCertainty = 7
, argumentImage = "soyproducts"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.ImmortalityReductio exposing (..)
module Config.Pages.Debate.Arguments.Records.ImmortalityReductio exposing (argumentImmortalityReductio)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentImmortalityReductio : Argument
@ -14,8 +15,6 @@ argumentImmortalityReductio =
, argumentCertainty = 10
, argumentImage = "immortality"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.LuigiTerrorist exposing (..)
module Config.Pages.Debate.Arguments.Records.LuigiTerrorist exposing (argumentLuigiTerrorist)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentLuigiTerrorist : Argument
@ -14,8 +15,6 @@ argumentLuigiTerrorist =
, argumentCertainty = 10
, argumentImage = "luigiterrorist"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.Malondialdehyde exposing (..)
module Config.Pages.Debate.Arguments.Records.Malondialdehyde exposing (argumentMalondialdehyde)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentMalondialdehyde : Argument
@ -14,8 +15,6 @@ argumentMalondialdehyde =
, argumentCertainty = 6
, argumentImage = "mda"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.OddOrderPredators exposing (..)
module Config.Pages.Debate.Arguments.Records.OddOrderPredators exposing (argumentOddOrderPredators)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentOddOrderPredators : Argument

View file

@ -1,7 +1,9 @@
module Config.Pages.Debate.Arguments.Records.Omega3Omega6Ratio exposing (..)
module Config.Pages.Debate.Arguments.Records.Omega3Omega6Ratio exposing (argumentOmega3Omega6Ratio)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentOmega3Omega6Ratio : Argument
argumentOmega3Omega6Ratio =
@ -9,13 +11,10 @@ argumentOmega3Omega6Ratio =
, propositionTitle = "The omega-6/omega-3 ratio is unlikely to matter for health."
, propositionReductio = ""
, propositionSummary = "More often than not, the associated risks of a high omega-6/omega-3 ratio are better explained by omega-3 alone. In multivariable analyses, the ratio looks like it matters, but in univariable anaylses, low omega-3 is almost always driving the risk via lowering the denominator."
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q)|=(~3P)"
, proofLink = "https://www.umsu.de/trees/#(P~5Q),(~3Q)|=(~3P)"
, argumentCertainty = 7
, argumentImage = "omega6omega3ratio"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.Ostroveganism exposing (..)
module Config.Pages.Debate.Arguments.Records.Ostroveganism exposing (argumentOstroveganism)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentOstroveganism : Argument
@ -14,8 +15,6 @@ argumentOstroveganism =
, argumentCertainty = 10
, argumentImage = "ostroveganism"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.PlantBasedCVDReversal exposing (..)
module Config.Pages.Debate.Arguments.Records.PlantBasedCVDReversal exposing (argumentPlantBasedCVDReversal)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentPlantBasedCVDReversal : Argument
@ -10,13 +11,10 @@ argumentPlantBasedCVDReversal =
, propositionTitle = "Plant-based diets do not appear to clinically reverse atherosclerosis."
, propositionReductio = ""
, propositionSummary = "To date, there is not a single case of supposed heart disease reversal from a plant-based diet that is actually compatible with established definitions of heart disease reversal in the literature."
, proofLink = "https://www.umsu.de/trees/#(P~1~3Q~5~3R),(P),(~3Q)|=(~3R)"
, proofLink = "https://www.umsu.de/trees/#(P~1~3Q~5~3R),(P),(~3Q)|=(~3R)"
, argumentCertainty = 8
, argumentImage = "plantbasedcvd"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.PollinationReductio exposing (..)
module Config.Pages.Debate.Arguments.Records.PollinationReductio exposing (argumentPollinationReductio)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentPollinationReductio : Argument
@ -14,8 +15,6 @@ argumentPollinationReductio =
, argumentCertainty = 10
, argumentImage = "pollinationreductio"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.PolyphenolReductio exposing (..)
module Config.Pages.Debate.Arguments.Records.PolyphenolReductio exposing (argumentPolyphenolReductio)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentPolyphenolReductio : Argument
@ -14,8 +15,6 @@ argumentPolyphenolReductio =
, argumentCertainty = 7
, argumentImage = "polyphenolreductio"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.ScratcherPioneers exposing (..)
module Config.Pages.Debate.Arguments.Records.ScratcherPioneers exposing (argumentScratcherPioneers)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentScratcherPioneers : Argument
@ -14,8 +15,6 @@ argumentScratcherPioneers =
, argumentCertainty = 10
, argumentImage = "tattooscratchers"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,9 @@
module Config.Pages.Debate.Arguments.Records.SodiumCVD exposing (..)
module Config.Pages.Debate.Arguments.Records.SodiumCVD exposing (argumentSodiumCVD)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentSodiumCVD : Argument
argumentSodiumCVD =
@ -9,13 +11,10 @@ argumentSodiumCVD =
, propositionTitle = "Higher intakes of sodium increases cardiovascular disease risk."
, propositionReductio = ""
, propositionSummary = "In all of the strongest analysis on the relationship between sodium intake and cardiovascular disease risk, there is a linear and proportional relationship. Particularly when the strongest measurement methods are used, such as multiple 24-hour urinary collections."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~1Q~5Rx)),(Ps),(Q)|=(Rs)"
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~1Q~5Rx)),(Ps),(Q)|=(Rs)"
, argumentCertainty = 9
, argumentImage = "sodiumcvd"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"
@ -27,7 +26,7 @@ argumentSodiumCVD =
, { definiendum = "R(x)"
, definiens = "higher intakes of substance (x) increases cardiovascular disease risk"
}
, { definiendum = "x"
, { definiendum = "x"
, definiens = "a substance"
}
, { definiendum = "s"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.TMAOCausality exposing (..)
module Config.Pages.Debate.Arguments.Records.TMAOCausality exposing (argumentTMAOCausality)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentTMAOCausality : Argument
@ -10,13 +11,10 @@ argumentTMAOCausality =
, propositionReductio = ""
, propositionTitle = "TMAO is not likely to be causative of heart disease."
, propositionSummary = "In the strongest research we have on the relationship between TMAO and heart disease risk, such as with Mendelian randomization and genome-wide associational studies, there is no persuasive causal link between TMAO in the blood and heart disease risk."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(~3Qt)|=(~3Pt)"
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~4Qx)),(~3Qt)|=(~3Pt)"
, argumentCertainty = 9
, argumentImage = "tmaocausality"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.Template exposing (..)
module Config.Pages.Debate.Arguments.Records.Template exposing (argument)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argument : Argument
@ -10,12 +11,10 @@ argument =
, propositionTitle = ""
, propositionReductio = ""
, propositionSummary = ""
, proofLink = ""
, proofLink = ""
, argumentCertainty = 1
, argumentImage = ""
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = ""

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.TransPeople exposing (..)
module Config.Pages.Debate.Arguments.Records.TransPeople exposing (argumentTransPeople)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentTransPeople : Argument
@ -14,8 +15,6 @@ argumentTransPeople =
, argumentCertainty = 10
, argumentImage = "transpeople"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "Male"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.TruncatedMeta exposing (..)
module Config.Pages.Debate.Arguments.Records.TruncatedMeta exposing (argumentTruncatedMeta)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentTruncatedMeta : Argument
@ -14,8 +15,6 @@ argumentTruncatedMeta =
, argumentCertainty = 7
, argumentImage = "truncatedmetas"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.UnhealthyCoconutOil exposing (..)
module Config.Pages.Debate.Arguments.Records.UnhealthyCoconutOil exposing (argumentUnhealthyCoconutOil)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentUnhealthyCoconutOil : Argument
@ -14,8 +15,6 @@ argumentUnhealthyCoconutOil =
, argumentCertainty = 9
, argumentImage = "coconutoil"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.UnhealthyProcessedMeat exposing (..)
module Config.Pages.Debate.Arguments.Records.UnhealthyProcessedMeat exposing (argumentUnhealthyProcessedMeat)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentUnhealthyProcessedMeat : Argument
@ -14,8 +15,6 @@ argumentUnhealthyProcessedMeat =
, argumentCertainty = 8
, argumentImage = "processedmeat"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.UnhealthyRedMeat exposing (..)
module Config.Pages.Debate.Arguments.Records.UnhealthyRedMeat exposing (argumentUnhealthyRedMeat)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentUnhealthyRedMeat : Argument
@ -14,8 +15,6 @@ argumentUnhealthyRedMeat =
, argumentCertainty = 7
, argumentImage = "redmeat"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.UnhealthySaturatedFat exposing (..)
module Config.Pages.Debate.Arguments.Records.UnhealthySaturatedFat exposing (argumentUnhealthySaturatedFat)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentUnhealthySaturatedFat : Argument
@ -14,8 +15,6 @@ argumentUnhealthySaturatedFat =
, argumentCertainty = 9
, argumentImage = "saturatedfat"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,7 +1,8 @@
module Config.Pages.Debate.Arguments.Records.VeganSocietyReductio exposing (..)
module Config.Pages.Debate.Arguments.Records.VeganSocietyReductio exposing (argumentVeganSocietyReductio)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (Argument)
argumentVeganSocietyReductio : Argument
@ -14,8 +15,6 @@ argumentVeganSocietyReductio =
, argumentCertainty = 10
, argumentImage = "vegansociety"
, argumentHashtags = []
, isNewTabLink = False
, definitionTable =
[ { definiendum = "P(x)"

View file

@ -1,6 +1,6 @@
module Config.Pages.Debate.Arguments.Types exposing (..)
module Config.Pages.Debate.Arguments.Types exposing (Argument)
import Config.Data.Hashtags.Types exposing (..)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
type alias Argument =

View file

@ -1,4 +1,4 @@
module Config.Pages.Debate.Cuckery.List exposing (..)
module Config.Pages.Debate.Cuckery.List exposing (cuckList)
import Config.Pages.Debate.Cuckery.Records.AdamSinger exposing (cuckAdamSinger)
import Config.Pages.Debate.Cuckery.Records.AmberOHearn exposing (cuckAmberOHearn)
@ -142,8 +142,3 @@ cuckList =
, cuckZoeHarcombe
, cuckZsofiaClemens
]
cuckListNumber : Int
cuckListNumber =
List.length cuckList

View file

@ -1,7 +1,16 @@
module Config.Pages.Debate.Cuckery.Records.AdamSinger exposing (..)
module Config.Pages.Debate.Cuckery.Records.AdamSinger exposing (cuckAdamSinger)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Pages.Debate.Cuckery.Types
exposing
( Cuck
, DodgeDescription(..)
, DodgeFallacies(..)
, DoxasticState(..)
, Evaluation(..)
, commonPropReasons
)
cuckAdamSinger : Cuck

View file

@ -1,7 +1,16 @@
module Config.Pages.Debate.Cuckery.Records.AmberOHearn exposing (..)
module Config.Pages.Debate.Cuckery.Records.AmberOHearn exposing (cuckAmberOHearn)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Pages.Debate.Cuckery.Types
exposing
( Cuck
, DodgeDescription(..)
, DodgeFallacies(..)
, DoxasticState(..)
, Evaluation(..)
, noProposition
)
cuckAmberOHearn : Cuck

View file

@ -1,7 +1,15 @@
module Config.Pages.Debate.Cuckery.Records.AnnChilders exposing (..)
module Config.Pages.Debate.Cuckery.Records.AnnChilders exposing (cuckAnnChilders)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Pages.Debate.Cuckery.Types
exposing
( Cuck
, DodgeDescription(..)
, DodgeFallacies(..)
, DoxasticState(..)
, Evaluation(..)
)
cuckAnnChilders : Cuck

View file

@ -1,7 +1,18 @@
module Config.Pages.Debate.Cuckery.Records.AnthonyGustin exposing (..)
module Config.Pages.Debate.Cuckery.Records.AnthonyGustin exposing (cuckAnthonyGustin)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Pages.Debate.Cuckery.Types
exposing
( Cuck
, DodgeDescription(..)
, DodgeFallacies(..)
, DoxasticState(..)
, Evaluation(..)
, commonPropReasons
, commonProps
, noProposition
)
cuckAnthonyGustin : Cuck

View file

@ -1,7 +1,15 @@
module Config.Pages.Debate.Cuckery.Records.AshwaniGarg exposing (..)
module Config.Pages.Debate.Cuckery.Records.AshwaniGarg exposing (cuckAshwaniGarg)
import Config.Data.Hashtags.Types exposing (Hashtags(..))
import Config.Helpers.Converters exposing (formatName)
import Config.Pages.Debate.Cuckery.Types exposing (..)
import Config.Pages.Debate.Cuckery.Types
exposing
( Cuck
, DodgeDescription(..)
, DodgeFallacies(..)
, DoxasticState(..)
, Evaluation(..)
)
cuckAshwaniGarg : Cuck

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