From 07b93302640c054832c9338574afcb612b4c2053 Mon Sep 17 00:00:00 2001 From: Nick Date: Thu, 2 Jan 2025 02:33:57 -0600 Subject: [PATCH] feat: v1 finally done? --- LICENSE | 0 frontend/src/Config/Data/Hashtags/Helpers.elm | 4 +- frontend/src/Config/Data/Hashtags/Types.elm | 2 +- frontend/src/Config/Data/Identity.elm | 2 +- .../Config/{Helpers => Data}/ImageFolders.elm | 6 +- frontend/src/Config/Data/Language.elm | 65 ++--- .../src/Config/Helpers/Articles/Article.elm | 57 ++-- .../Helpers/{ => Articles}/Markdown.elm | 72 ++--- .../src/Config/Helpers/Articles/Types.elm | 2 +- .../{Price.elm => Cards/Inner/BuyButton.elm} | 23 +- .../Config/Helpers/Cards/Inner/CopyButton.elm | 28 ++ .../Helpers/{ => Cards/Inner}/StrengthBar.elm | 33 ++- .../Cards/Inner/{Helpers.elm => Text.elm} | 190 ++++++++++--- .../Helpers/{ => Cards/Inner}/ToolTip.elm | 72 ++++- .../Config/Helpers/Cards/Outer/Helpers.elm | 185 ++++++++----- .../src/Config/Helpers/Cards/Outer/Types.elm | 10 +- frontend/src/Config/Helpers/Converters.elm | 7 +- frontend/src/Config/Helpers/Format.elm | 47 ---- .../src/Config/Helpers/Headers/Helpers.elm | 51 ++-- .../src/Config/Helpers/Headers/Records.elm | 23 +- frontend/src/Config/Helpers/Headers/Types.elm | 5 +- frontend/src/Config/Helpers/Response.elm | 29 +- frontend/src/Config/Helpers/ServiceFormat.elm | 261 ------------------ frontend/src/Config/Helpers/Viewport.elm | 7 +- .../Pages/Blog/Records/BigFatSurprise.elm | 4 +- .../Pages/Blog/Records/EverettVegans.elm | 4 +- .../Pages/Blog/Records/HunterGatherers.elm | 4 +- .../Pages/Blog/Records/MeatApologetics.elm | 6 +- .../Pages/Blog/Records/NagraGoodrich.elm | 4 +- .../Pages/Blog/Records/PlantBasedMeta.elm | 6 +- .../Pages/Blog/Records/QuackSmashing.elm | 6 +- .../Config/Pages/Blog/Records/SapienDiet.elm | 6 +- .../Config/Pages/Blog/Records/SeedOils.elm | 6 +- .../Config/Pages/Blog/Records/Shenangians.elm | 6 +- .../Pages/Blog/Records/SweetDeception.elm | 4 +- .../Config/Pages/Blog/Records/Template.elm | 4 +- frontend/src/Config/Pages/Blog/Types.elm | 4 +- frontend/src/Config/Pages/Contact/Records.elm | 34 +++ frontend/src/Config/Pages/Contact/Types.elm | 39 +-- .../Config/Pages/Debate/Arguments/List.elm | 2 +- .../Debate/Arguments/Records/Abortion.elm | 4 +- .../Debate/Arguments/Records/Agnosticism.elm | 7 +- .../Records/AgriculturalPredation.elm | 7 +- .../Debate/Arguments/Records/AnabolicKeto.elm | 7 +- .../Debate/Arguments/Records/AnimalRights.elm | 7 +- .../Records/AntagonisticPleiotropy.elm | 7 +- .../Arguments/Records/AntiRewilding.elm | 7 +- .../Arguments/Records/AntiVandalism.elm | 7 +- .../Debate/Arguments/Records/ApoBCVD.elm | 7 +- .../Arguments/Records/BoobyTrapPagers.elm | 7 +- .../Debate/Arguments/Records/CarbsObesity.elm | 12 +- .../Arguments/Records/CateUpfReductio.elm | 7 +- .../Arguments/Records/ColonizingNature.elm | 5 +- .../Debate/Arguments/Records/CropDeaths.elm | 12 +- .../Debate/Arguments/Records/DairyCowRape.elm | 7 +- .../Arguments/Records/DietaryCholesterol.elm | 7 +- .../Pages/Debate/Arguments/Records/Dummy.elm | 6 +- .../Arguments/Records/EfilismPatrolSquad.elm | 7 +- .../Records/EpidemiologyCausality.elm | 8 +- .../Debate/Arguments/Records/EthicalSlurs.elm | 7 +- .../Debate/Arguments/Records/FineTuning.elm | 7 +- .../Arguments/Records/FlatEarthDebunk.elm | 7 +- .../Arguments/Records/FructoseNAFLD.elm | 7 +- .../Records/HealthPromotingFoods.elm | 11 +- .../Debate/Arguments/Records/HealthSeeker.elm | 12 +- .../Arguments/Records/HealthyChocolate.elm | 7 +- .../Debate/Arguments/Records/HealthyDairy.elm | 7 +- .../Arguments/Records/HealthyFattyFish.elm | 7 +- .../Debate/Arguments/Records/HealthyFibre.elm | 8 +- .../Debate/Arguments/Records/HealthyFood.elm | 8 +- .../Arguments/Records/HealthyPlantFoods.elm | 7 +- .../Arguments/Records/HealthySeedOils.elm | 7 +- .../Debate/Arguments/Records/HealthySoy.elm | 7 +- .../Arguments/Records/ImmortalityReductio.elm | 7 +- .../Arguments/Records/LuigiTerrorist.elm | 7 +- .../Arguments/Records/Malondialdehyde.elm | 7 +- .../Arguments/Records/OddOrderPredators.elm | 5 +- .../Arguments/Records/Omega3Omega6Ratio.elm | 13 +- .../Arguments/Records/Ostroveganism.elm | 7 +- .../Records/PlantBasedCVDReversal.elm | 12 +- .../Arguments/Records/PollinationReductio.elm | 7 +- .../Arguments/Records/PolyphenolReductio.elm | 7 +- .../Arguments/Records/ScratcherPioneers.elm | 7 +- .../Debate/Arguments/Records/SodiumCVD.elm | 13 +- .../Arguments/Records/TMAOCausality.elm | 12 +- .../Debate/Arguments/Records/Template.elm | 9 +- .../Debate/Arguments/Records/TransPeople.elm | 7 +- .../Arguments/Records/TruncatedMeta.elm | 7 +- .../Arguments/Records/UnhealthyCoconutOil.elm | 7 +- .../Records/UnhealthyProcessedMeat.elm | 7 +- .../Arguments/Records/UnhealthyRedMeat.elm | 7 +- .../Records/UnhealthySaturatedFat.elm | 7 +- .../Records/VeganSocietyReductio.elm | 7 +- .../Config/Pages/Debate/Arguments/Types.elm | 4 +- .../src/Config/Pages/Debate/Cuckery/List.elm | 7 +- .../Debate/Cuckery/Records/AdamSinger.elm | 13 +- .../Debate/Cuckery/Records/AmberOHearn.elm | 13 +- .../Debate/Cuckery/Records/AnnChilders.elm | 12 +- .../Debate/Cuckery/Records/AnthonyGustin.elm | 15 +- .../Debate/Cuckery/Records/AshwaniGarg.elm | 12 +- .../Debate/Cuckery/Records/AustinHerbert.elm | 13 +- .../Pages/Debate/Cuckery/Records/BartKay.elm | 13 +- .../Debate/Cuckery/Records/BenBikman.elm | 13 +- .../Debate/Cuckery/Records/BennyMalone.elm | 12 +- .../Debate/Cuckery/Records/BradCampbell.elm | 13 +- .../Pages/Debate/Cuckery/Records/BradCohn.elm | 14 +- .../Debate/Cuckery/Records/BradMarshall.elm | 14 +- .../Debate/Cuckery/Records/BretWeinstein.elm | 13 +- .../Debate/Cuckery/Records/BrianKerley.elm | 14 +- .../Cuckery/Records/CarnivoreAurelius.elm | 13 +- .../Debate/Cuckery/Records/CateShanahan.elm | 14 +- .../Debate/Cuckery/Records/ChrisBoettcher.elm | 13 +- .../Debate/Cuckery/Records/ClaraAboel.elm | 13 +- .../Debate/Cuckery/Records/CliffHarvey.elm | 13 +- .../Debate/Cuckery/Records/DaveFeldman.elm | 13 +- .../Debate/Cuckery/Records/DavidDiamond.elm | 13 +- .../Debate/Cuckery/Records/DavidGornoski.elm | 13 +- .../Debate/Cuckery/Records/DianaRodgers.elm | 13 +- .../Debate/Cuckery/Records/EdwardGoeke.elm | 13 +- .../Debate/Cuckery/Records/ElieJarrouge.elm | 12 +- .../Debate/Cuckery/Records/GaryBrecka.elm | 13 +- .../Debate/Cuckery/Records/GaryFettke.elm | 14 +- .../Debate/Cuckery/Records/GaryTaubes.elm | 14 +- .../Debate/Cuckery/Records/GeorgeMartin.elm | 15 +- .../Debate/Cuckery/Records/GuyAustin.elm | 15 +- .../Debate/Cuckery/Records/IvorCummins.elm | 17 +- .../Pages/Debate/Cuckery/Records/JakeMey.elm | 12 +- .../Cuckery/Records/JamesDiNicolantonio.elm | 16 +- .../Debate/Cuckery/Records/JosephEverett.elm | 13 +- .../Debate/Cuckery/Records/JustinMares.elm | 15 +- .../Debate/Cuckery/Records/KaitMalthaner.elm | 15 +- .../Debate/Cuckery/Records/KemMinnick.elm | 14 +- .../Pages/Debate/Cuckery/Records/KenBerry.elm | 14 +- .../Debate/Cuckery/Records/KevinStock.elm | 14 +- .../Debate/Cuckery/Records/KyleMamounis.elm | 15 +- .../Debate/Cuckery/Records/MarkSisson.elm | 15 +- .../Debate/Cuckery/Records/MartyKendall.elm | 14 +- .../Debate/Cuckery/Records/MaxLugavere.elm | 13 +- .../Debate/Cuckery/Records/MichaelKummer.elm | 15 +- .../Cuckery/Records/MichaelManderville.elm | 13 +- .../Debate/Cuckery/Records/MikeMutzel.elm | 13 +- .../Debate/Cuckery/Records/MikeSweeney.elm | 19 +- .../Debate/Cuckery/Records/NickEggleton.elm | 14 +- .../Debate/Cuckery/Records/NinaTeicholz.elm | 13 +- .../Debate/Cuckery/Records/NorstrongChris.elm | 18 +- .../Debate/Cuckery/Records/PaulMason.elm | 15 +- .../Debate/Cuckery/Records/PaulSaladino.elm | 15 +- .../Debate/Cuckery/Records/PhilipOvadia.elm | 14 +- .../Cuckery/Records/PhilippeStephenson.elm | 13 +- .../Cuckery/Records/RalphNapolitano.elm | 12 +- .../Debate/Cuckery/Records/RaphaelSirtoli.elm | 14 +- .../Debate/Cuckery/Records/RobMeijer.elm | 15 +- .../Pages/Debate/Cuckery/Records/RobbWolf.elm | 15 +- .../Cuckery/Records/SebastianRamirez.elm | 14 +- .../Debate/Cuckery/Records/ShawnBaker.elm | 15 +- .../Debate/Cuckery/Records/SimonGoddek.elm | 13 +- .../Pages/Debate/Cuckery/Records/Template.elm | 14 +- .../Debate/Cuckery/Records/TomDayspring.elm | 13 +- .../Debate/Cuckery/Records/TravisStatham.elm | 13 +- .../Debate/Cuckery/Records/TristanHaggard.elm | 14 +- .../Debate/Cuckery/Records/TroKalayjian.elm | 16 +- .../Debate/Cuckery/Records/TuckerGoodrich.elm | 22 +- .../Debate/Cuckery/Records/ZoeHarcombe.elm | 13 +- .../Debate/Cuckery/Records/ZsofiaClemens.elm | 13 +- .../src/Config/Pages/Debate/Cuckery/Types.elm | 23 +- .../Config/Pages/Debate/Gibberish/List.elm | 2 +- .../Debate/Gibberish/Records/Epistemology.elm | 10 +- .../Debate/Gibberish/Records/Metaphysics.elm | 10 +- .../Debate/Gibberish/Records/Normativity.elm | 10 +- .../Debate/Gibberish/Records/Ontology.elm | 10 +- .../Gibberish/Records/PhilOfLanguage.elm | 10 +- .../Debate/Gibberish/Records/PhilOfMind.elm | 10 +- .../Debate/Gibberish/Records/Theology.elm | 10 +- .../Config/Pages/Debate/Gibberish/Types.elm | 6 +- frontend/src/Config/Pages/Debate/Types.elm | 2 +- .../Config/Pages/Donate/Records/Cardano.elm | 5 +- .../src/Config/Pages/Donate/Records/KoFi.elm | 5 +- .../Config/Pages/Donate/Records/LiberaPay.elm | 5 +- .../src/Config/Pages/Donate/Records/Merch.elm | 5 +- .../Config/Pages/Donate/Records/Patreon.elm | 5 +- .../Config/Pages/Donate/Records/PayPal.elm | 5 +- .../Config/Pages/Donate/Records/Stripe.elm | 5 +- .../Config/Pages/Donate/Records/Template.elm | 5 +- .../Config/Pages/Donate/Records/YouTube.elm | 5 +- frontend/src/Config/Pages/Donate/Types.elm | 7 +- .../Records/DrShawnBakerPodcast.elm | 5 +- .../Interviews/Records/FitAndFurious.elm | 5 +- .../Interviews/Records/FoolproofMastery.elm | 5 +- .../Interviews/Records/KetogeeksPodcast.elm | 5 +- .../Records/LegendaryLifePodcast.elm | 5 +- .../Records/MarkBellsPowerProject.elm | 5 +- .../Records/MuscleMemoirsPodcast.elm | 5 +- .../Records/SigmaNutritionRadio.elm | 5 +- .../Records/StrenuousLifePodcast.elm | 5 +- .../Pages/Interviews/Records/Template.elm | 5 +- .../src/Config/Pages/Interviews/Types.elm | 14 +- .../Pages/Products/Records/NutriDex.elm | 6 +- frontend/src/Config/Pages/Products/Types.elm | 5 +- .../Pages/Services/Records/DebateAnalysis.elm | 57 +--- .../Pages/Services/Records/DebateCoaching.elm | 76 +---- .../Pages/Services/Records/ElmBuilds.elm | 87 +----- .../Pages/Services/Records/NixBuilds.elm | 86 +----- .../Services/Records/NutritionScience.elm | 55 +--- frontend/src/Config/Pages/Services/Types.elm | 54 +--- frontend/src/Config/Style/Colour/Helpers.elm | 7 +- frontend/src/Config/Style/Colour/Types.elm | 5 +- frontend/src/Config/Style/Fonts.elm | 46 ++- frontend/src/Config/Style/Glow.elm | 15 +- frontend/src/Config/Style/Icons/Helpers.elm | 9 +- frontend/src/Config/Style/Icons/Icons.elm | 80 +++++- frontend/src/Config/Style/Icons/Types.elm | 5 +- frontend/src/Config/Style/Images.elm | 33 ++- frontend/src/Layouts/Navbar.elm | 59 +--- frontend/src/Pages/Blog.elm | 54 ++-- frontend/src/Pages/Blog/Bigfatsurprise.elm | 11 +- frontend/src/Pages/Blog/Everettvegans.elm | 20 +- frontend/src/Pages/Blog/Huntergatherers.elm | 19 +- frontend/src/Pages/Blog/Meatapologetics.elm | 11 +- frontend/src/Pages/Blog/Nagragoodrich.elm | 12 +- frontend/src/Pages/Blog/Plantbasedmeta.elm | 11 +- frontend/src/Pages/Blog/Quacksmashing.elm | 11 +- frontend/src/Pages/Blog/Sapiendiet.elm | 11 +- frontend/src/Pages/Blog/Seedoils.elm | 11 +- frontend/src/Pages/Blog/Shenanigans.elm | 15 +- frontend/src/Pages/Blog/Sweetdeception.elm | 11 +- frontend/src/Pages/Contact.elm | 66 +++-- frontend/src/Pages/Contact/Criticism.elm | 88 +++--- frontend/src/Pages/Contact/Inquiry.elm | 52 ++-- frontend/src/Pages/Debate.elm | 63 +++-- frontend/src/Pages/Debate/Arguments.elm | 236 ++++++++++++---- frontend/src/Pages/Debate/Cucklist.elm | 232 ++++++++++++---- frontend/src/Pages/Debate/Gibberish.elm | 111 +++++--- frontend/src/Pages/Donate.elm | 110 +++++--- frontend/src/Pages/Home_.elm | 48 +++- frontend/src/Pages/Interviews.elm | 90 ++++-- frontend/src/Pages/NotFound_.elm | 19 +- frontend/src/Pages/Nutridex.elm | 127 ++++----- frontend/src/Pages/Services.elm | 74 +++-- frontend/src/Pages/Services/Analysis.elm | 39 ++- frontend/src/Pages/Services/Coaching.elm | 32 +-- frontend/src/Pages/Services/Elm.elm | 51 ++-- frontend/src/Pages/Services/Nix.elm | 51 ++-- frontend/src/Pages/Services/Nutrition.elm | 31 +-- frontend/src/Ports.elm | 5 +- frontend/src/interop.ts | 8 + 245 files changed, 3140 insertions(+), 2197 deletions(-) mode change 100644 => 100755 LICENSE rename frontend/src/Config/{Helpers => Data}/ImageFolders.elm (90%) rename frontend/src/Config/Helpers/{ => Articles}/Markdown.elm (90%) rename frontend/src/Config/Helpers/{Price.elm => Cards/Inner/BuyButton.elm} (78%) create mode 100755 frontend/src/Config/Helpers/Cards/Inner/CopyButton.elm rename frontend/src/Config/Helpers/{ => Cards/Inner}/StrengthBar.elm (54%) rename frontend/src/Config/Helpers/Cards/Inner/{Helpers.elm => Text.elm} (56%) rename frontend/src/Config/Helpers/{ => Cards/Inner}/ToolTip.elm (66%) delete mode 100755 frontend/src/Config/Helpers/Format.elm delete mode 100755 frontend/src/Config/Helpers/ServiceFormat.elm create mode 100644 frontend/src/Config/Pages/Contact/Records.elm diff --git a/LICENSE b/LICENSE old mode 100644 new mode 100755 diff --git a/frontend/src/Config/Data/Hashtags/Helpers.elm b/frontend/src/Config/Data/Hashtags/Helpers.elm index bd8c395..4fec7b5 100755 --- a/frontend/src/Config/Data/Hashtags/Helpers.elm +++ b/frontend/src/Config/Data/Hashtags/Helpers.elm @@ -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 diff --git a/frontend/src/Config/Data/Hashtags/Types.elm b/frontend/src/Config/Data/Hashtags/Types.elm index a826822..8f20474 100755 --- a/frontend/src/Config/Data/Hashtags/Types.elm +++ b/frontend/src/Config/Data/Hashtags/Types.elm @@ -1,4 +1,4 @@ -module Config.Data.Hashtags.Types exposing (..) +module Config.Data.Hashtags.Types exposing (Hashtags(..)) type Hashtags diff --git a/frontend/src/Config/Data/Identity.elm b/frontend/src/Config/Data/Identity.elm index a42099e..050a060 100755 --- a/frontend/src/Config/Data/Identity.elm +++ b/frontend/src/Config/Data/Identity.elm @@ -1,4 +1,4 @@ -module Config.Data.Identity exposing (..) +module Config.Data.Identity exposing (pageNames) type alias PageInput = diff --git a/frontend/src/Config/Helpers/ImageFolders.elm b/frontend/src/Config/Data/ImageFolders.elm similarity index 90% rename from frontend/src/Config/Helpers/ImageFolders.elm rename to frontend/src/Config/Data/ImageFolders.elm index 43caa17..8938375 100755 --- a/frontend/src/Config/Helpers/ImageFolders.elm +++ b/frontend/src/Config/Data/ImageFolders.elm @@ -1,4 +1,8 @@ -module Config.Helpers.ImageFolders exposing (..) +module Config.Data.ImageFolders exposing + ( ImageFolder(..) + , getImageFolderString + , imagePathMaker + ) imagePathMaker : ImageFolder -> String -> String diff --git a/frontend/src/Config/Data/Language.elm b/frontend/src/Config/Data/Language.elm index 4cbddea..30ff70a 100755 --- a/frontend/src/Config/Data/Language.elm +++ b/frontend/src/Config/Data/Language.elm @@ -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 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 } diff --git a/frontend/src/Config/Helpers/Articles/Article.elm b/frontend/src/Config/Helpers/Articles/Article.elm index 048a1eb..6fe1533 100755 --- a/frontend/src/Config/Helpers/Articles/Article.elm +++ b/frontend/src/Config/Helpers/Articles/Article.elm @@ -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 ] diff --git a/frontend/src/Config/Helpers/Markdown.elm b/frontend/src/Config/Helpers/Articles/Markdown.elm similarity index 90% rename from frontend/src/Config/Helpers/Markdown.elm rename to frontend/src/Config/Helpers/Articles/Markdown.elm index 5fa35d3..6d33885 100755 --- a/frontend/src/Config/Helpers/Markdown.elm +++ b/frontend/src/Config/Helpers/Articles/Markdown.elm @@ -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)) diff --git a/frontend/src/Config/Helpers/Articles/Types.elm b/frontend/src/Config/Helpers/Articles/Types.elm index 133b79c..32ec998 100755 --- a/frontend/src/Config/Helpers/Articles/Types.elm +++ b/frontend/src/Config/Helpers/Articles/Types.elm @@ -1,4 +1,4 @@ -module Config.Helpers.Articles.Types exposing (..) +module Config.Helpers.Articles.Types exposing (References) type alias References = diff --git a/frontend/src/Config/Helpers/Price.elm b/frontend/src/Config/Helpers/Cards/Inner/BuyButton.elm similarity index 78% rename from frontend/src/Config/Helpers/Price.elm rename to frontend/src/Config/Helpers/Cards/Inner/BuyButton.elm index 43a0b89..d87ad73 100755 --- a/frontend/src/Config/Helpers/Price.elm +++ b/frontend/src/Config/Helpers/Cards/Inner/BuyButton.elm @@ -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 diff --git a/frontend/src/Config/Helpers/Cards/Inner/CopyButton.elm b/frontend/src/Config/Helpers/Cards/Inner/CopyButton.elm new file mode 100755 index 0000000..16e3490 --- /dev/null +++ b/frontend/src/Config/Helpers/Cards/Inner/CopyButton.elm @@ -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 = [] \ No newline at end of file diff --git a/frontend/src/Config/Helpers/StrengthBar.elm b/frontend/src/Config/Helpers/Cards/Inner/StrengthBar.elm similarity index 54% rename from frontend/src/Config/Helpers/StrengthBar.elm rename to frontend/src/Config/Helpers/Cards/Inner/StrengthBar.elm index 6c05a73..9b5d21f 100755 --- a/frontend/src/Config/Helpers/StrengthBar.elm +++ b/frontend/src/Config/Helpers/Cards/Inner/StrengthBar.elm @@ -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 ] diff --git a/frontend/src/Config/Helpers/Cards/Inner/Helpers.elm b/frontend/src/Config/Helpers/Cards/Inner/Text.elm similarity index 56% rename from frontend/src/Config/Helpers/Cards/Inner/Helpers.elm rename to frontend/src/Config/Helpers/Cards/Inner/Text.elm index 2be8c31..781df9d 100755 --- a/frontend/src/Config/Helpers/Cards/Inner/Helpers.elm +++ b/frontend/src/Config/Helpers/Cards/Inner/Text.elm @@ -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) ] + ] diff --git a/frontend/src/Config/Helpers/ToolTip.elm b/frontend/src/Config/Helpers/Cards/Inner/ToolTip.elm similarity index 66% rename from frontend/src/Config/Helpers/ToolTip.elm rename to frontend/src/Config/Helpers/Cards/Inner/ToolTip.elm index a06a232..92771aa 100755 --- a/frontend/src/Config/Helpers/ToolTip.elm +++ b/frontend/src/Config/Helpers/Cards/Inner/ToolTip.elm @@ -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 diff --git a/frontend/src/Config/Helpers/Cards/Outer/Helpers.elm b/frontend/src/Config/Helpers/Cards/Outer/Helpers.elm index 0b2a035..0eb6574 100755 --- a/frontend/src/Config/Helpers/Cards/Outer/Helpers.elm +++ b/frontend/src/Config/Helpers/Cards/Outer/Helpers.elm @@ -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 diff --git a/frontend/src/Config/Helpers/Cards/Outer/Types.elm b/frontend/src/Config/Helpers/Cards/Outer/Types.elm index 21617c3..13a02d0 100755 --- a/frontend/src/Config/Helpers/Cards/Outer/Types.elm +++ b/frontend/src/Config/Helpers/Cards/Outer/Types.elm @@ -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 diff --git a/frontend/src/Config/Helpers/Converters.elm b/frontend/src/Config/Helpers/Converters.elm index b38fb36..e1f0aa3 100755 --- a/frontend/src/Config/Helpers/Converters.elm +++ b/frontend/src/Config/Helpers/Converters.elm @@ -1,4 +1,9 @@ -module Config.Helpers.Converters exposing (..) +module Config.Helpers.Converters exposing + ( formatName + , formatSocial + , toTitleCase + , wordCount + ) formatName : String -> String diff --git a/frontend/src/Config/Helpers/Format.elm b/frontend/src/Config/Helpers/Format.elm deleted file mode 100755 index 62eef55..0000000 --- a/frontend/src/Config/Helpers/Format.elm +++ /dev/null @@ -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 diff --git a/frontend/src/Config/Helpers/Headers/Helpers.elm b/frontend/src/Config/Helpers/Headers/Helpers.elm index 6b0ab87..5ccb198 100755 --- a/frontend/src/Config/Helpers/Headers/Helpers.elm +++ b/frontend/src/Config/Helpers/Headers/Helpers.elm @@ -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 ] <| diff --git a/frontend/src/Config/Helpers/Headers/Records.elm b/frontend/src/Config/Helpers/Headers/Records.elm index 42eabea..e6ed014 100755 --- a/frontend/src/Config/Helpers/Headers/Records.elm +++ b/frontend/src/Config/Helpers/Headers/Records.elm @@ -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 diff --git a/frontend/src/Config/Helpers/Headers/Types.elm b/frontend/src/Config/Helpers/Headers/Types.elm index 3792a2f..32151d2 100755 --- a/frontend/src/Config/Helpers/Headers/Types.elm +++ b/frontend/src/Config/Helpers/Headers/Types.elm @@ -1,4 +1,7 @@ -module Config.Helpers.Headers.Types exposing (..) +module Config.Helpers.Headers.Types exposing + ( Header + , Headerable(..) + ) import Element exposing (Element) diff --git a/frontend/src/Config/Helpers/Response.elm b/frontend/src/Config/Helpers/Response.elm index 4629d1d..9a47a34 100755 --- a/frontend/src/Config/Helpers/Response.elm +++ b/frontend/src/Config/Helpers/Response.elm @@ -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) diff --git a/frontend/src/Config/Helpers/ServiceFormat.elm b/frontend/src/Config/Helpers/ServiceFormat.elm deleted file mode 100755 index 28a3284..0000000 --- a/frontend/src/Config/Helpers/ServiceFormat.elm +++ /dev/null @@ -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 diff --git a/frontend/src/Config/Helpers/Viewport.elm b/frontend/src/Config/Helpers/Viewport.elm index 3bb61c8..0d9d44f 100755 --- a/frontend/src/Config/Helpers/Viewport.elm +++ b/frontend/src/Config/Helpers/Viewport.elm @@ -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 diff --git a/frontend/src/Config/Pages/Blog/Records/BigFatSurprise.elm b/frontend/src/Config/Pages/Blog/Records/BigFatSurprise.elm index afdb15e..d988ccd 100755 --- a/frontend/src/Config/Pages/Blog/Records/BigFatSurprise.elm +++ b/frontend/src/Config/Pages/Blog/Records/BigFatSurprise.elm @@ -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 diff --git a/frontend/src/Config/Pages/Blog/Records/EverettVegans.elm b/frontend/src/Config/Pages/Blog/Records/EverettVegans.elm index 53be694..4b8460a 100755 --- a/frontend/src/Config/Pages/Blog/Records/EverettVegans.elm +++ b/frontend/src/Config/Pages/Blog/Records/EverettVegans.elm @@ -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 diff --git a/frontend/src/Config/Pages/Blog/Records/HunterGatherers.elm b/frontend/src/Config/Pages/Blog/Records/HunterGatherers.elm index 7f5078a..b92f09e 100755 --- a/frontend/src/Config/Pages/Blog/Records/HunterGatherers.elm +++ b/frontend/src/Config/Pages/Blog/Records/HunterGatherers.elm @@ -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 diff --git a/frontend/src/Config/Pages/Blog/Records/MeatApologetics.elm b/frontend/src/Config/Pages/Blog/Records/MeatApologetics.elm index 182bfc7..b66a993 100755 --- a/frontend/src/Config/Pages/Blog/Records/MeatApologetics.elm +++ b/frontend/src/Config/Pages/Blog/Records/MeatApologetics.elm @@ -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" diff --git a/frontend/src/Config/Pages/Blog/Records/NagraGoodrich.elm b/frontend/src/Config/Pages/Blog/Records/NagraGoodrich.elm index 1490f92..8c92c64 100755 --- a/frontend/src/Config/Pages/Blog/Records/NagraGoodrich.elm +++ b/frontend/src/Config/Pages/Blog/Records/NagraGoodrich.elm @@ -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 diff --git a/frontend/src/Config/Pages/Blog/Records/PlantBasedMeta.elm b/frontend/src/Config/Pages/Blog/Records/PlantBasedMeta.elm index f41b395..f23d7d0 100755 --- a/frontend/src/Config/Pages/Blog/Records/PlantBasedMeta.elm +++ b/frontend/src/Config/Pages/Blog/Records/PlantBasedMeta.elm @@ -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" diff --git a/frontend/src/Config/Pages/Blog/Records/QuackSmashing.elm b/frontend/src/Config/Pages/Blog/Records/QuackSmashing.elm index b1b33e8..0ab3b49 100755 --- a/frontend/src/Config/Pages/Blog/Records/QuackSmashing.elm +++ b/frontend/src/Config/Pages/Blog/Records/QuackSmashing.elm @@ -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" diff --git a/frontend/src/Config/Pages/Blog/Records/SapienDiet.elm b/frontend/src/Config/Pages/Blog/Records/SapienDiet.elm index 272f0e1..7769f2f 100755 --- a/frontend/src/Config/Pages/Blog/Records/SapienDiet.elm +++ b/frontend/src/Config/Pages/Blog/Records/SapienDiet.elm @@ -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" diff --git a/frontend/src/Config/Pages/Blog/Records/SeedOils.elm b/frontend/src/Config/Pages/Blog/Records/SeedOils.elm index b92afbc..df55b67 100755 --- a/frontend/src/Config/Pages/Blog/Records/SeedOils.elm +++ b/frontend/src/Config/Pages/Blog/Records/SeedOils.elm @@ -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" diff --git a/frontend/src/Config/Pages/Blog/Records/Shenangians.elm b/frontend/src/Config/Pages/Blog/Records/Shenangians.elm index c23c6cb..9e96a23 100755 --- a/frontend/src/Config/Pages/Blog/Records/Shenangians.elm +++ b/frontend/src/Config/Pages/Blog/Records/Shenangians.elm @@ -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" diff --git a/frontend/src/Config/Pages/Blog/Records/SweetDeception.elm b/frontend/src/Config/Pages/Blog/Records/SweetDeception.elm index e758a81..7f17f5e 100755 --- a/frontend/src/Config/Pages/Blog/Records/SweetDeception.elm +++ b/frontend/src/Config/Pages/Blog/Records/SweetDeception.elm @@ -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 diff --git a/frontend/src/Config/Pages/Blog/Records/Template.elm b/frontend/src/Config/Pages/Blog/Records/Template.elm index 4fd25b9..fcb7735 100755 --- a/frontend/src/Config/Pages/Blog/Records/Template.elm +++ b/frontend/src/Config/Pages/Blog/Records/Template.elm @@ -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 diff --git a/frontend/src/Config/Pages/Blog/Types.elm b/frontend/src/Config/Pages/Blog/Types.elm index 7a384b4..782a2ec 100755 --- a/frontend/src/Config/Pages/Blog/Types.elm +++ b/frontend/src/Config/Pages/Blog/Types.elm @@ -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 = diff --git a/frontend/src/Config/Pages/Contact/Records.elm b/frontend/src/Config/Pages/Contact/Records.elm new file mode 100644 index 0000000..d31b0af --- /dev/null +++ b/frontend/src/Config/Pages/Contact/Records.elm @@ -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 + } diff --git a/frontend/src/Config/Pages/Contact/Types.elm b/frontend/src/Config/Pages/Contact/Types.elm index c296318..22f9fb1 100755 --- a/frontend/src/Config/Pages/Contact/Types.elm +++ b/frontend/src/Config/Pages/Contact/Types.elm @@ -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 - } diff --git a/frontend/src/Config/Pages/Debate/Arguments/List.elm b/frontend/src/Config/Pages/Debate/Arguments/List.elm index 9df9e79..2a28de9 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/List.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/List.elm @@ -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) diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/Abortion.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/Abortion.elm index b239c7f..bde3e63 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/Abortion.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/Abortion.elm @@ -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 diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/Agnosticism.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/Agnosticism.elm index 208e27f..8944015 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/Agnosticism.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/Agnosticism.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/AgriculturalPredation.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/AgriculturalPredation.elm index ae8f7a6..50f99e2 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/AgriculturalPredation.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/AgriculturalPredation.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/AnabolicKeto.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/AnabolicKeto.elm index 2a4e56e..af9b24a 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/AnabolicKeto.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/AnabolicKeto.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/AnimalRights.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/AnimalRights.elm index e61d7e5..7c824fa 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/AnimalRights.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/AnimalRights.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/AntagonisticPleiotropy.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/AntagonisticPleiotropy.elm index 19c854d..87cdcec 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/AntagonisticPleiotropy.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/AntagonisticPleiotropy.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/AntiRewilding.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/AntiRewilding.elm index 4f28bd9..6266515 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/AntiRewilding.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/AntiRewilding.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/AntiVandalism.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/AntiVandalism.elm index db13671..c98e8f8 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/AntiVandalism.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/AntiVandalism.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/ApoBCVD.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/ApoBCVD.elm index 01d068c..ce57e82 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/ApoBCVD.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/ApoBCVD.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/BoobyTrapPagers.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/BoobyTrapPagers.elm index 87f188a..2f12dcc 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/BoobyTrapPagers.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/BoobyTrapPagers.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/CarbsObesity.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/CarbsObesity.elm index 50efbcd..5a8c826 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/CarbsObesity.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/CarbsObesity.elm @@ -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" @@ -39,4 +37,4 @@ argumentCarbsObesity = , conclusionNotation = "¬P" } ] - } \ No newline at end of file + } diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/CateUpfReductio.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/CateUpfReductio.elm index ce75f63..7f1794a 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/CateUpfReductio.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/CateUpfReductio.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/ColonizingNature.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/ColonizingNature.elm index 6bf43a0..3927e65 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/ColonizingNature.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/ColonizingNature.elm @@ -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 diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/CropDeaths.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/CropDeaths.elm index a907e71..cab54f2 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/CropDeaths.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/CropDeaths.elm @@ -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" @@ -39,4 +37,4 @@ argumentCropDeaths = , conclusionNotation = "¬P" } ] - } \ No newline at end of file + } diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/DairyCowRape.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/DairyCowRape.elm index be4a29b..2ed5b5f 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/DairyCowRape.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/DairyCowRape.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/DietaryCholesterol.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/DietaryCholesterol.elm index 1078adc..19c13f3 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/DietaryCholesterol.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/DietaryCholesterol.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/Dummy.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/Dummy.elm index ac919d1..1580444 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/Dummy.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/Dummy.elm @@ -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 = "" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/EfilismPatrolSquad.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/EfilismPatrolSquad.elm index 0d42685..69e655d 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/EfilismPatrolSquad.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/EfilismPatrolSquad.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/EpidemiologyCausality.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/EpidemiologyCausality.elm index b2e899c..4236b15 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/EpidemiologyCausality.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/EpidemiologyCausality.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/EthicalSlurs.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/EthicalSlurs.elm index 241ccd8..0c0fefa 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/EthicalSlurs.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/EthicalSlurs.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/FineTuning.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/FineTuning.elm index 21826df..ebf8133 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/FineTuning.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/FineTuning.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/FlatEarthDebunk.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/FlatEarthDebunk.elm index b49851a..a09b4e3 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/FlatEarthDebunk.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/FlatEarthDebunk.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/FructoseNAFLD.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/FructoseNAFLD.elm index ef593e0..7ce5c49 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/FructoseNAFLD.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/FructoseNAFLD.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthPromotingFoods.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthPromotingFoods.elm index 1efc749..fdcb2f2 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthPromotingFoods.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthPromotingFoods.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthSeeker.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthSeeker.elm index 30f7736..9cb8d6a 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthSeeker.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthSeeker.elm @@ -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)" @@ -54,4 +52,4 @@ argumentHealthSeeker = , conclusionNotation = "∀x∀y(¬Rxy→Sx)" } ] - } \ No newline at end of file + } diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyChocolate.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyChocolate.elm index a05977d..5875dfe 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyChocolate.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyChocolate.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyDairy.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyDairy.elm index c191ffe..f47b502 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyDairy.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyDairy.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFattyFish.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFattyFish.elm index f0f3953..a288a2f 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFattyFish.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFattyFish.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFibre.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFibre.elm index 0dac59c..08b1848 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFibre.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFibre.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFood.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFood.elm index 8e89d55..1fbae59 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFood.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyFood.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyPlantFoods.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyPlantFoods.elm index e326700..8259635 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyPlantFoods.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthyPlantFoods.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthySeedOils.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthySeedOils.elm index 8eaf126..3d812e1 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthySeedOils.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthySeedOils.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthySoy.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthySoy.elm index 2b53f64..034b74a 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/HealthySoy.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/HealthySoy.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/ImmortalityReductio.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/ImmortalityReductio.elm index 2bb355f..70a991c 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/ImmortalityReductio.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/ImmortalityReductio.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/LuigiTerrorist.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/LuigiTerrorist.elm index 35a4206..14dd507 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/LuigiTerrorist.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/LuigiTerrorist.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/Malondialdehyde.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/Malondialdehyde.elm index 9a24ecb..423ba3b 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/Malondialdehyde.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/Malondialdehyde.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/OddOrderPredators.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/OddOrderPredators.elm index f6e34b4..9ab6e41 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/OddOrderPredators.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/OddOrderPredators.elm @@ -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 diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/Omega3Omega6Ratio.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/Omega3Omega6Ratio.elm index 91c1165..ac9a3eb 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/Omega3Omega6Ratio.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/Omega3Omega6Ratio.elm @@ -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" @@ -38,4 +37,4 @@ argumentOmega3Omega6Ratio = , conclusionNotation = "¬Q" } ] - } \ No newline at end of file + } diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/Ostroveganism.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/Ostroveganism.elm index 1d455ca..b5a6118 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/Ostroveganism.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/Ostroveganism.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/PlantBasedCVDReversal.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/PlantBasedCVDReversal.elm index 8c6961f..f93d346 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/PlantBasedCVDReversal.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/PlantBasedCVDReversal.elm @@ -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" @@ -45,4 +43,4 @@ argumentPlantBasedCVDReversal = , conclusionNotation = "¬R" } ] - } \ No newline at end of file + } diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/PollinationReductio.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/PollinationReductio.elm index 1e55108..790eff7 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/PollinationReductio.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/PollinationReductio.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/PolyphenolReductio.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/PolyphenolReductio.elm index a36a0f6..82e5f47 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/PolyphenolReductio.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/PolyphenolReductio.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/ScratcherPioneers.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/ScratcherPioneers.elm index 4a5f0ff..e346030 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/ScratcherPioneers.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/ScratcherPioneers.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/SodiumCVD.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/SodiumCVD.elm index 1ae69aa..f878e4e 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/SodiumCVD.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/SodiumCVD.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/TMAOCausality.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/TMAOCausality.elm index 057f4be..e0cfcf6 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/TMAOCausality.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/TMAOCausality.elm @@ -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)" @@ -45,4 +43,4 @@ argumentTMAOCausality = , conclusionNotation = "¬Pt" } ] - } \ No newline at end of file + } diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/Template.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/Template.elm index 5eb6578..c9cf1bb 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/Template.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/Template.elm @@ -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 = "" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/TransPeople.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/TransPeople.elm index 8c3e9a0..568beb3 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/TransPeople.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/TransPeople.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/TruncatedMeta.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/TruncatedMeta.elm index b4e074f..df03734 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/TruncatedMeta.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/TruncatedMeta.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyCoconutOil.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyCoconutOil.elm index e2b55d2..7b06ffe 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyCoconutOil.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyCoconutOil.elm @@ -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" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyProcessedMeat.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyProcessedMeat.elm index 158ec92..511dce2 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyProcessedMeat.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyProcessedMeat.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyRedMeat.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyRedMeat.elm index e8863ed..81f8bd6 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyRedMeat.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthyRedMeat.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthySaturatedFat.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthySaturatedFat.elm index 5f81ccb..20f7315 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthySaturatedFat.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/UnhealthySaturatedFat.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Records/VeganSocietyReductio.elm b/frontend/src/Config/Pages/Debate/Arguments/Records/VeganSocietyReductio.elm index c900e20..86763ed 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Records/VeganSocietyReductio.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Records/VeganSocietyReductio.elm @@ -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)" diff --git a/frontend/src/Config/Pages/Debate/Arguments/Types.elm b/frontend/src/Config/Pages/Debate/Arguments/Types.elm index 42ae60b..71cf189 100755 --- a/frontend/src/Config/Pages/Debate/Arguments/Types.elm +++ b/frontend/src/Config/Pages/Debate/Arguments/Types.elm @@ -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 = diff --git a/frontend/src/Config/Pages/Debate/Cuckery/List.elm b/frontend/src/Config/Pages/Debate/Cuckery/List.elm index d758491..c8b45fb 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/List.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/List.elm @@ -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 diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/AdamSinger.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/AdamSinger.elm index c71c518..f9ce072 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/AdamSinger.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/AdamSinger.elm @@ -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 diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/AmberOHearn.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/AmberOHearn.elm index a2ecaa3..a572b2f 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/AmberOHearn.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/AmberOHearn.elm @@ -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 diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/AnnChilders.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/AnnChilders.elm index 307b571..126906d 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/AnnChilders.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/AnnChilders.elm @@ -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 diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/AnthonyGustin.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/AnthonyGustin.elm index 97de3f9..556584a 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/AnthonyGustin.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/AnthonyGustin.elm @@ -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 diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/AshwaniGarg.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/AshwaniGarg.elm index ae893fc..95e37fa 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/AshwaniGarg.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/AshwaniGarg.elm @@ -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 diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/AustinHerbert.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/AustinHerbert.elm index 09b940e..ef813a0 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/AustinHerbert.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/AustinHerbert.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.AustinHerbert exposing (..) +module Config.Pages.Debate.Cuckery.Records.AustinHerbert exposing (cuckAustinHerbert) +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 + ) cuckAustinHerbert : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/BartKay.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/BartKay.elm index 5b7dc1b..1f5b6af 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/BartKay.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/BartKay.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.BartKay exposing (..) +module Config.Pages.Debate.Cuckery.Records.BartKay exposing (cuckBartKay) +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 + ) cuckBartKay : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/BenBikman.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/BenBikman.elm index 9752100..8c32455 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/BenBikman.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/BenBikman.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.BenBikman exposing (..) +module Config.Pages.Debate.Cuckery.Records.BenBikman exposing (cuckBenBikman) +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 + ) cuckBenBikman : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/BennyMalone.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/BennyMalone.elm index b037f9d..53f630a 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/BennyMalone.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/BennyMalone.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.BennyMalone exposing (..) +module Config.Pages.Debate.Cuckery.Records.BennyMalone exposing (cuckBennyMalone) +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(..) + ) cuckBennyMalone : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/BradCampbell.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/BradCampbell.elm index 9bcc743..c650f8f 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/BradCampbell.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/BradCampbell.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.BradCampbell exposing (..) +module Config.Pages.Debate.Cuckery.Records.BradCampbell exposing (cuckBradCampbell) +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 + ) cuckBradCampbell : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/BradCohn.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/BradCohn.elm index bf5ef22..070cb5f 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/BradCohn.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/BradCohn.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.BradCohn exposing (..) +module Config.Pages.Debate.Cuckery.Records.BradCohn exposing (cuckBradCohn) +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 + ) cuckBradCohn : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/BradMarshall.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/BradMarshall.elm index 5c79cf1..4714304 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/BradMarshall.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/BradMarshall.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.BradMarshall exposing (..) +module Config.Pages.Debate.Cuckery.Records.BradMarshall exposing (cuckBradMarshall) +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 + ) cuckBradMarshall : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/BretWeinstein.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/BretWeinstein.elm index cacc5a6..16e45c2 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/BretWeinstein.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/BretWeinstein.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.BretWeinstein exposing (..) +module Config.Pages.Debate.Cuckery.Records.BretWeinstein exposing (cuckBretWeinstein) +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 + ) cuckBretWeinstein : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/BrianKerley.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/BrianKerley.elm index 6bb2aff..9711069 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/BrianKerley.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/BrianKerley.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.BrianKerley exposing (..) +module Config.Pages.Debate.Cuckery.Records.BrianKerley exposing (cuckBrianKerley) +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 + ) cuckBrianKerley : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/CarnivoreAurelius.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/CarnivoreAurelius.elm index f925dbc..bff7c6c 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/CarnivoreAurelius.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/CarnivoreAurelius.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.CarnivoreAurelius exposing (..) +module Config.Pages.Debate.Cuckery.Records.CarnivoreAurelius exposing (cuckCarnivoreAurelius) +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 + ) cuckCarnivoreAurelius : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/CateShanahan.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/CateShanahan.elm index c06185f..4ad25ef 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/CateShanahan.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/CateShanahan.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.CateShanahan exposing (..) +module Config.Pages.Debate.Cuckery.Records.CateShanahan exposing (cuckCateShanahan) +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 + ) cuckCateShanahan : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/ChrisBoettcher.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/ChrisBoettcher.elm index 2d94392..21530ee 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/ChrisBoettcher.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/ChrisBoettcher.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.ChrisBoettcher exposing (..) +module Config.Pages.Debate.Cuckery.Records.ChrisBoettcher exposing (cuckChrisBoettcher) +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 + ) cuckChrisBoettcher : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/ClaraAboel.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/ClaraAboel.elm index 6ac86c5..c5fca50 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/ClaraAboel.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/ClaraAboel.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.ClaraAboel exposing (..) +module Config.Pages.Debate.Cuckery.Records.ClaraAboel exposing (cuckClaraAboel) +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 + ) cuckClaraAboel : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/CliffHarvey.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/CliffHarvey.elm index 273afc3..9c98fb3 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/CliffHarvey.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/CliffHarvey.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.CliffHarvey exposing (..) +module Config.Pages.Debate.Cuckery.Records.CliffHarvey exposing (cuckCliffHarvey) +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 + ) cuckCliffHarvey : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/DaveFeldman.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/DaveFeldman.elm index c8693cd..c82421b 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/DaveFeldman.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/DaveFeldman.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.DaveFeldman exposing (..) +module Config.Pages.Debate.Cuckery.Records.DaveFeldman exposing (cuckDaveFeldman) +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 + ) cuckDaveFeldman : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/DavidDiamond.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/DavidDiamond.elm index 4542349..b015556 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/DavidDiamond.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/DavidDiamond.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.DavidDiamond exposing (..) +module Config.Pages.Debate.Cuckery.Records.DavidDiamond exposing (cuckDavidDiamond) +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 + ) cuckDavidDiamond : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/DavidGornoski.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/DavidGornoski.elm index 70a71b0..6498a45 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/DavidGornoski.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/DavidGornoski.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.DavidGornoski exposing (..) +module Config.Pages.Debate.Cuckery.Records.DavidGornoski exposing (cuckDavidGornoski) +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 + ) cuckDavidGornoski : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/DianaRodgers.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/DianaRodgers.elm index 940e446..4e833cf 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/DianaRodgers.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/DianaRodgers.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.DianaRodgers exposing (..) +module Config.Pages.Debate.Cuckery.Records.DianaRodgers exposing (cuckDianaRodgers) +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 + ) cuckDianaRodgers : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/EdwardGoeke.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/EdwardGoeke.elm index d4ed963..c390bd3 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/EdwardGoeke.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/EdwardGoeke.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.EdwardGoeke exposing (..) +module Config.Pages.Debate.Cuckery.Records.EdwardGoeke exposing (cuckEdwardGoeke) +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 + ) cuckEdwardGoeke : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/ElieJarrouge.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/ElieJarrouge.elm index fa5d5c5..d5b0458 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/ElieJarrouge.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/ElieJarrouge.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.ElieJarrouge exposing (..) +module Config.Pages.Debate.Cuckery.Records.ElieJarrouge exposing (cuckElieJarrouge) +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(..) + ) cuckElieJarrouge : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryBrecka.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryBrecka.elm index 78a10f9..d1f4a76 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryBrecka.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryBrecka.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.GaryBrecka exposing (..) +module Config.Pages.Debate.Cuckery.Records.GaryBrecka exposing (cuckGaryBrecka) +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 + ) cuckGaryBrecka : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryFettke.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryFettke.elm index e0e107b..306c9e8 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryFettke.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryFettke.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.GaryFettke exposing (..) +module Config.Pages.Debate.Cuckery.Records.GaryFettke exposing (cuckGaryFettke) +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 + ) cuckGaryFettke : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryTaubes.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryTaubes.elm index 7de0fda..9a78860 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryTaubes.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/GaryTaubes.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.GaryTaubes exposing (..) +module Config.Pages.Debate.Cuckery.Records.GaryTaubes exposing (cuckGaryTaubes) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + ) cuckGaryTaubes : Cuck @@ -19,7 +27,7 @@ cuckGaryTaubes = [ { dodgeLink = "https://x.com/garytaubes/status/1595180467552018432?s=20" , dodgeDescription = OutrightNo , dodgeProposition = "Carbohydrates cause starvation." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just Vaguemongering , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = VagueProp diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/GeorgeMartin.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/GeorgeMartin.elm index 6546154..85bb755 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/GeorgeMartin.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/GeorgeMartin.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.GeorgeMartin exposing (..) +module Config.Pages.Debate.Cuckery.Records.GeorgeMartin exposing (cuckGeorgeMartin) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + ) cuckGeorgeMartin : Cuck @@ -19,7 +28,7 @@ cuckGeorgeMartin = [ { dodgeLink = "https://x.com/TheNutrivore/status/1815098730141651021" , dodgeDescription = RanAway , dodgeProposition = "Nick has killed more animals in his life than a mature bear." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just (SpecificFallacy "Appeal to Chatbots") , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propEmpiricalClaim diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/GuyAustin.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/GuyAustin.elm index 72378b1..2a06e50 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/GuyAustin.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/GuyAustin.elm @@ -1,7 +1,18 @@ -module Config.Pages.Debate.Cuckery.Records.GuyAustin exposing (..) +module Config.Pages.Debate.Cuckery.Records.GuyAustin exposing (cuckGuyAustin) +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 + ) cuckGuyAustin : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/IvorCummins.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/IvorCummins.elm index ca03c9b..8bf0004 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/IvorCummins.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/IvorCummins.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.IvorCummins exposing (..) +module Config.Pages.Debate.Cuckery.Records.IvorCummins exposing (cuckIvorCummins) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + ) cuckIvorCummins : Cuck @@ -22,7 +31,7 @@ cuckIvorCummins = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1268600451693494273?s=20" , dodgeDescription = NoReply , dodgeProposition = propLDL - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just MechanisticMasturbation , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propLDLCausality @@ -30,7 +39,7 @@ cuckIvorCummins = , { dodgeLink = "https://x.com/FatEmperor/status/1636920650156724226?s=20" , dodgeDescription = OutrightNo , dodgeProposition = propLDL - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just MechanisticMasturbation , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propLDLCausality diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/JakeMey.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/JakeMey.elm index f81b83e..07997b7 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/JakeMey.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/JakeMey.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.JakeMey exposing (..) +module Config.Pages.Debate.Cuckery.Records.JakeMey exposing (cuckJakeMey) +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(..) + ) cuckJakeMey : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/JamesDiNicolantonio.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/JamesDiNicolantonio.elm index 0f4226c..229bfd6 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/JamesDiNicolantonio.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/JamesDiNicolantonio.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.JamesDiNicolantonio exposing (..) +module Config.Pages.Debate.Cuckery.Records.JamesDiNicolantonio exposing (cuckJamesDiNicolantonio) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + , commonProps + ) cuckJamesDiNicolantonio : Cuck @@ -19,7 +29,7 @@ cuckJamesDiNicolantonio = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1460788569388171268?s=20" , dodgeDescription = NoReply , dodgeProposition = commonProps.propLinoleicAcid - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just MechanisticMasturbation , dodgeNicksDoxasticState = Just Belief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReason diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/JosephEverett.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/JosephEverett.elm index 09abe3f..3eedd73 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/JosephEverett.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/JosephEverett.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.JosephEverett exposing (..) +module Config.Pages.Debate.Cuckery.Records.JosephEverett exposing (cuckJosephEverett) +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 + ) cuckJosephEverett : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/JustinMares.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/JustinMares.elm index f769ef3..aa4a9e2 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/JustinMares.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/JustinMares.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.JustinMares exposing (..) +module Config.Pages.Debate.Cuckery.Records.JustinMares exposing (cuckJustinMares) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + ) cuckJustinMares : Cuck @@ -19,7 +28,7 @@ cuckJustinMares = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1329266554089869312?s=20" , dodgeDescription = RanAway , dodgeProposition = "Vegetable oils drive inflammation and are causally linked to weight gain and diseases of inflammation." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just MechanisticMasturbation , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonChronicDisease diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/KaitMalthaner.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/KaitMalthaner.elm index 574ce24..926ba96 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/KaitMalthaner.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/KaitMalthaner.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.KaitMalthaner exposing (..) +module Config.Pages.Debate.Cuckery.Records.KaitMalthaner exposing (cuckKaitMalthaner) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + ) cuckKaitMalthaner : Cuck @@ -19,7 +28,7 @@ cuckKaitMalthaner = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1503258756687306753?s=20" , dodgeDescription = NoReply , dodgeProposition = "Omega-6 is pro-inflammatory." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just MechanisticMasturbation , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonInflammation diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/KemMinnick.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/KemMinnick.elm index 7f1c6a4..42396b9 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/KemMinnick.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/KemMinnick.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.KemMinnick exposing (..) +module Config.Pages.Debate.Cuckery.Records.KemMinnick exposing (cuckKemMinnick) +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 + ) cuckKemMinnick : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/KenBerry.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/KenBerry.elm index 04fa9eb..c2446ac 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/KenBerry.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/KenBerry.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.KenBerry exposing (..) +module Config.Pages.Debate.Cuckery.Records.KenBerry exposing (cuckKenBerry) +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 + , noProposition + ) cuckKenBerry : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/KevinStock.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/KevinStock.elm index 463a142..8ceb9fc 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/KevinStock.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/KevinStock.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.KevinStock exposing (..) +module Config.Pages.Debate.Cuckery.Records.KevinStock exposing (cuckKevinStock) +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 + , noProposition + ) cuckKevinStock : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/KyleMamounis.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/KyleMamounis.elm index 4915bfa..c1863eb 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/KyleMamounis.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/KyleMamounis.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.KyleMamounis exposing (..) +module Config.Pages.Debate.Cuckery.Records.KyleMamounis exposing (cuckKyleMamounis) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + ) cuckKyleMamounis : Cuck @@ -19,7 +28,7 @@ cuckKyleMamounis = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1389259133044477953?s=20" , dodgeDescription = RanAway , dodgeProposition = "Statins do not prevent cardiovascular events." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just MechanisticMasturbation , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propLDLCausality diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/MarkSisson.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/MarkSisson.elm index 9a6a5d8..42863d1 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/MarkSisson.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/MarkSisson.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.MarkSisson exposing (..) +module Config.Pages.Debate.Cuckery.Records.MarkSisson exposing (cuckMarkSisson) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , noProposition + ) cuckMarkSisson : Cuck @@ -19,7 +28,7 @@ cuckMarkSisson = [ { dodgeLink = "https://x.com/TheNutrivore/status/1488360227141419009?s=20" , dodgeDescription = NoReply , dodgeProposition = noProposition - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Nothing , dodgeNicksDoxasticState = Nothing , dodgeNicksDoxasticReason = NoProp diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/MartyKendall.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/MartyKendall.elm index 06b3143..81638b9 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/MartyKendall.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/MartyKendall.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.MartyKendall exposing (..) +module Config.Pages.Debate.Cuckery.Records.MartyKendall exposing (cuckMartyKendall) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + ) cuckMartyKendall : Cuck @@ -19,7 +27,7 @@ cuckMartyKendall = [ { dodgeLink = "https://twitter.com/The_Nutrivore/status/1310548994804809729" , dodgeDescription = RanAway , dodgeProposition = "To access your body fat, you need to deplete both glucose and fat from the blood first." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just MechanisticMasturbation , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason "The proposition suggests that before one can liberate their body fat, they must first experience a lethal physiological event." diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/MaxLugavere.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/MaxLugavere.elm index 69385ea..b394f06 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/MaxLugavere.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/MaxLugavere.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.MaxLugavere exposing (..) +module Config.Pages.Debate.Cuckery.Records.MaxLugavere exposing (cuckMaxLugavere) +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 + ) cuckMaxLugavere : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/MichaelKummer.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/MichaelKummer.elm index 2c1a2bf..07fb995 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/MichaelKummer.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/MichaelKummer.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.MichaelKummer exposing (..) +module Config.Pages.Debate.Cuckery.Records.MichaelKummer exposing (cuckMichaelKummer) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + ) cuckMichaelKummer : Cuck @@ -19,7 +28,7 @@ cuckMichaelKummer = [ { dodgeLink = "https://x.com/mkummer82/status/1465755847917715464?s=20" , dodgeDescription = OutrightNo , dodgeProposition = "Polyunsaturated fats cause cell damage, inflammation and metabolic dysfunction." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just MechanisticMasturbation , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propSeedOilsReasonInflammation diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/MichaelManderville.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/MichaelManderville.elm index 4d0fdb9..0d818b9 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/MichaelManderville.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/MichaelManderville.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.MichaelManderville exposing (..) +module Config.Pages.Debate.Cuckery.Records.MichaelManderville exposing (cuckMichaelManderville) +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 + ) cuckMichaelManderville : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/MikeMutzel.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/MikeMutzel.elm index a4c8215..bffe1cf 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/MikeMutzel.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/MikeMutzel.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.MikeMutzel exposing (..) +module Config.Pages.Debate.Cuckery.Records.MikeMutzel exposing (cuckMikeMutzel) +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 + ) cuckMikeMutzel : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/MikeSweeney.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/MikeSweeney.elm index df4f793..1c6e10f 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/MikeSweeney.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/MikeSweeney.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.MikeSweeney exposing (..) +module Config.Pages.Debate.Cuckery.Records.MikeSweeney exposing (cuckMikeSweeney) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + ) cuckMikeSweeney : Cuck @@ -19,7 +28,7 @@ cuckMikeSweeney = [ { dodgeLink = "https://x.com/TheNutrivore/status/1746962254052962552" , dodgeDescription = OutrightNo , dodgeProposition = "Vegan diets are nowhere near appropriate for the average person in society." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just Vaguemongering , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = VagueProp @@ -27,7 +36,7 @@ cuckMikeSweeney = , { dodgeLink = "https://x.com/thelowcarb_rd/status/1654182805964836865" , dodgeDescription = GhostedMe , dodgeProposition = "Statistical gymnastics don't inform on real world mechanisms and hard outcomes." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just RedHerring , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = VagueProp @@ -35,7 +44,7 @@ cuckMikeSweeney = , { dodgeLink = "https://x.com/TheNutrivore/status/1776652108646821913?t=Pf4sfAC1Z0pAcxGfQFr7oQ" , dodgeDescription = NoReply , dodgeProposition = "Cheerios cause nausea, vomiting, seizures, irregular heartbeat, liver damage, and coma." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just Vaguemongering , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propEmpiricalClaimDisbelief diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/NickEggleton.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/NickEggleton.elm index ba45f80..ec47220 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/NickEggleton.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/NickEggleton.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.NickEggleton exposing (..) +module Config.Pages.Debate.Cuckery.Records.NickEggleton exposing (cuckNickEggleton) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + ) cuckNickEggleton : Cuck @@ -19,7 +27,7 @@ cuckNickEggleton = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1266626885703720961?s=20" , dodgeDescription = OutrightNo , dodgeProposition = "Polyunsaturated fats are poison." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just Vaguemongering , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = VagueProp diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/NinaTeicholz.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/NinaTeicholz.elm index da5f46c..50d5e9e 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/NinaTeicholz.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/NinaTeicholz.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.NinaTeicholz exposing (..) +module Config.Pages.Debate.Cuckery.Records.NinaTeicholz exposing (cuckNinaTeicholz) +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 + ) cuckNinaTeicholz : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/NorstrongChris.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/NorstrongChris.elm index c388edc..f9d0c27 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/NorstrongChris.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/NorstrongChris.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.NorstrongChris exposing (..) +module Config.Pages.Debate.Cuckery.Records.NorstrongChris exposing (cuckNorstrongChris) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + ) cuckNorstrongChris : Cuck @@ -19,7 +27,7 @@ cuckNorstrongChris = [ { dodgeLink = "https://x.com/NorstrongHealth/status/1416939281973530626?s=20" , dodgeDescription = RanAway , dodgeProposition = "Government funded USDA data is untrustworthy." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just Vaguemongering , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = VagueProp @@ -27,7 +35,7 @@ cuckNorstrongChris = , { dodgeLink = "https://x.com/The_Nutrivore/status/1534573919562350594?s=20" , dodgeDescription = OutrightNo , dodgeProposition = "Nutrition science as a whole is shit." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just Vaguemongering , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = VagueProp @@ -35,7 +43,7 @@ cuckNorstrongChris = , { dodgeLink = "https://x.com/TheNutrivore/status/1534614710196260865?s=20" , dodgeDescription = NoReply , dodgeProposition = "Nutrition science as a whole is shit." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just Vaguemongering , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = VagueProp diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/PaulMason.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/PaulMason.elm index da9a38f..13c539d 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/PaulMason.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/PaulMason.elm @@ -1,7 +1,18 @@ -module Config.Pages.Debate.Cuckery.Records.PaulMason exposing (..) +module Config.Pages.Debate.Cuckery.Records.PaulMason exposing (cuckPaulMason) +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 + ) cuckPaulMason : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/PaulSaladino.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/PaulSaladino.elm index e79850d..b871d95 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/PaulSaladino.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/PaulSaladino.elm @@ -1,7 +1,18 @@ -module Config.Pages.Debate.Cuckery.Records.PaulSaladino exposing (..) +module Config.Pages.Debate.Cuckery.Records.PaulSaladino exposing (cuckPaulSaladino) +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 + ) cuckPaulSaladino : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/PhilipOvadia.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/PhilipOvadia.elm index 0b07dfd..8a77bb1 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/PhilipOvadia.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/PhilipOvadia.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.PhilipOvadia exposing (..) +module Config.Pages.Debate.Cuckery.Records.PhilipOvadia exposing (cuckPhilipOvadia) +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 + , noProposition + ) cuckPhilipOvadia : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/PhilippeStephenson.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/PhilippeStephenson.elm index 115f8cb..c35f121 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/PhilippeStephenson.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/PhilippeStephenson.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.PhilippeStephenson exposing (..) +module Config.Pages.Debate.Cuckery.Records.PhilippeStephenson exposing (cuckPhilippeStephenson) +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 + ) cuckPhilippeStephenson : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/RalphNapolitano.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/RalphNapolitano.elm index d068ee4..ac6e453 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/RalphNapolitano.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/RalphNapolitano.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.RalphNapolitano exposing (..) +module Config.Pages.Debate.Cuckery.Records.RalphNapolitano exposing (cuckRalphNapolitano) +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(..) + ) cuckRalphNapolitano : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/RaphaelSirtoli.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/RaphaelSirtoli.elm index 70cfeab..92e812a 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/RaphaelSirtoli.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/RaphaelSirtoli.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.RaphaelSirtoli exposing (..) +module Config.Pages.Debate.Cuckery.Records.RaphaelSirtoli exposing (cuckRaphaelSirtoli) +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 + ) cuckRaphaelSirtoli : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/RobMeijer.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/RobMeijer.elm index 44d0728..9f5379a 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/RobMeijer.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/RobMeijer.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.RobMeijer exposing (..) +module Config.Pages.Debate.Cuckery.Records.RobMeijer exposing (cuckRobMeijer) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , noProposition + ) cuckRobMeijer : Cuck @@ -19,7 +28,7 @@ cuckRobMeijer = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1435850829051793408?s=20" , dodgeDescription = RanAway , dodgeProposition = noProposition - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Nothing , dodgeNicksDoxasticState = Nothing , dodgeNicksDoxasticReason = NoProp diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/RobbWolf.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/RobbWolf.elm index c5558e0..c55e92f 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/RobbWolf.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/RobbWolf.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.RobbWolf exposing (..) +module Config.Pages.Debate.Cuckery.Records.RobbWolf exposing (cuckRobbWolf) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + ) cuckRobbWolf : Cuck @@ -19,7 +28,7 @@ cuckRobbWolf = [ { dodgeLink = "https://x.com/TheNutrivore/status/1601624559647875072?s=20" , dodgeDescription = OutrightNo , dodgeProposition = "Ancestral foods are more likely to be antagonistically pleiotropic than novel foods." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just AppealToNature , dodgeNicksDoxasticState = Just Belief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propAnalyticalTruth diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/SebastianRamirez.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/SebastianRamirez.elm index 1f5b7ec..725e7ee 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/SebastianRamirez.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/SebastianRamirez.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.SebastianRamirez exposing (..) +module Config.Pages.Debate.Cuckery.Records.SebastianRamirez exposing (cuckSebastianRamirez) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + ) cuckSebastianRamirez : Cuck @@ -19,7 +27,7 @@ cuckSebastianRamirez = [ { dodgeLink = "https://x.com/JS_RamirezMD/status/1859378109306278377" , dodgeDescription = RanAway , dodgeProposition = "Vegans haven’t learnt how to live in a society." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just Vaguemongering , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = SpecificPropReason "It's not clear what the proposition means." diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/ShawnBaker.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/ShawnBaker.elm index b940413..17f66e2 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/ShawnBaker.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/ShawnBaker.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.ShawnBaker exposing (..) +module Config.Pages.Debate.Cuckery.Records.ShawnBaker exposing (cuckShawnBaker) +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 + ) cuckShawnBaker : Cuck @@ -19,7 +28,7 @@ cuckShawnBaker = [ { dodgeLink = "https://x.com/TheNutrivore/status/1868037979807346738" , dodgeDescription = GhostedMe , dodgeProposition = noProposition - , dodgeReceipts = [ ] + , dodgeReceipts = [] , dodgeFallacy = Nothing , dodgeNicksDoxasticState = Nothing , dodgeNicksDoxasticReason = NoProp diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/SimonGoddek.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/SimonGoddek.elm index 31fe042..84dc9f2 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/SimonGoddek.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/SimonGoddek.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.SimonGoddek exposing (..) +module Config.Pages.Debate.Cuckery.Records.SimonGoddek exposing (cuckSimonGoddek) +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 + ) cuckSimonGoddek : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/Template.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/Template.elm index 237f57a..2d80839 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/Template.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/Template.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.Template exposing (..) +module Config.Pages.Debate.Cuckery.Records.Template exposing (cuck) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + ) cuck : Cuck @@ -19,7 +27,7 @@ cuck = [ { dodgeLink = "" , dodgeDescription = NoReply , dodgeProposition = "" - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just (SpecificFallacy "") , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = NoProp diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/TomDayspring.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/TomDayspring.elm index 20daa48..0b553c2 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/TomDayspring.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/TomDayspring.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.TomDayspring exposing (..) +module Config.Pages.Debate.Cuckery.Records.TomDayspring exposing (cuckTomDayspring) +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 + ) cuckTomDayspring : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/TravisStatham.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/TravisStatham.elm index 4b1d790..8e87d6e 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/TravisStatham.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/TravisStatham.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.TravisStatham exposing (..) +module Config.Pages.Debate.Cuckery.Records.TravisStatham exposing (cuckTravisStatham) +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 + ) cuckTravisStatham : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/TristanHaggard.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/TristanHaggard.elm index 70464cb..3b858d8 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/TristanHaggard.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/TristanHaggard.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.TristanHaggard exposing (..) +module Config.Pages.Debate.Cuckery.Records.TristanHaggard exposing (cuckTristanHaggard) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + ) cuckTristanHaggard : Cuck @@ -19,7 +27,7 @@ cuckTristanHaggard = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1513596227052527621?s=20" , dodgeDescription = RanAway , dodgeProposition = "Seed oils are toxic." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just Vaguemongering , dodgeNicksDoxasticState = Just Agnostic , dodgeNicksDoxasticReason = VagueProp diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/TroKalayjian.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/TroKalayjian.elm index 647658f..800d563 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/TroKalayjian.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/TroKalayjian.elm @@ -1,7 +1,15 @@ -module Config.Pages.Debate.Cuckery.Records.TroKalayjian exposing (..) +module Config.Pages.Debate.Cuckery.Records.TroKalayjian exposing (cuckTroKalayjian) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + ) cuckTroKalayjian : Cuck @@ -19,7 +27,7 @@ cuckTroKalayjian = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1261351818430255104?s=20" , dodgeDescription = RanAway , dodgeProposition = "Dr. Tro engages in shitty behaviour that causes people to dislike him." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Nothing , dodgeNicksDoxasticState = Just Belief , dodgeNicksDoxasticReason = SpecificPropReason "The proposition seems trivially true." @@ -27,7 +35,7 @@ cuckTroKalayjian = , { dodgeLink = "https://x.com/TheNutrivore/status/1865857839845232689" , dodgeDescription = RanAway , dodgeProposition = "Meat doesn’t cause cardiovascular disease" - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just RedHerring , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason "The aggregate of the data suggests that higher intakes of meat, particularly red meat, increases the risk of cardiovascular disease, especially when replacing plant-based protein sources." diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/TuckerGoodrich.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/TuckerGoodrich.elm index 9580477..15f9c9e 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/TuckerGoodrich.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/TuckerGoodrich.elm @@ -1,7 +1,17 @@ -module Config.Pages.Debate.Cuckery.Records.TuckerGoodrich exposing (..) +module Config.Pages.Debate.Cuckery.Records.TuckerGoodrich exposing (cuckTuckerGoodrich) -import Config.Pages.Debate.Cuckery.Types exposing (..) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) +import Config.Pages.Debate.Cuckery.Types + exposing + ( Cuck + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , commonPropReasons + , noProposition + ) cuckTuckerGoodrich : Cuck @@ -19,7 +29,7 @@ cuckTuckerGoodrich = [ { dodgeLink = "https://x.com/The_Nutrivore/status/1276694117494358017?s=19" , dodgeDescription = RanAway , dodgeProposition = "Nutritional epidemiology is almost always wrong." - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Just RedHerring , dodgeNicksDoxasticState = Just Disbelief , dodgeNicksDoxasticReason = SpecificPropReason commonPropReasons.propNutritionalEpidemiology @@ -27,7 +37,7 @@ cuckTuckerGoodrich = , { dodgeLink = "https://x.com/TuckerGoodrich/status/1428062578668830720?s=20" , dodgeDescription = RanAway , dodgeProposition = noProposition - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Nothing , dodgeNicksDoxasticState = Nothing , dodgeNicksDoxasticReason = NoProp @@ -35,7 +45,7 @@ cuckTuckerGoodrich = , { dodgeLink = "https://x.com/TuckerGoodrich/status/1469366622196359170?s=20" , dodgeDescription = OutrightNo , dodgeProposition = noProposition - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Nothing , dodgeNicksDoxasticState = Nothing , dodgeNicksDoxasticReason = NoProp @@ -43,7 +53,7 @@ cuckTuckerGoodrich = , { dodgeLink = "https://x.com/TuckerGoodrich/status/1470029816975872007?s=20" , dodgeDescription = KillScreen , dodgeProposition = noProposition - , dodgeReceipts = [ {receipt = "receipt1"}] + , dodgeReceipts = [ { receipt = "receipt1" } ] , dodgeFallacy = Nothing , dodgeNicksDoxasticState = Nothing , dodgeNicksDoxasticReason = NoProp diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/ZoeHarcombe.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/ZoeHarcombe.elm index 9b8ec91..b5ad059 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/ZoeHarcombe.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/ZoeHarcombe.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.ZoeHarcombe exposing (..) +module Config.Pages.Debate.Cuckery.Records.ZoeHarcombe exposing (cuckZoeHarcombe) +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 + ) cuckZoeHarcombe : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Records/ZsofiaClemens.elm b/frontend/src/Config/Pages/Debate/Cuckery/Records/ZsofiaClemens.elm index d7413ee..fc695bd 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Records/ZsofiaClemens.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Records/ZsofiaClemens.elm @@ -1,7 +1,16 @@ -module Config.Pages.Debate.Cuckery.Records.ZsofiaClemens exposing (..) +module Config.Pages.Debate.Cuckery.Records.ZsofiaClemens exposing (cuckZsofiaClemens) +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 + ) cuckZsofiaClemens : Cuck diff --git a/frontend/src/Config/Pages/Debate/Cuckery/Types.elm b/frontend/src/Config/Pages/Debate/Cuckery/Types.elm index 57b56ab..550ba48 100755 --- a/frontend/src/Config/Pages/Debate/Cuckery/Types.elm +++ b/frontend/src/Config/Pages/Debate/Cuckery/Types.elm @@ -1,4 +1,17 @@ -module Config.Pages.Debate.Cuckery.Types exposing (..) +module Config.Pages.Debate.Cuckery.Types exposing + ( CommonProps + , Cuck + , Dodge + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) + , PropReasons + , Receipts + , commonPropReasons + , commonProps + , noProposition + ) import Config.Data.Hashtags.Types exposing (..) @@ -67,14 +80,6 @@ type Evaluation | SpecificPropReason String -type alias FormattedCuckName = - String - - -type alias FormattedCuckSocial = - String - - type alias CommonProps = { propSeedOils : String , propLinoleicAcid : String diff --git a/frontend/src/Config/Pages/Debate/Gibberish/List.elm b/frontend/src/Config/Pages/Debate/Gibberish/List.elm index 4995aa5..7710d1a 100755 --- a/frontend/src/Config/Pages/Debate/Gibberish/List.elm +++ b/frontend/src/Config/Pages/Debate/Gibberish/List.elm @@ -1,4 +1,4 @@ -module Config.Pages.Debate.Gibberish.List exposing (..) +module Config.Pages.Debate.Gibberish.List exposing (gibberishList) import Config.Pages.Debate.Gibberish.Records.Epistemology exposing (epistemologyGibberish) import Config.Pages.Debate.Gibberish.Records.Metaphysics exposing (metaphysicsGibberish) diff --git a/frontend/src/Config/Pages/Debate/Gibberish/Records/Epistemology.elm b/frontend/src/Config/Pages/Debate/Gibberish/Records/Epistemology.elm index eb93eba..ea65b6d 100755 --- a/frontend/src/Config/Pages/Debate/Gibberish/Records/Epistemology.elm +++ b/frontend/src/Config/Pages/Debate/Gibberish/Records/Epistemology.elm @@ -1,7 +1,13 @@ -module Config.Pages.Debate.Gibberish.Records.Epistemology exposing (..) +module Config.Pages.Debate.Gibberish.Records.Epistemology exposing (epistemologyGibberish) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Debate.Gibberish.Types exposing (..) +import Config.Pages.Debate.Gibberish.Types + exposing + ( Explanation(..) + , Gibberish + , Terms + ) epistemologyGibberish : Gibberish diff --git a/frontend/src/Config/Pages/Debate/Gibberish/Records/Metaphysics.elm b/frontend/src/Config/Pages/Debate/Gibberish/Records/Metaphysics.elm index 5e25a97..047098d 100755 --- a/frontend/src/Config/Pages/Debate/Gibberish/Records/Metaphysics.elm +++ b/frontend/src/Config/Pages/Debate/Gibberish/Records/Metaphysics.elm @@ -1,7 +1,13 @@ -module Config.Pages.Debate.Gibberish.Records.Metaphysics exposing (..) +module Config.Pages.Debate.Gibberish.Records.Metaphysics exposing (metaphysicsGibberish) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Debate.Gibberish.Types exposing (..) +import Config.Pages.Debate.Gibberish.Types + exposing + ( Explanation(..) + , Gibberish + , Terms + ) metaphysicsGibberish : Gibberish diff --git a/frontend/src/Config/Pages/Debate/Gibberish/Records/Normativity.elm b/frontend/src/Config/Pages/Debate/Gibberish/Records/Normativity.elm index 0591388..eecc1fc 100755 --- a/frontend/src/Config/Pages/Debate/Gibberish/Records/Normativity.elm +++ b/frontend/src/Config/Pages/Debate/Gibberish/Records/Normativity.elm @@ -1,7 +1,13 @@ -module Config.Pages.Debate.Gibberish.Records.Normativity exposing (..) +module Config.Pages.Debate.Gibberish.Records.Normativity exposing (normativityGibberish) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Debate.Gibberish.Types exposing (..) +import Config.Pages.Debate.Gibberish.Types + exposing + ( Explanation(..) + , Gibberish + , Terms + ) normativityGibberish : Gibberish diff --git a/frontend/src/Config/Pages/Debate/Gibberish/Records/Ontology.elm b/frontend/src/Config/Pages/Debate/Gibberish/Records/Ontology.elm index 9d59df2..9c4c224 100755 --- a/frontend/src/Config/Pages/Debate/Gibberish/Records/Ontology.elm +++ b/frontend/src/Config/Pages/Debate/Gibberish/Records/Ontology.elm @@ -1,7 +1,13 @@ -module Config.Pages.Debate.Gibberish.Records.Ontology exposing (..) +module Config.Pages.Debate.Gibberish.Records.Ontology exposing (ontologyGibberish) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Debate.Gibberish.Types exposing (..) +import Config.Pages.Debate.Gibberish.Types + exposing + ( Explanation(..) + , Gibberish + , Terms + ) ontologyGibberish : Gibberish diff --git a/frontend/src/Config/Pages/Debate/Gibberish/Records/PhilOfLanguage.elm b/frontend/src/Config/Pages/Debate/Gibberish/Records/PhilOfLanguage.elm index a044fbd..e18593d 100755 --- a/frontend/src/Config/Pages/Debate/Gibberish/Records/PhilOfLanguage.elm +++ b/frontend/src/Config/Pages/Debate/Gibberish/Records/PhilOfLanguage.elm @@ -1,7 +1,13 @@ -module Config.Pages.Debate.Gibberish.Records.PhilOfLanguage exposing (..) +module Config.Pages.Debate.Gibberish.Records.PhilOfLanguage exposing (philOfLanguageGibberish) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Debate.Gibberish.Types exposing (..) +import Config.Pages.Debate.Gibberish.Types + exposing + ( Explanation(..) + , Gibberish + , Terms + ) philOfLanguageGibberish : Gibberish diff --git a/frontend/src/Config/Pages/Debate/Gibberish/Records/PhilOfMind.elm b/frontend/src/Config/Pages/Debate/Gibberish/Records/PhilOfMind.elm index 9b32bb1..1390796 100755 --- a/frontend/src/Config/Pages/Debate/Gibberish/Records/PhilOfMind.elm +++ b/frontend/src/Config/Pages/Debate/Gibberish/Records/PhilOfMind.elm @@ -1,7 +1,13 @@ -module Config.Pages.Debate.Gibberish.Records.PhilOfMind exposing (..) +module Config.Pages.Debate.Gibberish.Records.PhilOfMind exposing (philOfMindGibberish) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Debate.Gibberish.Types exposing (..) +import Config.Pages.Debate.Gibberish.Types + exposing + ( Explanation(..) + , Gibberish + , Terms + ) philOfMindGibberish : Gibberish diff --git a/frontend/src/Config/Pages/Debate/Gibberish/Records/Theology.elm b/frontend/src/Config/Pages/Debate/Gibberish/Records/Theology.elm index a334766..56f1840 100755 --- a/frontend/src/Config/Pages/Debate/Gibberish/Records/Theology.elm +++ b/frontend/src/Config/Pages/Debate/Gibberish/Records/Theology.elm @@ -1,7 +1,13 @@ -module Config.Pages.Debate.Gibberish.Records.Theology exposing (..) +module Config.Pages.Debate.Gibberish.Records.Theology exposing (theologyGibberish) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Debate.Gibberish.Types exposing (..) +import Config.Pages.Debate.Gibberish.Types + exposing + ( Explanation(..) + , Gibberish + , Terms + ) theologyGibberish : Gibberish diff --git a/frontend/src/Config/Pages/Debate/Gibberish/Types.elm b/frontend/src/Config/Pages/Debate/Gibberish/Types.elm index 53a28fa..f575ec7 100755 --- a/frontend/src/Config/Pages/Debate/Gibberish/Types.elm +++ b/frontend/src/Config/Pages/Debate/Gibberish/Types.elm @@ -1,4 +1,8 @@ -module Config.Pages.Debate.Gibberish.Types exposing (..) +module Config.Pages.Debate.Gibberish.Types exposing + ( Explanation(..) + , Gibberish + , Terms + ) import Config.Data.Hashtags.Types exposing (..) diff --git a/frontend/src/Config/Pages/Debate/Types.elm b/frontend/src/Config/Pages/Debate/Types.elm index 392ede8..559725b 100755 --- a/frontend/src/Config/Pages/Debate/Types.elm +++ b/frontend/src/Config/Pages/Debate/Types.elm @@ -1,4 +1,4 @@ -module Config.Pages.Debate.Types exposing (..) +module Config.Pages.Debate.Types exposing (Debate) type alias Debate = diff --git a/frontend/src/Config/Pages/Donate/Records/Cardano.elm b/frontend/src/Config/Pages/Donate/Records/Cardano.elm index a0469e9..5510a08 100755 --- a/frontend/src/Config/Pages/Donate/Records/Cardano.elm +++ b/frontend/src/Config/Pages/Donate/Records/Cardano.elm @@ -1,7 +1,8 @@ -module Config.Pages.Donate.Records.Cardano exposing (..) +module Config.Pages.Donate.Records.Cardano exposing (donateCardano) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Donate.Types exposing (..) +import Config.Pages.Donate.Types exposing (Donate) donateCardano : Donate diff --git a/frontend/src/Config/Pages/Donate/Records/KoFi.elm b/frontend/src/Config/Pages/Donate/Records/KoFi.elm index bd58711..a418152 100755 --- a/frontend/src/Config/Pages/Donate/Records/KoFi.elm +++ b/frontend/src/Config/Pages/Donate/Records/KoFi.elm @@ -1,7 +1,8 @@ -module Config.Pages.Donate.Records.KoFi exposing (..) +module Config.Pages.Donate.Records.KoFi exposing (donateKoFi) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Donate.Types exposing (..) +import Config.Pages.Donate.Types exposing (Donate) donateKoFi : Donate diff --git a/frontend/src/Config/Pages/Donate/Records/LiberaPay.elm b/frontend/src/Config/Pages/Donate/Records/LiberaPay.elm index 2a76ba2..5893529 100755 --- a/frontend/src/Config/Pages/Donate/Records/LiberaPay.elm +++ b/frontend/src/Config/Pages/Donate/Records/LiberaPay.elm @@ -1,7 +1,8 @@ -module Config.Pages.Donate.Records.LiberaPay exposing (..) +module Config.Pages.Donate.Records.LiberaPay exposing (donateLiberaPay) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Donate.Types exposing (..) +import Config.Pages.Donate.Types exposing (Donate) donateLiberaPay : Donate diff --git a/frontend/src/Config/Pages/Donate/Records/Merch.elm b/frontend/src/Config/Pages/Donate/Records/Merch.elm index f30b18a..0fd4b27 100755 --- a/frontend/src/Config/Pages/Donate/Records/Merch.elm +++ b/frontend/src/Config/Pages/Donate/Records/Merch.elm @@ -1,7 +1,8 @@ -module Config.Pages.Donate.Records.Merch exposing (..) +module Config.Pages.Donate.Records.Merch exposing (donateMerch) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Donate.Types exposing (..) +import Config.Pages.Donate.Types exposing (Donate) donateMerch : Donate diff --git a/frontend/src/Config/Pages/Donate/Records/Patreon.elm b/frontend/src/Config/Pages/Donate/Records/Patreon.elm index 9521e2b..2e03f16 100755 --- a/frontend/src/Config/Pages/Donate/Records/Patreon.elm +++ b/frontend/src/Config/Pages/Donate/Records/Patreon.elm @@ -1,7 +1,8 @@ -module Config.Pages.Donate.Records.Patreon exposing (..) +module Config.Pages.Donate.Records.Patreon exposing (donatePatreon) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Donate.Types exposing (..) +import Config.Pages.Donate.Types exposing (Donate) donatePatreon : Donate diff --git a/frontend/src/Config/Pages/Donate/Records/PayPal.elm b/frontend/src/Config/Pages/Donate/Records/PayPal.elm index 1d11fb7..8306628 100755 --- a/frontend/src/Config/Pages/Donate/Records/PayPal.elm +++ b/frontend/src/Config/Pages/Donate/Records/PayPal.elm @@ -1,7 +1,8 @@ -module Config.Pages.Donate.Records.PayPal exposing (..) +module Config.Pages.Donate.Records.PayPal exposing (donatePayPal) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Donate.Types exposing (..) +import Config.Pages.Donate.Types exposing (Donate) donatePayPal : Donate diff --git a/frontend/src/Config/Pages/Donate/Records/Stripe.elm b/frontend/src/Config/Pages/Donate/Records/Stripe.elm index c8d2b68..51416e9 100755 --- a/frontend/src/Config/Pages/Donate/Records/Stripe.elm +++ b/frontend/src/Config/Pages/Donate/Records/Stripe.elm @@ -1,7 +1,8 @@ -module Config.Pages.Donate.Records.Stripe exposing (..) +module Config.Pages.Donate.Records.Stripe exposing (donateStripe) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Donate.Types exposing (..) +import Config.Pages.Donate.Types exposing (Donate) donateStripe : Donate diff --git a/frontend/src/Config/Pages/Donate/Records/Template.elm b/frontend/src/Config/Pages/Donate/Records/Template.elm index 2719894..659e72e 100755 --- a/frontend/src/Config/Pages/Donate/Records/Template.elm +++ b/frontend/src/Config/Pages/Donate/Records/Template.elm @@ -1,7 +1,8 @@ -module Config.Pages.Donate.Records.Template exposing (..) +module Config.Pages.Donate.Records.Template exposing (donateTemplate) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Donate.Types exposing (..) +import Config.Pages.Donate.Types exposing (Donate) donateTemplate : Donate diff --git a/frontend/src/Config/Pages/Donate/Records/YouTube.elm b/frontend/src/Config/Pages/Donate/Records/YouTube.elm index e99400b..fba459f 100755 --- a/frontend/src/Config/Pages/Donate/Records/YouTube.elm +++ b/frontend/src/Config/Pages/Donate/Records/YouTube.elm @@ -1,7 +1,8 @@ -module Config.Pages.Donate.Records.YouTube exposing (..) +module Config.Pages.Donate.Records.YouTube exposing (donateYouTube) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Donate.Types exposing (..) +import Config.Pages.Donate.Types exposing (Donate) donateYouTube : Donate diff --git a/frontend/src/Config/Pages/Donate/Types.elm b/frontend/src/Config/Pages/Donate/Types.elm index c726910..fe093e5 100755 --- a/frontend/src/Config/Pages/Donate/Types.elm +++ b/frontend/src/Config/Pages/Donate/Types.elm @@ -1,4 +1,9 @@ -module Config.Pages.Donate.Types exposing (..) +module Config.Pages.Donate.Types exposing + ( Cons + , Donate + , Features + , Pros + ) type alias Donate = diff --git a/frontend/src/Config/Pages/Interviews/Records/DrShawnBakerPodcast.elm b/frontend/src/Config/Pages/Interviews/Records/DrShawnBakerPodcast.elm index 0a13c4e..852e899 100755 --- a/frontend/src/Config/Pages/Interviews/Records/DrShawnBakerPodcast.elm +++ b/frontend/src/Config/Pages/Interviews/Records/DrShawnBakerPodcast.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.DrShawnBakerPodcast exposing (..) +module Config.Pages.Interviews.Records.DrShawnBakerPodcast exposing (drShawnBakerPodcast) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) drShawnBakerPodcast : Interview diff --git a/frontend/src/Config/Pages/Interviews/Records/FitAndFurious.elm b/frontend/src/Config/Pages/Interviews/Records/FitAndFurious.elm index d5525d1..69a6f74 100755 --- a/frontend/src/Config/Pages/Interviews/Records/FitAndFurious.elm +++ b/frontend/src/Config/Pages/Interviews/Records/FitAndFurious.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.FitAndFurious exposing (..) +module Config.Pages.Interviews.Records.FitAndFurious exposing (fitAndFurious) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) fitAndFurious : Interview diff --git a/frontend/src/Config/Pages/Interviews/Records/FoolproofMastery.elm b/frontend/src/Config/Pages/Interviews/Records/FoolproofMastery.elm index b21f19d..655ce43 100755 --- a/frontend/src/Config/Pages/Interviews/Records/FoolproofMastery.elm +++ b/frontend/src/Config/Pages/Interviews/Records/FoolproofMastery.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.FoolproofMastery exposing (..) +module Config.Pages.Interviews.Records.FoolproofMastery exposing (foolproofMastery) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) foolproofMastery : Interview diff --git a/frontend/src/Config/Pages/Interviews/Records/KetogeeksPodcast.elm b/frontend/src/Config/Pages/Interviews/Records/KetogeeksPodcast.elm index 3274d27..e2a1282 100755 --- a/frontend/src/Config/Pages/Interviews/Records/KetogeeksPodcast.elm +++ b/frontend/src/Config/Pages/Interviews/Records/KetogeeksPodcast.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.KetogeeksPodcast exposing (..) +module Config.Pages.Interviews.Records.KetogeeksPodcast exposing (ketoGeeksPodcast) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) ketoGeeksPodcast : Interview diff --git a/frontend/src/Config/Pages/Interviews/Records/LegendaryLifePodcast.elm b/frontend/src/Config/Pages/Interviews/Records/LegendaryLifePodcast.elm index 4b53ddf..b097604 100755 --- a/frontend/src/Config/Pages/Interviews/Records/LegendaryLifePodcast.elm +++ b/frontend/src/Config/Pages/Interviews/Records/LegendaryLifePodcast.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.LegendaryLifePodcast exposing (..) +module Config.Pages.Interviews.Records.LegendaryLifePodcast exposing (legendaryLifePodcast) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) legendaryLifePodcast : Interview diff --git a/frontend/src/Config/Pages/Interviews/Records/MarkBellsPowerProject.elm b/frontend/src/Config/Pages/Interviews/Records/MarkBellsPowerProject.elm index 9f687a3..778c2f8 100755 --- a/frontend/src/Config/Pages/Interviews/Records/MarkBellsPowerProject.elm +++ b/frontend/src/Config/Pages/Interviews/Records/MarkBellsPowerProject.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.MarkBellsPowerProject exposing (..) +module Config.Pages.Interviews.Records.MarkBellsPowerProject exposing (markBellsPowerProject) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) markBellsPowerProject : Interview diff --git a/frontend/src/Config/Pages/Interviews/Records/MuscleMemoirsPodcast.elm b/frontend/src/Config/Pages/Interviews/Records/MuscleMemoirsPodcast.elm index 2dc2096..6aae593 100755 --- a/frontend/src/Config/Pages/Interviews/Records/MuscleMemoirsPodcast.elm +++ b/frontend/src/Config/Pages/Interviews/Records/MuscleMemoirsPodcast.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.MuscleMemoirsPodcast exposing (..) +module Config.Pages.Interviews.Records.MuscleMemoirsPodcast exposing (muscleMemoirsPodcast) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) muscleMemoirsPodcast : Interview diff --git a/frontend/src/Config/Pages/Interviews/Records/SigmaNutritionRadio.elm b/frontend/src/Config/Pages/Interviews/Records/SigmaNutritionRadio.elm index b2a698d..d21a885 100755 --- a/frontend/src/Config/Pages/Interviews/Records/SigmaNutritionRadio.elm +++ b/frontend/src/Config/Pages/Interviews/Records/SigmaNutritionRadio.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.SigmaNutritionRadio exposing (..) +module Config.Pages.Interviews.Records.SigmaNutritionRadio exposing (sigmaNutritionRadio) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) sigmaNutritionRadio : Interview diff --git a/frontend/src/Config/Pages/Interviews/Records/StrenuousLifePodcast.elm b/frontend/src/Config/Pages/Interviews/Records/StrenuousLifePodcast.elm index cc5a66a..7dc9be3 100755 --- a/frontend/src/Config/Pages/Interviews/Records/StrenuousLifePodcast.elm +++ b/frontend/src/Config/Pages/Interviews/Records/StrenuousLifePodcast.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.StrenuousLifePodcast exposing (..) +module Config.Pages.Interviews.Records.StrenuousLifePodcast exposing (strenuousLifePodcast) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) strenuousLifePodcast : Interview diff --git a/frontend/src/Config/Pages/Interviews/Records/Template.elm b/frontend/src/Config/Pages/Interviews/Records/Template.elm index 80903c4..39d7d37 100755 --- a/frontend/src/Config/Pages/Interviews/Records/Template.elm +++ b/frontend/src/Config/Pages/Interviews/Records/Template.elm @@ -1,7 +1,8 @@ -module Config.Pages.Interviews.Records.Template exposing (..) +module Config.Pages.Interviews.Records.Template exposing (template) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Interviews.Types exposing (..) +import Config.Pages.Interviews.Types exposing (Interview) template : Interview diff --git a/frontend/src/Config/Pages/Interviews/Types.elm b/frontend/src/Config/Pages/Interviews/Types.elm index efece17..7e873ad 100755 --- a/frontend/src/Config/Pages/Interviews/Types.elm +++ b/frontend/src/Config/Pages/Interviews/Types.elm @@ -1,4 +1,8 @@ -module Config.Pages.Interviews.Types exposing (..) +module Config.Pages.Interviews.Types exposing + ( Appearance + , Interview + , Subjects + ) type alias Interview = @@ -22,11 +26,3 @@ type alias Appearance = type alias Subjects = { subject : String } - - -type alias FormattedInterviewName = - String - - -type alias FormattedInterviewSocial = - String diff --git a/frontend/src/Config/Pages/Products/Records/NutriDex.elm b/frontend/src/Config/Pages/Products/Records/NutriDex.elm index 9676577..762f271 100755 --- a/frontend/src/Config/Pages/Products/Records/NutriDex.elm +++ b/frontend/src/Config/Pages/Products/Records/NutriDex.elm @@ -1,8 +1,6 @@ -module Config.Pages.Products.Records.NutriDex exposing (..) +module Config.Pages.Products.Records.NutriDex exposing (productNutriDex) -import Config.Pages.Products.Types exposing (..) -import Element exposing (..) -import Element.Font as F exposing (..) +import Config.Pages.Products.Types exposing (NutriDex) productNutriDex : NutriDex diff --git a/frontend/src/Config/Pages/Products/Types.elm b/frontend/src/Config/Pages/Products/Types.elm index bac33c0..3977598 100755 --- a/frontend/src/Config/Pages/Products/Types.elm +++ b/frontend/src/Config/Pages/Products/Types.elm @@ -1,4 +1,7 @@ -module Config.Pages.Products.Types exposing (..) +module Config.Pages.Products.Types exposing + ( Features + , NutriDex + ) import Config.Helpers.Articles.Types exposing (References) diff --git a/frontend/src/Config/Pages/Services/Records/DebateAnalysis.elm b/frontend/src/Config/Pages/Services/Records/DebateAnalysis.elm index 8bc9d7b..5fd2609 100755 --- a/frontend/src/Config/Pages/Services/Records/DebateAnalysis.elm +++ b/frontend/src/Config/Pages/Services/Records/DebateAnalysis.elm @@ -1,12 +1,12 @@ -module Config.Pages.Services.Records.DebateAnalysis exposing (..) +module Config.Pages.Services.Records.DebateAnalysis exposing (servicesDebateAnalysis) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Services.Types exposing (..) -import Element as E exposing (..) +import Config.Pages.Services.Types exposing (Service) import Route.Path as Path -servicesDebateAnalysis : Service msg +servicesDebateAnalysis : Service servicesDebateAnalysis = let name : String @@ -18,58 +18,11 @@ servicesDebateAnalysis = , serviceName = name , isNewTabLink = False , serviceRate = "$80/hr" + , serviceBlurb = "" , serviceDescription = [ { point = "Have your own debates analyzed for constructive feedback." } , { point = "Receive advice to improve your debate and public speaking skills." } , { point = "Gain valuable insights that help you become a stronger reasoner." } , { point = "Gain comfort with debate and verbal confrontation." } ] - , serviceArticle = - { articleTitles = - { title1 = "Benefits" - , title2 = "Requirements" - , title3 = "" - , title4 = "" - , title5 = "" - , title6 = "" - , title7 = "" - , title8 = "" - , title9 = "" - , title10 = "" - } - , articleParagraph = - { paragraph1 = [ text "The Debate Analysis services offers personalized feedback to help you improve your debate skills. I work with clients by reviewing their pre-recorded debates, providing detailed critiques, and offering practical advice tailored to their style. Through this process, you'll gain valuable insights into areas of improvement, from your argument structure to your delivery and confidence." ] - , paragraph2 = [] - , paragraph3 = [] - , paragraph4 = [] - } - , articleListEntries = - { list1 = - [ "Have your own debates analyzed for constructive feedback. This allows you to receive targeted guidance on how to improve your debating technique and strategy." - , "Receive advice to improve as a debater. This service provides personalized recommendations to help you develop and refine your debating abilities." - , "Gain comfort with debate and verbal confrontation. The service aims to help you become more confident and adept at handling the challenges of public debate." - ] - , list2 = - [ "Your debate recording must be submitted at least three days prior to the session." - , "Your debate recording must not exceed one hour in length unless otherwise agreed to." - , "Your debate recording must be in either video or audio format, as text debates are ineligible." - ] - , list3 = - [] - , list4 = - [] - , list5 = - [] - , list6 = - [] - , list7 = - [] - , list8 = - [] - , list9 = - [] - , list10 = - [] - } - } } diff --git a/frontend/src/Config/Pages/Services/Records/DebateCoaching.elm b/frontend/src/Config/Pages/Services/Records/DebateCoaching.elm index 001fa4b..c0b9949 100755 --- a/frontend/src/Config/Pages/Services/Records/DebateCoaching.elm +++ b/frontend/src/Config/Pages/Services/Records/DebateCoaching.elm @@ -1,12 +1,12 @@ -module Config.Pages.Services.Records.DebateCoaching exposing (..) +module Config.Pages.Services.Records.DebateCoaching exposing (servicesDebateCoaching) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Services.Types exposing (..) -import Element as E exposing (..) +import Config.Pages.Services.Types exposing (Service) import Route.Path as Path -servicesDebateCoaching : Service msg +servicesDebateCoaching : Service servicesDebateCoaching = let name : String @@ -18,77 +18,11 @@ servicesDebateCoaching = , serviceName = name , serviceRate = "$60/hr" , isNewTabLink = False + , serviceBlurb = "" , serviceDescription = [ { point = "Participate in a structured course with five one-hour modules." } , { point = "Learn critical thinking, debate strategy, formal logic, and more" } , { point = "Receive personalized and generalizable advice." } , { point = "Improve debate understanding and performance." } ] - , serviceArticle = - { articleTitles = - { title1 = "What You Get" - , title2 = "Syllabus" - , title3 = "Module 1" - , title4 = "Module 2" - , title5 = "Module 3" - , title6 = "Module 4" - , title7 = "Module 5" - , title8 = "Optional" - , title9 = "" - , title10 = "" - } - , articleParagraph = - { paragraph1 = [ text "This service is designed to help you gain an understanding of the fundamentals of debate, and the tools used in debate. The service spans five modules, covering fallacious reasoning, epistemology, and propositional logic. You're free to choose which modules you want to cover, based on your current knowledge and interests." ] - , paragraph2 = [ text "If interested clients choose to text their knowledge and sharpen their skills with mock debates, they may be subject to additional fees, as mock debates often involve the inclusion of skillful third parties against whom clients can spar." ] - , paragraph3 = [] - , paragraph4 = [] - } - , articleListEntries = - { list1 = - [ "A five-module course covering critical thinking, debate strategy, and propositional logic, designed to strengthen your debating skills." - , "Personalized feedback and guidance to boost your strategic thinking, verbal comfort, and overall debate effectiveness." - , "Optional mock debates and staged confrontations, helping you gain experience and confidence in real-world debates." - ] - , list2 = - [ "" ] - , list3 = - [ "Study both common and obscure logical fallacies." - , "Learn to identify and rebut fallacious reasoning." - , "Test your knowledge of logical fallacies." - ] - , list4 = - [ "Assignment review." - , "Study concepts related to formal logic and argumentation." - , "Learn the lexicon of debate and formal reasoning." - , "Test your knowledge of debate-related terminology." - ] - , list5 = - [ "Assignment review." - , "Study philosophical concepts relevant to debate." - , "Learn about epistemology and the philosophy of science." - , "Test your knowledge of debate-related philosophical concepts." - ] - , list6 = - [ "Assignment review." - , "Study the different modes of argumentation." - , "Learn the principles and axioms of propositional logic." - , "Test your knowledge of propositional logic fundamentals." - ] - , list7 = - [ "Assignment review." - , "Study the inference rules of propositional logic." - , "Learn how to form valid formal arguments." - , "Test your knowledge of formal logic." - ] - , list8 = - [ "Test your knowledge in an optional mock debate." - , "Choose between general, empirical, and NTT-style debate." - , "Have your performance analyzed in realtime." - ] - , list9 = - [] - , list10 = - [] - } - } } diff --git a/frontend/src/Config/Pages/Services/Records/ElmBuilds.elm b/frontend/src/Config/Pages/Services/Records/ElmBuilds.elm index cbc2a57..3863d77 100755 --- a/frontend/src/Config/Pages/Services/Records/ElmBuilds.elm +++ b/frontend/src/Config/Pages/Services/Records/ElmBuilds.elm @@ -1,16 +1,12 @@ -module Config.Pages.Services.Records.ElmBuilds exposing (..) +module Config.Pages.Services.Records.ElmBuilds exposing (servicesElmBuilds) -import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyLink) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Services.Types exposing (..) -import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme) -import Config.Style.Transitions exposing (hoverFontDarkOrange, transitionStyleMedium) -import Element as E exposing (..) -import Element.Font as F exposing (..) +import Config.Pages.Services.Types exposing (Service) import Route.Path as Path -servicesElmBuilds : Service msg +servicesElmBuilds : Service servicesElmBuilds = let name : String @@ -20,82 +16,13 @@ servicesElmBuilds = { serviceImage = formatName name , serviceLink = Path.toString Path.Services_Elm , serviceName = name - , serviceRate = "$20/hr" + , serviceRate = "$50/hr (or by deliverable)" , isNewTabLink = False + , serviceBlurb = "" , serviceDescription = [ { point = "Receive a custom website frontend written in Elm." } , { point = "Tailored solutions based on user needs." } - , { point = "Help with integration and server integration." } + , { point = "Assistance with server integration." } , { point = "Receive unlimited revisions before finalization." } ] - , serviceArticle = - { articleTitles = - { title1 = "What You Get" - , title2 = "Requirements" - , title3 = "Example" - , title4 = "" - , title5 = "" - , title6 = "" - , title7 = "" - , title8 = "" - , title9 = "" - , title10 = "" - } - , articleParagraph = - { paragraph1 = - [ text "The site that you're currently viewing this on was written by me in the Elm programming language. In the process of programming this website, I realized that I could create reasonably high quality work with Elm, so I'm offering it as a service at a fee that reflects my skill level. " - , text "If you're in the market for a new frontend for your website, please inquire at " - , link - [] - { url = "mailto:" - , label = detailBodyLink TextLightOrange "nick@upRootNutrition.com" - } - , text "." - ] - , paragraph2 = [ text "Below is an example of a function that I wrote for this site. This particular function renders all of the circular images on all of the site's information cards. Any time you see one of those images, this function is responsible for it." ] - , paragraph3 = - [ text "The source code for this website is viewable on " - , newTabLink [] - { url = "https://gitlab.com/upRootNutrition/website" - , label = - el - [ F.color colourTheme.textLightOrange - , hoverFontDarkOrange - , transitionStyleMedium - ] - <| - text "Gitlab" - } - ] - , paragraph4 = [] - } - , articleListEntries = - { list1 = - [ "An Elm-based website written to your specifications." - , "Two revisions to better meet your needs and vision." - , "Six months of free support to correct mistakes." - ] - , list2 = - [ "A clear vision of what you want your site to look like." - , "A clear description of your site's pages and structure." - , "Any bespoke frontend functionality you want included." - ] - , list3 = - [] - , list4 = - [] - , list5 = - [] - , list6 = - [] - , list7 = - [] - , list8 = - [] - , list9 = - [] - , list10 = - [] - } - } } diff --git a/frontend/src/Config/Pages/Services/Records/NixBuilds.elm b/frontend/src/Config/Pages/Services/Records/NixBuilds.elm index c91b3cc..26cd2bb 100755 --- a/frontend/src/Config/Pages/Services/Records/NixBuilds.elm +++ b/frontend/src/Config/Pages/Services/Records/NixBuilds.elm @@ -1,17 +1,12 @@ -module Config.Pages.Services.Records.NixBuilds exposing (..) +module Config.Pages.Services.Records.NixBuilds exposing (servicesNixBuilds) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Services.Types exposing (..) -import Config.Style.Colour.Helpers exposing (colourTheme) -import Config.Style.Transitions exposing (hoverFontDarkOrange, transitionStyleMedium) -import Element as E exposing (..) -import Element.Font as F exposing (..) +import Config.Pages.Services.Types exposing (Service) import Route.Path as Path -import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyLink) -import Config.Style.Colour.Helpers exposing (ThemeColor(..)) -servicesNixBuilds : Service msg +servicesNixBuilds : Service servicesNixBuilds = let name : String @@ -21,82 +16,13 @@ servicesNixBuilds = { serviceImage = formatName name , serviceLink = Path.toString Path.Services_Nix , serviceName = name - , serviceRate = "$40/hr" + , serviceRate = "$50/hr (or by deliverable)" , isNewTabLink = False + , serviceBlurb = "" , serviceDescription = [ { point = "Receive a custom NixOS configuration." } , { point = "Help with transitioning from other operating systems to NixOS." } , { point = "Assistance with the Nix programming language." } , { point = "Receive unlimited revisions before finalization." } ] - , serviceArticle = - { articleTitles = - { title1 = "What You Get" - , title2 = "Requirements" - , title3 = "Example" - , title4 = "" - , title5 = "" - , title6 = "" - , title7 = "" - , title8 = "" - , title9 = "" - , title10 = "" - } - , articleParagraph = - { paragraph1 = - [ text "NixOS has become popular in my community, with many people choosing to explore it over Windows, MacOS, and other Linux distributions. Naturally, as a consequence of this, I receive numerous requests for help regarding the Nix programming language and NixOS system configuration. So, to fast-track newcomers and to make my life a little bit easier for both of us, I'm offering to build custom NixOS configurations for interested clients. " - , text "If you're interested in having a custom Nix configuration, or having a pre-existing configuration refactored, please inquire at " - , link - [] - { url = "mailto:" - , label = detailBodyLink TextLightOrange "nick@upRootNutrition.com" - } - , text "." - ] - , paragraph2 = [ text "Below is an example of a nix flake that I wrote for the devshell that I used to manage and isolate the development environment for this site. All of the packages, pre-defined settings, and tooling used for this site are managed through this flake." ] - , paragraph3 = - [ text "The source code for this website's server is viewable on " - , newTabLink [] - { url = "https://gitlab.com/upRootNutrition/dotfiles" - , label = - el - [ F.color colourTheme.textLightOrange - , hoverFontDarkOrange - , transitionStyleMedium - ] - <| - text "Gitlab" - } - ] - , paragraph4 = [] - } - , articleListEntries = - { list1 = - [ "A NixOS configuration written to your specifications." - , "Two refactors for the purposes of improving readability." - , "Instructions for how to use and build upon your configuration." - ] - , list2 = - [ "A comprehensive list of packages you'd like included." - , "A list of configuration architecture specifications." - , "Any bespoke configuration you want included." - ] - , list3 = - [] - , list4 = - [] - , list5 = - [] - , list6 = - [] - , list7 = - [] - , list8 = - [] - , list9 = - [] - , list10 = - [] - } - } } diff --git a/frontend/src/Config/Pages/Services/Records/NutritionScience.elm b/frontend/src/Config/Pages/Services/Records/NutritionScience.elm index 3543033..a45ebc4 100755 --- a/frontend/src/Config/Pages/Services/Records/NutritionScience.elm +++ b/frontend/src/Config/Pages/Services/Records/NutritionScience.elm @@ -1,12 +1,12 @@ -module Config.Pages.Services.Records.NutritionScience exposing (..) +module Config.Pages.Services.Records.NutritionScience exposing (servicesNutritionScience) +import Config.Data.Hashtags.Types exposing (Hashtags(..)) import Config.Helpers.Converters exposing (formatName) -import Config.Pages.Services.Types exposing (..) -import Element as E exposing (..) +import Config.Pages.Services.Types exposing (Service) import Route.Path as Path -servicesNutritionScience : Service msg +servicesNutritionScience : Service servicesNutritionScience = let name : String @@ -18,56 +18,11 @@ servicesNutritionScience = , serviceName = name , serviceRate = "$50/hr" , isNewTabLink = False + , serviceBlurb = "" , serviceDescription = [ { point = "Participate in a focused, one-hour Q&A session on nutrition science." } , { point = "Inquire about methodology, epistemology, and study interpretation." } , { point = "Gain access to nutrition science interpretation cheat sheets." } , { point = "Simplify and streamline the research appraisal process." } ] - , serviceArticle = - { articleTitles = - { title1 = "What You Get" - , title2 = "Requirements" - , title3 = "" - , title4 = "" - , title5 = "" - , title6 = "" - , title7 = "" - , title8 = "" - , title9 = "" - , title10 = "" - } - , articleParagraph = - { paragraph1 = [ text "This service is designed to help those interested in honing their nutrition science knowledge and boosting their intuition when reading nutrition science literature. Whether the client's goals are to achieve their academic ambitions, satisfy their personal curiosity, or improve their empirical debate chops. The client is free to guide the session in any direction they choose, so long as it is relevant to nutrition science." ] - , paragraph2 = [] - , paragraph3 = [] - , paragraph4 = [] - } - , articleListEntries = - { list1 = - [ "One hour to ask me anything about nutrition science." - , "Access to nutrition science evaluation cheat sheets." - , "Sharper nutrition science critical appraisal skills." - ] - , list2 = - [ "A list of five clear questions related to nutrition science." - ] - , list3 = - [] - , list4 = - [] - , list5 = - [] - , list6 = - [] - , list7 = - [] - , list8 = - [] - , list9 = - [] - , list10 = - [] - } - } } diff --git a/frontend/src/Config/Pages/Services/Types.elm b/frontend/src/Config/Pages/Services/Types.elm index 2c9e9db..56348da 100755 --- a/frontend/src/Config/Pages/Services/Types.elm +++ b/frontend/src/Config/Pages/Services/Types.elm @@ -1,59 +1,17 @@ -module Config.Pages.Services.Types exposing (..) - -import Element as E exposing (..) +module Config.Pages.Services.Types exposing + ( Description + , Service + ) -type alias Service msg = +type alias Service = { serviceImage : String , serviceLink : String , serviceName : String , serviceRate : String , isNewTabLink : Bool + , serviceBlurb : String , serviceDescription : List Description - , serviceArticle : ServicePage msg - } - - -type alias ServicePage msg = - { articleParagraph : Paragraph msg - , articleTitles : Title - , articleListEntries : ArticleList - } - - -type alias Paragraph msg = - { paragraph1 : List (Element msg) - , paragraph2 : List (Element msg) - , paragraph3 : List (Element msg) - , paragraph4 : List (Element msg) - } - - -type alias Title = - { title1 : String - , title2 : String - , title3 : String - , title4 : String - , title5 : String - , title6 : String - , title7 : String - , title8 : String - , title9 : String - , title10 : String - } - - -type alias ArticleList = - { list1 : List String - , list2 : List String - , list3 : List String - , list4 : List String - , list5 : List String - , list6 : List String - , list7 : List String - , list8 : List String - , list9 : List String - , list10 : List String } diff --git a/frontend/src/Config/Style/Colour/Helpers.elm b/frontend/src/Config/Style/Colour/Helpers.elm index a5ad0fd..f87604d 100755 --- a/frontend/src/Config/Style/Colour/Helpers.elm +++ b/frontend/src/Config/Style/Colour/Helpers.elm @@ -1,4 +1,9 @@ -module Config.Style.Colour.Helpers exposing (..) +module Config.Style.Colour.Helpers exposing + ( ThemeColor(..) + , colourTheme + , getThemeColor + , syntaxTheme + ) import Config.Style.Colour.Types exposing diff --git a/frontend/src/Config/Style/Colour/Types.elm b/frontend/src/Config/Style/Colour/Types.elm index 8b39319..dc316ce 100755 --- a/frontend/src/Config/Style/Colour/Types.elm +++ b/frontend/src/Config/Style/Colour/Types.elm @@ -1,4 +1,7 @@ -module Config.Style.Colour.Types exposing (..) +module Config.Style.Colour.Types exposing + ( SyntaxColors + , Theme + ) import Element exposing (Color) diff --git a/frontend/src/Config/Style/Fonts.elm b/frontend/src/Config/Style/Fonts.elm index b8681d5..ffe9d4f 100755 --- a/frontend/src/Config/Style/Fonts.elm +++ b/frontend/src/Config/Style/Fonts.elm @@ -1,8 +1,50 @@ -module Config.Style.Fonts exposing (spartanFont) +module Config.Style.Fonts exposing + ( defaultFontSize + , headerFontSizeBig + , headerFontSizeMedium + , paragraphSpacing + , smallTextFontSize + , spartanFont + ) -import Element.Font as F exposing (typeface) +import Element + exposing + ( Attr + , Attribute + , spacing + ) +import Element.Font as F + exposing + ( size + , typeface + ) spartanFont : F.Font spartanFont = F.typeface "League Spartan" + + +paragraphSpacing : Attribute msg +paragraphSpacing = + spacing 0 + + +headerFontSizeBig : Attr decorative msg +headerFontSizeBig = + F.size 23 + + +headerFontSizeMedium : Attr decorative msg +headerFontSizeMedium = + F.size 20 + + +defaultFontSize : Attr decorative msg +defaultFontSize = + F.size 18 + + +smallTextFontSize : Attr decorative msg +smallTextFontSize = + F.size 16 diff --git a/frontend/src/Config/Style/Glow.elm b/frontend/src/Config/Style/Glow.elm index 5a2b572..0a5a809 100755 --- a/frontend/src/Config/Style/Glow.elm +++ b/frontend/src/Config/Style/Glow.elm @@ -1,21 +1,24 @@ -module Config.Style.Glow exposing (..) +module Config.Style.Glow exposing + ( glowDeepDarkGrey + , glowDeepDarkGreyNavbar + , glowDeepDarkOrange + ) -import Config.Style.Colour.Helpers exposing (colourTheme) +import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme, getThemeColor) import Element exposing (Attr) import Element.Border as D exposing (glow) -import Html.Attributes as H exposing (style) glowDeepDarkGrey : Attr decorative msg glowDeepDarkGrey = - D.glow colourTheme.shadow 4 + D.glow (getThemeColor Shadow) 4 glowDeepDarkOrange : Attr decorative msg glowDeepDarkOrange = - D.glow colourTheme.textDeepDarkOrange 4 + D.glow (getThemeColor TextDeepDarkOrange) 4 glowDeepDarkGreyNavbar : Attr decorative msg glowDeepDarkGreyNavbar = - D.glow colourTheme.shadow 10 + D.glow (getThemeColor Shadow) 10 diff --git a/frontend/src/Config/Style/Icons/Helpers.elm b/frontend/src/Config/Style/Icons/Helpers.elm index 2b4da1a..b6ebcef 100755 --- a/frontend/src/Config/Style/Icons/Helpers.elm +++ b/frontend/src/Config/Style/Icons/Helpers.elm @@ -1,11 +1,16 @@ -module Config.Style.Icons.Helpers exposing (..) +module Config.Style.Icons.Helpers exposing (buildSvg) import Config.Style.Icons.Types as SvgTypes exposing ( InnerPart , OuterPart ) -import Element as E exposing (..) +import Element as E + exposing + ( Element + , el + , html + ) import Svg exposing (svg) diff --git a/frontend/src/Config/Style/Icons/Icons.elm b/frontend/src/Config/Style/Icons/Icons.elm index d9f8d72..2f76b82 100755 --- a/frontend/src/Config/Style/Icons/Icons.elm +++ b/frontend/src/Config/Style/Icons/Icons.elm @@ -1,13 +1,39 @@ -module Config.Style.Icons.Icons exposing (..) +module Config.Style.Icons.Icons exposing + ( circleDots + , circleX + , code + , construction + , contact + , copyLink + , debate + , discord + , donate + , gitlab + , home + , hyperBlog + , interviews + , leaving + , line + , lock + , mastodon + , nutriDex + , nutriDexLogo + , services + , thumbsDown + , twitter + , upRootLarge + , upRootMedium + , upRootSmall + , video + ) -import Config.Helpers.Viewport exposing (Msg) import Config.Style.Icons.Helpers as HeSvg exposing (buildSvg) import Config.Style.Icons.Types as SvgTypes exposing ( InnerPart , OuterPart ) -import Element as E exposing (..) +import Element as E exposing (Element) import Html exposing (Html) import Svg exposing @@ -930,3 +956,51 @@ leaving inner = [] ] } + + +copyLink : SvgTypes.OuterPart msg -> Element msg +copyLink inner = + HeSvg.buildSvg inner + { svgAttributes = + [ SvgAttr.viewBox "0 0 640 512" + , SvgAttr.fill "currentColor" + ] + , svg = + [ path + [ SvgAttr.d "M579.8 267.7c56.5-56.5 56.5-148 0-204.5c-50-50-128.8-56.5-186.3-15.4l-1.6 1.1c-14.4 10.3-17.7 30.3-7.4 44.6s30.3 17.7 44.6 7.4l1.6-1.1c32.1-22.9 76-19.3 103.8 8.6c31.5 31.5 31.5 82.5 0 114L422.3 334.8c-31.5 31.5-82.5 31.5-114 0c-27.9-27.9-31.5-71.8-8.6-103.8l1.1-1.6c10.3-14.4 6.9-34.4-7.4-44.6s-34.4-6.9-44.6 7.4l-1.1 1.6C206.5 251.2 213 330 263 380c56.5 56.5 148 56.5 204.5 0L579.8 267.7zM60.2 244.3c-56.5 56.5-56.5 148 0 204.5c50 50 128.8 56.5 186.3 15.4l1.6-1.1c14.4-10.3 17.7-30.3 7.4-44.6s-30.3-17.7-44.6-7.4l-1.6 1.1c-32.1 22.9-76 19.3-103.8-8.6C74 372 74 321 105.5 289.5L217.7 177.2c31.5-31.5 82.5-31.5 114 0c27.9 27.9 31.5 71.8 8.6 103.9l-1.1 1.6c-10.3 14.4-6.9 34.4 7.4 44.6s34.4 6.9 44.6-7.4l1.1-1.6C433.5 260.8 427 182 377 132c-56.5-56.5-148-56.5-204.5 0L60.2 244.3z" + ] + [] + ] + } + + +code : SvgTypes.OuterPart msg -> Element msg +code inner = + HeSvg.buildSvg inner + { svgAttributes = + [ SvgAttr.viewBox "0 0 640 512" + , SvgAttr.fill "currentColor" + ] + , svg = + [ path + [ SvgAttr.d "M392.8 1.2c-17-4.9-34.7 5-39.6 22l-128 448c-4.9 17 5 34.7 22 39.6s34.7-5 39.6-22l128-448c4.9-17-5-34.7-22-39.6zm80.6 120.1c-12.5 12.5-12.5 32.8 0 45.3L562.7 256l-89.4 89.4c-12.5 12.5-12.5 32.8 0 45.3s32.8 12.5 45.3 0l112-112c12.5-12.5 12.5-32.8 0-45.3l-112-112c-12.5-12.5-32.8-12.5-45.3 0zm-306.7 0c-12.5-12.5-32.8-12.5-45.3 0l-112 112c-12.5 12.5-12.5 32.8 0 45.3l112 112c12.5 12.5 32.8 12.5 45.3 0s12.5-32.8 0-45.3L77.3 256l89.4-89.4c12.5-12.5 12.5-32.8 0-45.3z" + ] + [] + ] + } + + +thumbsDown : SvgTypes.OuterPart msg -> Element msg +thumbsDown inner = + HeSvg.buildSvg inner + { svgAttributes = + [ SvgAttr.viewBox "0 0 640 512" + , SvgAttr.fill "currentColor" + ] + , svg = + [ path + [ SvgAttr.d "M323.8 477.2c-38.2 10.9-78.1-11.2-89-49.4l-5.7-20c-3.7-13-10.4-25-19.5-35l-51.3-56.4c-8.9-9.8-8.2-25 1.6-33.9s25-8.2 33.9 1.6l51.3 56.4c14.1 15.5 24.4 34 30.1 54.1l5.7 20c3.6 12.7 16.9 20.1 29.7 16.5s20.1-16.9 16.5-29.7l-5.7-20c-5.7-19.9-14.7-38.7-26.6-55.5c-5.2-7.3-5.8-16.9-1.7-24.9s12.3-13 21.3-13L448 288c8.8 0 16-7.2 16-16c0-6.8-4.3-12.7-10.4-15c-7.4-2.8-13-9-14.9-16.7s.1-15.8 5.3-21.7c2.5-2.8 4-6.5 4-10.6c0-7.8-5.6-14.3-13-15.7c-8.2-1.6-15.1-7.3-18-15.2s-1.6-16.7 3.6-23.3c2.1-2.7 3.4-6.1 3.4-9.9c0-6.7-4.2-12.6-10.2-14.9c-11.5-4.5-17.7-16.9-14.4-28.8c.4-1.3 .6-2.8 .6-4.3c0-8.8-7.2-16-16-16l-97.5 0c-12.6 0-25 3.7-35.5 10.7l-61.7 41.1c-11 7.4-25.9 4.4-33.3-6.7s-4.4-25.9 6.7-33.3l61.7-41.1c18.4-12.3 40-18.8 62.1-18.8L384 32c34.7 0 62.9 27.6 64 62c14.6 11.7 24 29.7 24 50c0 4.5-.5 8.8-1.3 13c15.4 11.7 25.3 30.2 25.3 51c0 6.5-1 12.8-2.8 18.7C504.8 238.3 512 254.3 512 272c0 35.3-28.6 64-64 64l-92.3 0c4.7 10.4 8.7 21.2 11.8 32.2l5.7 20c10.9 38.2-11.2 78.1-49.4 89zM32 384c-17.7 0-32-14.3-32-32L0 128c0-17.7 14.3-32 32-32l64 0c17.7 0 32 14.3 32 32l0 224c0 17.7-14.3 32-32 32l-64 0z" + ] + [] + ] + } diff --git a/frontend/src/Config/Style/Icons/Types.elm b/frontend/src/Config/Style/Icons/Types.elm index 8573e7a..78633a7 100755 --- a/frontend/src/Config/Style/Icons/Types.elm +++ b/frontend/src/Config/Style/Icons/Types.elm @@ -1,4 +1,7 @@ -module Config.Style.Icons.Types exposing (..) +module Config.Style.Icons.Types exposing + ( InnerPart + , OuterPart + ) {-| The types used for SVG management. -} diff --git a/frontend/src/Config/Style/Images.elm b/frontend/src/Config/Style/Images.elm index 12255b4..ec19788 100755 --- a/frontend/src/Config/Style/Images.elm +++ b/frontend/src/Config/Style/Images.elm @@ -1,8 +1,33 @@ -module Config.Style.Images exposing (..) +module Config.Style.Images exposing + ( imageSizer + , imageSquareMaker + , roundingScaler + ) -import Config.Helpers.ImageFolders exposing (..) -import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme, getThemeColor) -import Element as E exposing (..) +import Config.Data.ImageFolders + exposing + ( ImageFolder(..) + , imagePathMaker + ) +import Config.Style.Colour.Helpers + exposing + ( ThemeColor(..) + , colourTheme + , getThemeColor + ) +import Element as E + exposing + ( Device + , Element + , Length + , clip + , fill + , height + , image + , px + , rgb255 + , width + ) import Element.Background as B exposing (color) import Element.Border as D exposing diff --git a/frontend/src/Layouts/Navbar.elm b/frontend/src/Layouts/Navbar.elm index f2ac681..89b81dc 100755 --- a/frontend/src/Layouts/Navbar.elm +++ b/frontend/src/Layouts/Navbar.elm @@ -1,13 +1,13 @@ module Layouts.Navbar exposing (Model, Msg, Props, layout) import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Format - exposing - ( paragraphFontSize - , paragraphSpacing - ) import Config.Style.Colour.Helpers exposing (colourTheme) -import Config.Style.Fonts exposing (spartanFont) +import Config.Style.Fonts + exposing + ( defaultFontSize + , paragraphSpacing + , spartanFont + ) import Config.Style.Glow exposing (glowDeepDarkGreyNavbar) import Config.Style.Icons.Icons exposing @@ -614,28 +614,7 @@ makeItem input route = [] else - [ B.gradient - { angle = 1.57 - , steps = - case input.sharedModel.device.class of - Phone -> - [ colourTheme.backgroundLightGrey - , colourTheme.backgroundDarkGrey - , colourTheme.backgroundDarkGrey - ] - - Tablet -> - [ colourTheme.backgroundLightGrey - , colourTheme.backgroundDarkGrey - , colourTheme.backgroundDarkGrey - ] - - _ -> - [ colourTheme.backgroundDarkGrey - , colourTheme.backgroundLightGrey - , colourTheme.backgroundLightGrey - ] - } + [ B.color colourTheme.backgroundLightGrey , F.color colourTheme.textLightOrange ] ) @@ -650,29 +629,9 @@ makeItem input route = , width fill ] ++ (if route.isCurrent then - [ B.gradient - { angle = 1.57 - , steps = - case input.sharedModel.device.class of - Phone -> - [ colourTheme.backgroundDeepDarkGrey - , colourTheme.backgroundDeepDarkGrey - , colourTheme.backgroundDarkGrey - ] - - Tablet -> - [ colourTheme.backgroundDeepDarkGrey - , colourTheme.backgroundDeepDarkGrey - , colourTheme.backgroundDarkGrey - ] - - _ -> - [ colourTheme.backgroundDarkGrey - , colourTheme.backgroundDarkGrey - , colourTheme.backgroundDeepDarkGrey - ] - } + [ B.color colourTheme.backgroundDeepDarkGrey , F.color colourTheme.textLightOrange + , transitionStyleMedium ] else diff --git a/frontend/src/Pages/Blog.elm b/frontend/src/Pages/Blog.elm index bba2271..e839edf 100755 --- a/frontend/src/Pages/Blog.elm +++ b/frontend/src/Pages/Blog.elm @@ -1,35 +1,25 @@ module Pages.Blog exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) +import Config.Data.ImageFolders as M exposing (ImageFolder(..), imagePathMaker) import Config.Helpers.Articles.Article exposing (extractFirstWords) -import Config.Helpers.Cards.Inner.Helpers +import Config.Helpers.Articles.Markdown exposing (renderDeviceMarkdownNoToc) +import Config.Helpers.Cards.Inner.Text exposing ( detailBodyMaker , detailFormat , detailTitleMaker ) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Converters exposing ( formatName , wordCount ) -import Config.Helpers.Format - exposing - ( headerFontSizeSmall - , paragraphFontSize - , paragraphSpacing - ) -import Config.Helpers.Headers.Helpers exposing (..) +import Config.Helpers.Headers.Helpers exposing (headerMaker) import Config.Helpers.Headers.Records exposing (blogHeader) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.ImageFolders as M exposing (..) -import Config.Helpers.Markdown - exposing - ( renderDeviceMarkdown - , renderDeviceMarkdownNoToc - ) +import Config.Helpers.Headers.Types as R exposing (Header) import Config.Helpers.Response exposing ( pageList @@ -47,21 +37,39 @@ import Config.Pages.Blog.Records.SapienDiet exposing (articleSapienDiet) import Config.Pages.Blog.Records.SeedOils exposing (articleSeedOils) import Config.Pages.Blog.Records.Shenangians exposing (articleShenanigans) import Config.Pages.Blog.Records.SweetDeception exposing (articleSweetDeception) -import Config.Pages.Blog.Types exposing (..) -import Config.Style.Colour.Helpers as T exposing (..) +import Config.Pages.Blog.Types exposing (BlogArticle) +import Config.Style.Colour.Helpers as T exposing (ThemeColor(..)) +import Config.Style.Fonts + exposing + ( defaultFontSize + , paragraphSpacing + ) import Config.Style.Icons.Icons exposing (construction) import Config.Style.Images exposing (imageSquareMaker) 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 Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignLeft + , alignTop + , column + , el + , none + , paddingEach + , px + , row + , text + , width + ) import Html.Attributes as H exposing (style) import Layouts import Page exposing (Page) import Route exposing (Route) import Route.Path as Path -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Blog/Bigfatsurprise.elm b/frontend/src/Pages/Blog/Bigfatsurprise.elm index 42930a5..018cb32 100755 --- a/frontend/src/Pages/Blog/Bigfatsurprise.elm +++ b/frontend/src/Pages/Blog/Bigfatsurprise.elm @@ -3,7 +3,7 @@ module Pages.Blog.Bigfatsurprise exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.BigFatSurprise exposing (articleBigFatSurprise) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Blog/Everettvegans.elm b/frontend/src/Pages/Blog/Everettvegans.elm index 4de58d8..74d109b 100755 --- a/frontend/src/Pages/Blog/Everettvegans.elm +++ b/frontend/src/Pages/Blog/Everettvegans.elm @@ -3,7 +3,7 @@ module Pages.Blog.Everettvegans exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.EverettVegans exposing (articleEverettVegans) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) @@ -53,6 +58,8 @@ init () = (Effect.sendCmd resetViewport) ) + + -- UPDATE @@ -104,12 +111,7 @@ articleList device = ) <| List.concat - [ -- List.map (headerMaker device) - -- [ - -- servicesHeader - -- ] - -- , - List.map + [ List.map (\article -> cardMaker device (C.BlogArticle article) (contentList article []) ) diff --git a/frontend/src/Pages/Blog/Huntergatherers.elm b/frontend/src/Pages/Blog/Huntergatherers.elm index cbafb65..2d5b1e1 100755 --- a/frontend/src/Pages/Blog/Huntergatherers.elm +++ b/frontend/src/Pages/Blog/Huntergatherers.elm @@ -3,7 +3,7 @@ module Pages.Blog.Huntergatherers exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.HunterGatherers exposing (articleHunterGatherers) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) @@ -54,6 +59,7 @@ init () = ) + -- UPDATE @@ -105,12 +111,7 @@ articleList device = ) <| List.concat - [ -- List.map (headerMaker device) - -- [ - -- servicesHeader - -- ] - -- , - List.map + [ List.map (\article -> cardMaker device (C.BlogArticle article) (contentList article []) ) diff --git a/frontend/src/Pages/Blog/Meatapologetics.elm b/frontend/src/Pages/Blog/Meatapologetics.elm index b30b0c9..7406af9 100755 --- a/frontend/src/Pages/Blog/Meatapologetics.elm +++ b/frontend/src/Pages/Blog/Meatapologetics.elm @@ -3,7 +3,7 @@ module Pages.Blog.Meatapologetics exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.MeatApologetics exposing (articleMeatApologetics) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Blog/Nagragoodrich.elm b/frontend/src/Pages/Blog/Nagragoodrich.elm index ebb952c..214521e 100755 --- a/frontend/src/Pages/Blog/Nagragoodrich.elm +++ b/frontend/src/Pages/Blog/Nagragoodrich.elm @@ -3,7 +3,7 @@ module Pages.Blog.Nagragoodrich exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.NagraGoodrich exposing (articleNagraGoodrich) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) @@ -54,6 +59,7 @@ init () = ) + -- UPDATE diff --git a/frontend/src/Pages/Blog/Plantbasedmeta.elm b/frontend/src/Pages/Blog/Plantbasedmeta.elm index 74ee8b3..3fec7e2 100755 --- a/frontend/src/Pages/Blog/Plantbasedmeta.elm +++ b/frontend/src/Pages/Blog/Plantbasedmeta.elm @@ -3,7 +3,7 @@ module Pages.Blog.Plantbasedmeta exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.PlantBasedMeta exposing (articlePlantBasedMeta) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Blog/Quacksmashing.elm b/frontend/src/Pages/Blog/Quacksmashing.elm index e0c30f5..7d03ada 100755 --- a/frontend/src/Pages/Blog/Quacksmashing.elm +++ b/frontend/src/Pages/Blog/Quacksmashing.elm @@ -3,7 +3,7 @@ module Pages.Blog.Quacksmashing exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.QuackSmashing exposing (articleQuackSmashing) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Blog/Sapiendiet.elm b/frontend/src/Pages/Blog/Sapiendiet.elm index e4e755b..9d6515c 100755 --- a/frontend/src/Pages/Blog/Sapiendiet.elm +++ b/frontend/src/Pages/Blog/Sapiendiet.elm @@ -3,7 +3,7 @@ module Pages.Blog.Sapiendiet exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.SapienDiet exposing (articleSapienDiet) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Blog/Seedoils.elm b/frontend/src/Pages/Blog/Seedoils.elm index 1f05099..e23ec53 100755 --- a/frontend/src/Pages/Blog/Seedoils.elm +++ b/frontend/src/Pages/Blog/Seedoils.elm @@ -3,7 +3,7 @@ module Pages.Blog.Seedoils exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.SeedOils exposing (articleSeedOils) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Blog/Shenanigans.elm b/frontend/src/Pages/Blog/Shenanigans.elm index 7f1234d..212b421 100755 --- a/frontend/src/Pages/Blog/Shenanigans.elm +++ b/frontend/src/Pages/Blog/Shenanigans.elm @@ -3,7 +3,7 @@ module Pages.Blog.Shenanigans exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.Shenangians exposing (articleShenanigans) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) @@ -117,7 +122,3 @@ articleList device = ) [ articleShenanigans ] ] - - - - diff --git a/frontend/src/Pages/Blog/Sweetdeception.elm b/frontend/src/Pages/Blog/Sweetdeception.elm index 1ce8854..9c983f7 100755 --- a/frontend/src/Pages/Blog/Sweetdeception.elm +++ b/frontend/src/Pages/Blog/Sweetdeception.elm @@ -3,7 +3,7 @@ module Pages.Blog.Sweetdeception exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (contentList) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -13,11 +13,16 @@ import Config.Helpers.Response import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Records.SweetDeception exposing (articleSweetDeception) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , Element + , column + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Contact.elm b/frontend/src/Pages/Contact.elm index d6f8929..a53d730 100755 --- a/frontend/src/Pages/Contact.elm +++ b/frontend/src/Pages/Contact.elm @@ -1,55 +1,61 @@ module Pages.Contact exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Inner.Helpers +import Config.Data.ImageFolders as M + exposing + ( ImageFolder(..) + , imagePathMaker + ) +import Config.Helpers.Cards.Inner.Text exposing ( detailBodyMaker , detailFormat , numberedListItem ) +import Config.Helpers.Cards.Inner.ToolTip exposing (tooltip) 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.Records - exposing - ( contactHeader - , nutriDexHeader - ) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.ImageFolders as M exposing (..) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) +import Config.Helpers.Headers.Helpers exposing (headerMaker) +import Config.Helpers.Headers.Records exposing (contactHeader) +import Config.Helpers.Headers.Types as R exposing (Header) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat - exposing - ( chunkMaker - , divider - , titleMaker - ) -import Config.Helpers.ToolTip exposing (..) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Contact.Types exposing (..) -import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme) -import Config.Style.Images exposing (imageSquareMaker) -import Config.Style.Transitions +import Config.Pages.Contact.Records exposing - ( hoverFontDarkOrange - , transitionStyleFast - , transitionStyleSlow + ( contactCriticism + , contactInquiry ) +import Config.Pages.Contact.Types exposing (Contact) +import Config.Style.Colour.Helpers + exposing + ( ThemeColor(..) + , colourTheme + ) +import Config.Style.Images exposing (imageSquareMaker) 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 Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignLeft + , column + , el + , none + , paddingEach + , row + , text + ) import Html.Attributes as H exposing (style) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Contact/Criticism.elm b/frontend/src/Pages/Contact/Criticism.elm index 1e3d7db..7b86242 100755 --- a/frontend/src/Pages/Contact/Criticism.elm +++ b/frontend/src/Pages/Contact/Criticism.elm @@ -1,43 +1,72 @@ module Pages.Contact.Criticism exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyMaker, detailFormat, numberedListItem) +import Config.Helpers.Cards.Inner.Text + exposing + ( detailBodyMaker + , detailFormat + , detailHeader + , detailTitleMaker + , divider + , numberedListItem + ) 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.Records exposing (contactHeader, nutriDexHeader) -import Config.Helpers.Headers.Types as R exposing (..) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat - exposing - ( divider - , titleMaker - ) -import Config.Helpers.ToolTip exposing (..) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Contact.Types exposing (..) -import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme) +import Config.Pages.Contact.Records exposing (contactCriticism) +import Config.Pages.Contact.Types exposing (Contact) +import Config.Style.Colour.Helpers + exposing + ( ThemeColor(..) + , colourTheme + ) +import Config.Style.Fonts exposing (defaultFontSize) 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 as E + exposing + ( Attr + , Attribute + , Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignRight + , alignTop + , centerX + , column + , el + , fill + , newTabLink + , paddingEach + , paragraph + , px + , row + , spacing + , text + , width + ) +import Element.Background as B exposing (color) +import Element.Border as D exposing (rounded) import Element.Font as F + exposing + ( alignLeft + , color + ) import Html.Attributes as H exposing (style) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) @@ -154,13 +183,12 @@ instructionBody device = [ detailBodyMaker TextLightGrey (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.") ] , detailFormat paragraph [ detailBodyMaker TextLightGrey (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.") ] - , column + , el [ centerX , width fill ] - [ divider - , titleMaker (String.toUpper "Terms and Conditions") - ] + <| + detailHeader (String.toUpper "Terms and Conditions") , column [ spacing 10 ] <| List.indexedMap (\index term -> @@ -173,25 +201,23 @@ instructionBody device = , alignTop ] [ numberedListItem TextLightGrey (index + 1) ] - , column + , el [ spacing 10 , width fill , alignRight ] - [ paragraph + <| + paragraph [ width fill - , paragraphFontSize + , defaultFontSize , F.alignLeft ] term - ] ] ) (termsAndConditions device) - , column [ centerX, width fill ] - [ divider - , titleMaker (String.toUpper "Additional Clarifications") - ] + , el [ centerX, width fill ] <| + detailHeader (String.toUpper "Additional Clarifications") , detailFormat paragraph [ detailBodyMaker TextLightGrey (text "• ") , detailBodyMaker TextLightGrey (text "You are only allowed to post one criticism at a time in the ") diff --git a/frontend/src/Pages/Contact/Inquiry.elm b/frontend/src/Pages/Contact/Inquiry.elm index eec8495..937c406 100755 --- a/frontend/src/Pages/Contact/Inquiry.elm +++ b/frontend/src/Pages/Contact/Inquiry.elm @@ -1,43 +1,45 @@ module Pages.Contact.Inquiry exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyLink, detailBodyMaker, detailFormat, numberedListItem) +import Config.Helpers.Cards.Inner.Text + exposing + ( detailBodyLink + , detailBodyMaker + , 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.Records exposing (contactHeader, nutriDexHeader) -import Config.Helpers.Headers.Types as R exposing (..) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat - exposing - ( divider - , titleMaker - ) -import Config.Helpers.ToolTip exposing (..) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Contact.Types exposing (..) -import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme) -import Config.Style.Transitions +import Config.Pages.Contact.Records exposing (contactInquiry) +import Config.Pages.Contact.Types exposing (Contact) +import Config.Style.Colour.Helpers exposing - ( hoverFontDarkOrange - , transitionStyleFast - , transitionStyleSlow + ( ThemeColor(..) + , colourTheme ) 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.Attributes as H exposing (style) +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , column + , link + , paddingEach + , paragraph + , spacing + , text + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) @@ -162,5 +164,3 @@ instructionBody device = , detailFormat paragraph [ detailBodyMaker TextLightGrey (text "If you wish to submit a Discord ban appeal, you may do using the provided email address. Please include your user ID and a detailed statement detailing why you believe that you, or someone else, should be unbanned.") ] ] - - diff --git a/frontend/src/Pages/Debate.elm b/frontend/src/Pages/Debate.elm index 08ba798..fd12ebe 100755 --- a/frontend/src/Pages/Debate.elm +++ b/frontend/src/Pages/Debate.elm @@ -11,54 +11,61 @@ import Config.Data.Identity exposing ( pageNames ) -import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyLink, detailBodyMaker, detailFormat, detailSpacing, detailTitleMaker) -import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C -import Config.Helpers.Converters exposing (formatName) -import Config.Helpers.Format +import Config.Data.ImageFolders as M exposing - ( headerFontSizeSmall - , paragraphFontSize - , paragraphSpacing + ( ImageFolder(..) + , imagePathMaker ) -import Config.Helpers.Headers.Helpers exposing (..) +import Config.Helpers.Cards.Inner.Text + exposing + ( detailBodyLink + , detailBodyMaker + , detailFormat + , detailSpacing + , detailTitleMaker + ) +import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) +import Config.Helpers.Converters exposing (formatName) +import Config.Helpers.Headers.Helpers exposing (headerMaker) import Config.Helpers.Headers.Records exposing (debateHeader) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.ImageFolders as M exposing (..) +import Config.Helpers.Headers.Types as R exposing (Header) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat exposing (chunkMaker) import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Debate.Arguments.List exposing (argumentList) import Config.Pages.Debate.Cuckery.List exposing (cuckList) import Config.Pages.Debate.Gibberish.List exposing (gibberishList) -import Config.Pages.Debate.Types exposing (..) -import Config.Style.Colour.Helpers as T exposing (ThemeColor(..), colourTheme) -import Config.Style.Glow +import Config.Pages.Debate.Types exposing (Debate) +import Config.Style.Colour.Helpers as T exposing - ( glowDeepDarkGrey - , glowDeepDarkOrange + ( ThemeColor(..) + , colourTheme ) import Config.Style.Images exposing (imageSquareMaker) -import Config.Style.Transitions - exposing - ( 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 exposing (label) -import Html.Attributes as H +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignLeft + , column + , el + , none + , paddingEach + , row + , text + ) import Layouts import Page exposing (Page) import Route exposing (Route) import Route.Path as Path -import Shared exposing (..) +import Shared exposing (Model) import Task import View exposing (View) diff --git a/frontend/src/Pages/Debate/Arguments.elm b/frontend/src/Pages/Debate/Arguments.elm index cab1f93..fb51561 100755 --- a/frontend/src/Pages/Debate/Arguments.elm +++ b/frontend/src/Pages/Debate/Arguments.elm @@ -1,69 +1,115 @@ module Pages.Debate.Arguments exposing (Model, Msg, page) +import Browser.Events as Events import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Inner.Helpers +import Config.Data.ImageFolders as M exposing - ( argumentButton - , bodyFormat + ( ImageFolder(..) + , imagePathMaker + ) +import Config.Helpers.Cards.Inner.StrengthBar exposing (barMaker) +import Config.Helpers.Cards.Inner.Text + exposing + ( bodyFormat + , detailBodyLink , detailBodyMaker , detailFormat , detailSpacing , detailTitleMaker + , generalButton + , getHoverColours ) +import Config.Helpers.Cards.Inner.ToolTip exposing (tooltip) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Converters exposing (toTitleCase) -import Config.Helpers.Format - exposing - ( headerFontSizeSmall - , paragraphFontSize - , paragraphSpacing - ) -import Config.Helpers.Headers.Helpers exposing (..) +import Config.Helpers.Headers.Helpers exposing (headerMaker) import Config.Helpers.Headers.Records exposing (argumentHeader) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.ImageFolders as M exposing (..) +import Config.Helpers.Headers.Types as R exposing (Headerable(..)) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.StrengthBar - exposing - ( barMaker - , barPadding - ) -import Config.Helpers.ToolTip exposing (tooltip) import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Debate.Arguments.List exposing ( argumentList ) -import Config.Pages.Debate.Arguments.Types exposing (..) +import Config.Pages.Debate.Arguments.Types exposing (Argument) import Config.Style.Colour.Helpers exposing ( ThemeColor(..) - , colourTheme + , getThemeColor ) -import Config.Style.Glow +import Config.Style.Icons.Icons exposing - ( glowDeepDarkGrey - , glowDeepDarkOrange + ( code + , copyLink + , thumbsDown + ) +import Config.Style.Icons.Types as TySvg + exposing + ( InnerPart + , OuterPart ) import Config.Style.Images exposing (imageSquareMaker) import Config.Style.Transitions exposing (transitionStyleSlow) import Effect exposing (Effect) -import Element as E exposing (..) -import Element.Background as B +import Element as E + exposing + ( Attribute + , Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignLeft + , alignRight + , alignTop + , centerX + , centerY + , clip + , column + , el + , fill + , focused + , height + , htmlAttribute + , maximum + , none + , paddingEach + , paddingXY + , paragraph + , rgba + , row + , spacing + , text + , width + ) +import Element.Background as B exposing (color) import Element.Border as D + exposing + ( color + , rounded + , shadow + ) import Element.Font as F -import Html exposing (div, hr) -import Html.Attributes as H exposing (style, title, wrap) + exposing + ( bold + , center + , color + ) +import Element.Input as Input +import Html.Attributes as H exposing (style) import Layouts import Page exposing (Page) +import Ports +import Process import Route exposing (Route) import Route.Path as Path import Shared +import Svg.Attributes as SvgAttr +import Task import View exposing (View) @@ -88,12 +134,12 @@ toLayout model = type alias Model = - {} + { hasBeenCopied : List Bool } init : () -> ( Model, Effect Msg ) init () = - ( {} + ( { hasBeenCopied = List.repeat 51 False } , Effect.batch [ Effect.map (\_ -> NoOp) @@ -108,12 +154,45 @@ init () = type Msg - = NoOp + = CopyText String Int + | ResetCopyState Int + | NoOp update : Msg -> Model -> ( Model, Effect Msg ) update msg model = + let + urlLinkClickUpdate : Int -> Model + urlLinkClickUpdate index = + { model + | hasBeenCopied = + List.take index model.hasBeenCopied + ++ (case List.head (List.drop index model.hasBeenCopied) of + Just isCLicked -> + [ not isCLicked ] + + Nothing -> + [] + -- shouldn't happen + ) + ++ List.drop (index + 1) model.hasBeenCopied + } + in case msg of + CopyText text index -> + ( urlLinkClickUpdate index + , Effect.batch + [ Effect.sendCmd (Ports.copyToClipboard text) + , Effect.sendCmd (Process.sleep 700 |> Task.perform (\_ -> ResetCopyState index)) + ] + ) + + ResetCopyState index -> + ( urlLinkClickUpdate index + -- wrong lol + , Effect.none + ) + NoOp -> ( model , Effect.none @@ -137,17 +216,17 @@ view : Shared.Model -> Model -> View Msg view shared model = { title = "debate (" ++ pageNames.pageArguments ++ ")" , attributes = [] - , element = debateContainer shared + , element = debateContainer shared model } -debateContainer : Shared.Model -> Element msg -debateContainer shared = - topLevelContainer (debateList shared) +debateContainer : Shared.Model -> Model -> Element Msg +debateContainer shared model = + topLevelContainer (debateList shared model) -debateList : Shared.Model -> Element msg -debateList shared = +debateList : Shared.Model -> Model -> Element Msg +debateList shared model = column (case ( shared.device.class, shared.device.orientation ) of _ -> @@ -156,16 +235,20 @@ debateList shared = <| List.concat [ [ headerMaker (R.Arguments argumentHeader) ] - , List.map - (\argument -> - cardMaker shared.device (C.Argument argument) (contentList shared argument) + , List.map3 + (\argument dummy index -> + cardMaker shared.device + (C.Argument argument) + (contentList shared model dummy index argument) ) argumentList + model.hasBeenCopied + (List.range 0 (List.length argumentList)) ] -contentList : Shared.Model -> Argument -> List (Element msg) -contentList shared argument = +contentList : Shared.Model -> Model -> Bool -> Int -> Argument -> List (Element Msg) +contentList shared model isLinkClicked index argument = let image : String -> Element msg image size = @@ -223,18 +306,67 @@ contentList shared argument = , formalizationMaker shared.device argument , el [ alignRight ] <| row [ width fill, spacing 20 ] - [ argumentButton (Path.toString Path.Contact_Criticism) "Reject Premise" - , argumentButton argument.proofLink "Proof Tree" + [ generalButton shared (Path.toString Path.Contact_Criticism) thumbsDown + , generalButton shared argument.proofLink code + , copyButton shared model isLinkClicked index argument ] ] +copyButton : Shared.Model -> Model -> Bool -> Int -> Argument -> Element Msg +copyButton shared model isLinkClicked index argument = + Input.button + [ focused + [ D.color (rgba 0 0 0 0) + , D.shadow { blur = 0, color = rgba 0 0 0 0, offset = ( 0, 0 ), size = 0 } + ] + ] + { onPress = Just (CopyText ("https://uprootnutrition.com" ++ Path.toString Path.Debate_Arguments ++ "#" ++ argument.argumentImage) index) + , label = + el + (if isLinkClicked then + [ transitionStyleSlow + , tooltip "Copied!" False + , case ( shared.device.class, shared.device.orientation ) of + ( Phone, Portrait ) -> + B.color (getThemeColor BackgroundDarkGrey) + + ( Tablet, Portrait ) -> + B.color (getThemeColor BackgroundDarkGrey) + + _ -> + B.color (getThemeColor BackgroundDeepDarkGrey) + , paddingXY 7 7 + , D.rounded 10 + , F.color (getThemeColor TextLightOrange) + ] + + else + [ transitionStyleSlow + , B.color (getThemeColor Transparent) + , paddingXY 7 7 + , D.rounded 10 + , F.color (getThemeColor TextLightOrange) + ] + ++ getHoverColours TextLightOrange + ) + <| + copyLink + { elementAttributes = + [] + , sharedModel = shared + , svgAttributes = [ SvgAttr.width "20" ] + } + } + + strengthMaker : Shared.Model -> Element msg strengthMaker shared = el (if not shared.isNavbarExpanded then [ tooltip - "This represents my confidence in the soundness of the argument." + "This represents how pleasant the host was to engage with." + True ] else @@ -303,15 +435,15 @@ tableMaker device argument = E.table ([ D.rounded 10 , D.width 2 - , D.color colourTheme.textDarkGrey + , D.color (getThemeColor TextDarkGrey) , clip ] ++ (case ( device.class, device.orientation ) of ( Phone, Portrait ) -> - [ B.color colourTheme.backgroundSpreadsheet ] + [ B.color (getThemeColor BackgroundSpreadsheet) ] ( Tablet, Portrait ) -> - [ B.color colourTheme.backgroundSpreadsheet ] + [ B.color (getThemeColor BackgroundSpreadsheet) ] _ -> [] @@ -328,7 +460,7 @@ tableMaker device argument = , left = 1 , right = 1 } - , D.color colourTheme.textDarkGrey + , D.color (getThemeColor TextDarkGrey) , cellPadding , E.width fill ] @@ -346,7 +478,7 @@ tableMaker device argument = , left = 1 , right = 1 } - , D.color colourTheme.textDarkGrey + , D.color (getThemeColor TextDarkGrey) , cellPadding , E.height fill ] @@ -366,7 +498,7 @@ tableMaker device argument = , left = 0 , right = 1 } - , D.color colourTheme.textDarkGrey + , D.color (getThemeColor TextDarkGrey) , cellPadding , E.width fill ] @@ -382,7 +514,7 @@ tableMaker device argument = , left = 0 , right = 1 } - , D.color colourTheme.textDarkGrey + , D.color (getThemeColor TextDarkGrey) , cellPadding , E.height fill ] diff --git a/frontend/src/Pages/Debate/Cucklist.elm b/frontend/src/Pages/Debate/Cucklist.elm index d65df22..391fc32 100755 --- a/frontend/src/Pages/Debate/Cucklist.elm +++ b/frontend/src/Pages/Debate/Cucklist.elm @@ -1,38 +1,55 @@ module Pages.Debate.Cucklist exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyMaker, detailFormat, detailSpacing, detailTitleLink, detailTitleMaker, numberedListItem) -import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C -import Config.Helpers.Converters exposing (formatSocial) -import Config.Helpers.Format +import Config.Data.ImageFolders as M exposing - ( headerFontSizeSmall - , paragraphFontSize - , paragraphSpacing - , smallTextFontSize + ( ImageFolder(..) + , imagePathMaker ) -import Config.Helpers.Headers.Helpers exposing (..) +import Config.Helpers.Cards.Inner.Text + exposing + ( detailBodyMaker + , detailFormat + , detailSpacing + , detailTitleLink + , detailTitleMaker + , getHoverColours + , numberedListItem + ) +import Config.Helpers.Cards.Inner.ToolTip exposing (tooltip) +import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) +import Config.Helpers.Converters exposing (formatSocial) +import Config.Helpers.Headers.Helpers exposing (headerMaker) import Config.Helpers.Headers.Records exposing (cuckListHeader) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.ImageFolders as M exposing (..) +import Config.Helpers.Headers.Types as R exposing (Headerable(..)) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ToolTip exposing (tooltipImage) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Debate.Cuckery.List +import Config.Pages.Debate.Cuckery.List exposing (cuckList) +import Config.Pages.Debate.Cuckery.Types exposing - ( cuckList - , cuckListNumber + ( Cuck + , Dodge + , DodgeDescription(..) + , DodgeFallacies(..) + , DoxasticState(..) + , Evaluation(..) ) -import Config.Pages.Debate.Cuckery.Types exposing (..) import Config.Style.Colour.Helpers exposing ( ThemeColor(..) - , colourTheme + , getThemeColor + ) +import Config.Style.Fonts exposing (smallTextFontSize) +import Config.Style.Icons.Icons exposing (copyLink) +import Config.Style.Icons.Types as TySvg + exposing + ( InnerPart + , OuterPart ) import Config.Style.Images exposing (imageSquareMaker) import Config.Style.Transitions @@ -42,15 +59,50 @@ import Config.Style.Transitions , transitionStyleSlow ) import Effect exposing (Effect) -import Element as E exposing (..) -import Element.Background as B +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignRight + , alignTop + , column + , el + , fill + , focused + , htmlAttribute + , newTabLink + , none + , paddingEach + , paddingXY + , paragraph + , px + , rgba + , row + , spacing + , text + , width + ) +import Element.Background as B exposing (color) import Element.Border as D -import Element.Font as F -import Html.Attributes as H + exposing + ( color + , rounded + , shadow + ) +import Element.Font as F exposing (color) +import Element.Input as Input +import Html.Attributes as H exposing (style) import Layouts import Page exposing (Page) +import Ports +import Process import Route exposing (Route) +import Route.Path as Path import Shared +import Svg.Attributes as SvgAttr +import Task import View exposing (View) @@ -75,15 +127,18 @@ toLayout model = type alias Model = - {} + { hasBeenCopied : List Bool } init : () -> ( Model, Effect Msg ) init () = - ( {} - , Effect.map - (\_ -> NoOp) - (Effect.sendCmd resetViewport) + ( { hasBeenCopied = List.repeat 51 False } + , Effect.batch + [ Effect.map + (\_ -> NoOp) + (Effect.sendCmd resetViewport) + , Effect.none + ] ) @@ -92,12 +147,44 @@ init () = type Msg - = NoOp + = CopyText String Int + | ResetCopyState Int + | NoOp update : Msg -> Model -> ( Model, Effect Msg ) update msg model = + let + urlLinkClickUpdate : Int -> Model + urlLinkClickUpdate index = + { model + | hasBeenCopied = + List.take index model.hasBeenCopied + ++ (case List.head (List.drop index model.hasBeenCopied) of + Just isCLicked -> + [ not isCLicked ] + + Nothing -> + -- shouldn't happen + [] + ) + ++ List.drop (index + 1) model.hasBeenCopied + } + in case msg of + CopyText text index -> + ( urlLinkClickUpdate index + , Effect.batch + [ Effect.sendCmd (Ports.copyToClipboard text) + , Effect.sendCmd (Process.sleep 700 |> Task.perform (\_ -> ResetCopyState index)) + ] + ) + + ResetCopyState index -> + ( urlLinkClickUpdate index + , Effect.none + ) + NoOp -> ( model , Effect.none @@ -121,35 +208,37 @@ view : Shared.Model -> Model -> View Msg view shared model = { title = "debate (" ++ pageNames.pageCucks ++ ")" , attributes = [] - , element = cucksContainer shared.device + , element = cucksContainer shared model } -cucksContainer : Device -> Element msg -cucksContainer device = - topLevelContainer (cucksList device) +cucksContainer : Shared.Model -> Model -> Element Msg +cucksContainer shared model = + topLevelContainer (cucksList shared model) -cucksList : Device -> Element msg -cucksList device = +cucksList : Shared.Model -> Model -> Element Msg +cucksList shared model = column - (case ( device.class, device.orientation ) of + (case ( shared.device.class, shared.device.orientation ) of _ -> - pageList device + pageList shared.device ) <| List.concat [ [ headerMaker (R.CuckList cuckListHeader) ] - , List.map - (\cuck -> - cardMaker device (C.Cuck cuck) (contentList device cuck) + , List.map3 + (\cuck dummy index -> + cardMaker shared.device (C.Cuck cuck) (contentList shared model dummy index cuck) ) cuckList + model.hasBeenCopied + (List.range 0 (List.length cuckList)) ] -contentList : Device -> Cuck -> List (Element msg) -contentList device cuck = +contentList : Shared.Model -> Model -> Bool -> Int -> Cuck -> List (Element Msg) +contentList shared model isLinkClicked index cuck = let image : String -> Element msg image size = @@ -164,10 +253,10 @@ contentList device cuck = } ] <| - imageSquareMaker device (imagePathMaker M.Cuck cuck.cuckImage) True size + imageSquareMaker shared.device (imagePathMaker M.Cuck cuck.cuckImage) True size in [ detailFormat row - [ case ( device.class, device.orientation ) of + [ case ( shared.device.class, shared.device.orientation ) of ( Phone, Portrait ) -> none @@ -179,12 +268,60 @@ contentList device cuck = , detailFormat column [ socialMaker cuck , dodgeTitle cuck - , dodgeMaker device cuck + , dodgeMaker shared.device cuck + , el [ alignRight ] <| copyButton shared model isLinkClicked index cuck ] ] ] +copyButton : Shared.Model -> Model -> Bool -> Int -> Cuck -> Element Msg +copyButton shared model isLinkClicked index cuck = + Input.button + [ focused + [ D.color (rgba 0 0 0 0) + , D.shadow { blur = 0, color = rgba 0 0 0 0, offset = ( 0, 0 ), size = 0 } + ] + ] + { onPress = Just (CopyText ("https://uprootnutrition.com" ++ Path.toString Path.Debate_Cucklist ++ "#" ++ cuck.cuckImage) index) + , label = + el + (if isLinkClicked then + [ transitionStyleSlow + , tooltip "Copied!" False + , case ( shared.device.class, shared.device.orientation ) of + ( Phone, Portrait ) -> + B.color (getThemeColor BackgroundDarkGrey) + + ( Tablet, Portrait ) -> + B.color (getThemeColor BackgroundDarkGrey) + + _ -> + B.color (getThemeColor BackgroundDeepDarkGrey) + , paddingXY 7 7 + , D.rounded 10 + , F.color (getThemeColor TextLightOrange) + ] + + else + [ transitionStyleSlow + , B.color (getThemeColor Transparent) + , paddingXY 7 7 + , D.rounded 10 + , F.color (getThemeColor TextLightOrange) + ] + ++ getHoverColours TextLightOrange + ) + <| + copyLink + { elementAttributes = + [] + , sharedModel = shared + , svgAttributes = [ SvgAttr.width "20" ] + } + } + + dodgeMaker : Device -> Cuck -> Element msg dodgeMaker device cuck = column @@ -282,7 +419,7 @@ circumstance cuck dodge = EmptyHanded -> "Engaged in written debate and ran away when pressed for specifics" ) - , el [ F.color colourTheme.textLightGrey ] <| + , el [ F.color (getThemeColor TextLightGrey) ] <| text "." -- , receipts cuck dodge @@ -308,14 +445,14 @@ receipts cuck dodge = (\index2 link -> paragraph [ alignTop - , F.color colourTheme.textLightOrange + , F.color (getThemeColor TextLightOrange) ] [ el [ transitionStyleSlow , hoverFontDarkOrange ] (text (String.fromInt (index2 + 1))) - , text ", " |> el [ F.color colourTheme.textLightGrey ] + , text ", " |> el [ F.color (getThemeColor TextLightGrey) ] ] ) dodge.dodgeReceipts @@ -439,6 +576,7 @@ reductioMaker device dodge = MechanisticMasturbation -> displayFallacy "Mechanistic Masturbation" + Vaguemongering -> displayFallacy "Vaguemongering" diff --git a/frontend/src/Pages/Debate/Gibberish.elm b/frontend/src/Pages/Debate/Gibberish.elm index 1f4212c..523388b 100755 --- a/frontend/src/Pages/Debate/Gibberish.elm +++ b/frontend/src/Pages/Debate/Gibberish.elm @@ -1,33 +1,26 @@ module Pages.Debate.Gibberish exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C -import Config.Helpers.Converters exposing (toTitleCase) -import Config.Helpers.Format +import Config.Data.ImageFolders as M exposing (ImageFolder(..), imagePathMaker) +import Config.Helpers.Cards.Inner.StrengthBar exposing - ( headerFontSizeSmall - , paragraphFontSize - , paragraphSpacing + ( barMaker + , barPadding ) -import Config.Helpers.Headers.Helpers exposing (..) +import Config.Helpers.Cards.Inner.ToolTip exposing (tooltip) +import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) +import Config.Helpers.Converters exposing (toTitleCase) +import Config.Helpers.Headers.Helpers exposing (headerMaker) import Config.Helpers.Headers.Records exposing (gibberishHeader) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.ImageFolders as M exposing (..) +import Config.Helpers.Headers.Types as R exposing (Header) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat exposing (chunkMaker) -import Config.Helpers.StrengthBar - exposing - ( barMaker - , barPadding - ) -import Config.Helpers.ToolTip exposing (tooltip) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Debate.Arguments.Types exposing (..) +import Config.Pages.Debate.Arguments.Types exposing (Argument) import Config.Pages.Debate.Gibberish.List exposing (gibberishList) import Config.Pages.Debate.Gibberish.Records.Epistemology exposing (epistemologyGibberish) import Config.Pages.Debate.Gibberish.Records.Metaphysics exposing (metaphysicsGibberish) @@ -36,16 +29,53 @@ import Config.Pages.Debate.Gibberish.Records.Ontology exposing (ontologyGibberis import Config.Pages.Debate.Gibberish.Records.PhilOfLanguage exposing (philOfLanguageGibberish) import Config.Pages.Debate.Gibberish.Records.PhilOfMind exposing (philOfMindGibberish) import Config.Pages.Debate.Gibberish.Records.Theology exposing (theologyGibberish) -import Config.Pages.Debate.Gibberish.Types exposing (..) -import Config.Style.Colour.Helpers exposing (colourTheme) +import Config.Pages.Debate.Gibberish.Types + exposing + ( Explanation(..) + , Gibberish + , Terms + ) +import Config.Style.Colour.Helpers + exposing + ( ThemeColor(..) + , getThemeColor + ) +import Config.Style.Fonts + exposing + ( defaultFontSize + , paragraphSpacing + ) import Config.Style.Images exposing (imageSquareMaker) import Effect exposing (Effect) -import Element as E exposing (..) -import Element.Background as B -import Element.Border as D +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignTop + , centerX + , column + , el + , fill + , height + , none + , paddingEach + , paragraph + , row + , spacing + , text + , width + ) import Element.Font as F + exposing + ( alignLeft + , bold + , center + , color + , regular + ) import Layouts -import List.Extra as L exposing (..) import Page exposing (Page) import Route exposing (Route) import Shared @@ -162,7 +192,7 @@ contentList shared gibberish = image : String -> Element msg image size = el - [ alignLeft + [ E.alignLeft , paddingEach { top = 0 , right = 10 @@ -174,9 +204,9 @@ contentList shared gibberish = imageSquareMaker shared.device (imagePathMaker M.Gibberish gibberish.gibberishImage) True size in [ paragraph - [ F.color colourTheme.textLightGrey + [ F.color (getThemeColor TextLightGrey) , paragraphSpacing - , paragraphFontSize + , defaultFontSize , width fill ] [ case ( shared.device.class, shared.device.orientation ) of @@ -211,9 +241,9 @@ gibberishMakerBody shared gibberish = , width fill ] [ paragraph - [ F.color colourTheme.textLightGrey + [ F.color (getThemeColor TextLightGrey) , paragraphSpacing - , headerFontSizeSmall + , defaultFontSize , F.center ] [ domainList shared gibberish @@ -250,9 +280,9 @@ descriptionMaker gibberish = , centerX ] [ paragraph - [ F.color colourTheme.textLightGrey + [ F.color (getThemeColor TextLightGrey) , paragraphSpacing - , paragraphFontSize + , defaultFontSize , spacing 3 , F.regular , F.alignLeft @@ -265,18 +295,18 @@ descriptionMaker gibberish = makeTerms : (Terms -> Element msg) -> Int -> Terms -> Element msg makeTerms bar index terms = column - [ F.color colourTheme.textLightGrey + [ F.color (getThemeColor TextLightGrey) , paragraphSpacing - , paragraphFontSize + , defaultFontSize , F.bold , E.alignLeft , spacing 8 , E.width fill ] [ row - [ F.color colourTheme.textLightGrey + [ F.color (getThemeColor TextLightGrey) , F.regular - , headerFontSizeSmall + , defaultFontSize , F.bold , F.alignLeft , E.width fill @@ -301,7 +331,7 @@ makeTerms bar index terms = ] [ paragraph [] - [ el [ F.color colourTheme.textLightOrange ] <| + [ el [ F.color (getThemeColor TextLightOrange) ] <| text <| "\"" ++ String.toLower terms.term @@ -309,9 +339,9 @@ makeTerms bar index terms = ] , bar terms , paragraph - [ F.color colourTheme.textLightGrey + [ F.color (getThemeColor TextLightGrey) , F.regular - , paragraphFontSize + , defaultFontSize , F.alignLeft ] [ text @@ -339,9 +369,9 @@ intelligibilityBar shared terms = , E.alignLeft ] [ paragraph - [ F.color colourTheme.textLightGrey + [ F.color (getThemeColor TextLightGrey) , F.bold - , headerFontSizeSmall + , defaultFontSize , paragraphSpacing , E.alignLeft , E.width fill @@ -350,6 +380,7 @@ intelligibilityBar shared terms = (if not shared.isNavbarExpanded then [ tooltip tooltipMessage + True ] else diff --git a/frontend/src/Pages/Donate.elm b/frontend/src/Pages/Donate.elm index 4563ac8..9c9d5dd 100755 --- a/frontend/src/Pages/Donate.elm +++ b/frontend/src/Pages/Donate.elm @@ -1,31 +1,38 @@ module Pages.Donate exposing (Model, Msg, page) -import Config.Data.Identity as I exposing (..) -import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyMaker, detailFormat, detailFormatEl, detailTitleMaker, listItem, listMaker) -import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C -import Config.Helpers.Format +-- import Html.Attributes as H + +import Config.Data.Identity exposing (pageNames) +import Config.Data.ImageFolders as M exposing - ( headerFontSizeSmall - , paragraphFontSize - , paragraphSpacing + ( ImageFolder(..) + , imagePathMaker ) -import Config.Helpers.Headers.Helpers exposing (..) +import Config.Helpers.Cards.Inner.StrengthBar + exposing + ( barMaker + , barPadding + ) +import Config.Helpers.Cards.Inner.Text + exposing + ( detailBodyMaker + , detailFormat + , detailTitleMaker + , listItem + , listMaker + ) +import Config.Helpers.Cards.Inner.ToolTip exposing (tooltip) +import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) +import Config.Helpers.Headers.Helpers exposing (headerMaker) import Config.Helpers.Headers.Records exposing (donateHeader) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.ImageFolders as M exposing (..) +import Config.Helpers.Headers.Types as R exposing (Header) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.StrengthBar - exposing - ( barMaker - , barPadding - ) -import Config.Helpers.ToolTip exposing (tooltip) -import Config.Helpers.Viewport exposing (..) +import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Donate.Records.Cardano exposing (donateCardano) import Config.Pages.Donate.Records.KoFi exposing (donateKoFi) import Config.Pages.Donate.Records.LiberaPay exposing (donateLiberaPay) @@ -34,19 +41,59 @@ import Config.Pages.Donate.Records.Patreon exposing (donatePatreon) import Config.Pages.Donate.Records.PayPal exposing (donatePayPal) import Config.Pages.Donate.Records.Stripe exposing (donateStripe) import Config.Pages.Donate.Records.YouTube exposing (donateYouTube) -import Config.Pages.Donate.Types exposing (..) -import Config.Style.Colour.Helpers as T exposing (..) +import Config.Pages.Donate.Types + exposing + ( Cons + , Donate + , Features + , Pros + ) +import Config.Style.Colour.Helpers as T + exposing + ( ThemeColor(..) + , getThemeColor + ) import Config.Style.Images exposing (imageSquareMaker) import Effect exposing (Effect) -import Element as E exposing (..) -import Element.Background as B +import Element as E + exposing + ( Column + , Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignLeft + , alignTop + , centerX + , centerY + , clip + , column + , el + , fill + , padding + , paddingEach + , paragraph + , px + , row + , spacing + , text + ) +import Element.Background as B exposing (color) import Element.Border as D + exposing + ( color + , widthEach + ) import Element.Font as F -import Html.Attributes as H + exposing + ( bold + , center + , color + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import Task import View exposing (View) @@ -217,6 +264,7 @@ preferenceMaker shared donate = (if not shared.isNavbarExpanded then [ tooltip "This represents how strongly I prefer a given platform relative to other platforms." + True ] else @@ -283,15 +331,15 @@ tableMaker donate device = ([ spacing 0 , D.rounded 10 , D.width 2 - , D.color colourTheme.textDarkGrey + , D.color (getThemeColor TextDarkGrey) , clip ] ++ (case ( device.class, device.orientation ) of ( Phone, Portrait ) -> - [ B.color colourTheme.backgroundSpreadsheet ] + [ B.color (getThemeColor BackgroundSpreadsheet) ] ( Tablet, Portrait ) -> - [ B.color colourTheme.backgroundSpreadsheet ] + [ B.color (getThemeColor BackgroundSpreadsheet) ] _ -> [] @@ -361,18 +409,18 @@ createColumn { label, getter } = , left = 1 , right = 0 } - , D.color colourTheme.textDarkGrey + , D.color (getThemeColor TextDarkGrey) , padding 5 , E.width fill , F.center ] (text label) - |> el [ F.color colourTheme.textLightOrange ] + |> el [ F.color (getThemeColor TextLightOrange) ] , width = fill , view = \feature -> row - [ F.color colourTheme.textLightOrange + [ F.color (getThemeColor TextLightOrange) , F.bold , D.widthEach { bottom = 1 @@ -380,7 +428,7 @@ createColumn { label, getter } = , left = 1 , right = 0 } - , D.color colourTheme.textDarkGrey + , D.color (getThemeColor TextDarkGrey) , padding 5 , E.height fill ] diff --git a/frontend/src/Pages/Home_.elm b/frontend/src/Pages/Home_.elm index 152e5e7..f5b5860 100755 --- a/frontend/src/Pages/Home_.elm +++ b/frontend/src/Pages/Home_.elm @@ -1,12 +1,7 @@ module Pages.Home_ exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Inner.Helpers exposing (bodyFormat, detailBodyLink, detailBodyMaker) -import Config.Helpers.Format - exposing - ( paragraphFontSize - , paragraphSpacing - ) +import Config.Helpers.Cards.Inner.Text exposing (detailBodyLink) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing @@ -14,7 +9,16 @@ import Config.Helpers.Response , topLevelContainer ) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme) +import Config.Style.Colour.Helpers + exposing + ( ThemeColor(..) + , colourTheme + ) +import Config.Style.Fonts + exposing + ( defaultFontSize + , paragraphSpacing + ) import Config.Style.Glow exposing (glowDeepDarkGrey) import Config.Style.Icons.Icons exposing @@ -24,17 +28,33 @@ import Config.Style.Icons.Icons ) import Config.Style.Transitions exposing (transitionStyleMedium) import Effect exposing (Effect) -import Element as E exposing (..) -import Element.Background as B -import Element.Border as D +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , centerX + , centerY + , column + , el + , html + , maximum + , minimum + , newTabLink + , paddingEach + , paragraph + , px + , text + ) +import Element.Background as B exposing (color) +import Element.Border as D exposing (rounded) import Element.Font as F exposing (color) import Html exposing (Html) -import Html.Attributes as H import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) -import Svg.Attributes as SvgAttr exposing (..) +import Shared exposing (Model) import View exposing (View) @@ -185,7 +205,7 @@ homePage device image = paragraph [ F.color colourTheme.textLightGrey , paragraphSpacing - , paragraphFontSize + , defaultFontSize , centerX ] [ text "upRootNutrition is an " diff --git a/frontend/src/Pages/Interviews.elm b/frontend/src/Pages/Interviews.elm index bafbec9..2352c3e 100755 --- a/frontend/src/Pages/Interviews.elm +++ b/frontend/src/Pages/Interviews.elm @@ -1,33 +1,45 @@ module Pages.Interviews exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Inner.Helpers exposing (..) -import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C -import Config.Helpers.Converters exposing (formatSocial) -import Config.Helpers.Format +import Config.Data.ImageFolders as M exposing - ( headerFontSizeSmall - , paragraphFontSize - , paragraphSpacing + ( ImageFolder(..) + , imagePathMaker ) -import Config.Helpers.Headers.Helpers exposing (..) +import Config.Helpers.Cards.Inner.StrengthBar + exposing + ( barMaker + , barPadding + ) +import Config.Helpers.Cards.Inner.Text + exposing + ( detailBodyLink + , detailBodyMaker + , detailFormat + , detailFormatEl + , detailSpacing + , detailTitleLinkWide + , detailTitleMaker + , listCounter + , listItem + , listMaker + , listMaker2 + , socialMaker + ) +import Config.Helpers.Cards.Inner.ToolTip exposing (tooltip) +import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) +import Config.Helpers.Converters exposing (formatSocial) +import Config.Helpers.Headers.Helpers exposing (headerMaker) import Config.Helpers.Headers.Records exposing (interviewHeader) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.ImageFolders as M exposing (..) +import Config.Helpers.Headers.Types as R exposing (Header) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.StrengthBar - exposing - ( barMaker - , barPadding - ) -import Config.Helpers.ToolTip exposing (tooltip) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Debate.Cuckery.List exposing (cuckListNumber) +import Config.Pages.Debate.Cuckery.List exposing (cuckList) import Config.Pages.Interviews.Records.DrShawnBakerPodcast exposing (drShawnBakerPodcast) import Config.Pages.Interviews.Records.FitAndFurious exposing (fitAndFurious) import Config.Pages.Interviews.Records.FoolproofMastery exposing (foolproofMastery) @@ -37,25 +49,42 @@ import Config.Pages.Interviews.Records.MarkBellsPowerProject exposing (markBells import Config.Pages.Interviews.Records.MuscleMemoirsPodcast exposing (muscleMemoirsPodcast) import Config.Pages.Interviews.Records.SigmaNutritionRadio exposing (sigmaNutritionRadio) import Config.Pages.Interviews.Records.StrenuousLifePodcast exposing (strenuousLifePodcast) -import Config.Pages.Interviews.Types exposing (..) -import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme) -import Config.Style.Images exposing (imageSquareMaker) -import Config.Style.Transitions +import Config.Pages.Interviews.Types exposing - ( hoverFontDarkOrange - , transitionStyleFast - , transitionStyleSlow + ( Appearance + , Interview + , Subjects ) +import Config.Style.Colour.Helpers + exposing + ( ThemeColor(..) + , colourTheme + ) +import Config.Style.Images exposing (imageSquareMaker) 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 Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignLeft + , alignTop + , column + , el + , fill + , newTabLink + , none + , paddingEach + , row + , text + , width + ) import Html.Attributes as H exposing (style) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared +import Shared exposing (Model) import View exposing (View) @@ -238,6 +267,7 @@ experienceMaker shared appearanceEntry = (if not shared.isNavbarExpanded then [ tooltip "This represents my confidence in the soundness of the argument." + True ] else diff --git a/frontend/src/Pages/NotFound_.elm b/frontend/src/Pages/NotFound_.elm index 6247bf2..477e616 100755 --- a/frontend/src/Pages/NotFound_.elm +++ b/frontend/src/Pages/NotFound_.elm @@ -1,23 +1,26 @@ module Pages.NotFound_ exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C -import Config.Helpers.Headers.Helpers exposing (..) -import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing - ( pageList - , pageListCenter + ( pageListCenter , topLevelContainer ) import Effect exposing (Effect) -import Element as E exposing (..) +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , column + , none + ) import Layouts import Page exposing (Page) import Route exposing (Route) import Route.Path -import Shared +import Shared exposing (Model) import View exposing (View) diff --git a/frontend/src/Pages/Nutridex.elm b/frontend/src/Pages/Nutridex.elm index 6573a7c..7fba7d8 100755 --- a/frontend/src/Pages/Nutridex.elm +++ b/frontend/src/Pages/Nutridex.elm @@ -3,58 +3,85 @@ module Pages.Nutridex exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) import Config.Helpers.Articles.Article exposing (makeReference) import Config.Helpers.Articles.Types exposing (References) -import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyMaker, detailFormat, detailTitleMaker) -import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C -import Config.Helpers.Format +import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton) +import Config.Helpers.Cards.Inner.Text exposing - ( headerFontSizeBig - , headerFontSizeSmall - , paragraphFontSize - , paragraphSpacing - , smallTextFontSize + ( detailBodyMaker + , detailFormat + , detailHeader + , detailTitleMaker + , divider ) -import Config.Helpers.Headers.Helpers exposing (..) +import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) +import Config.Helpers.Headers.Helpers exposing (headerMaker) import Config.Helpers.Headers.Records exposing (nutriDexHeader) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.Price exposing (buyButton) +import Config.Helpers.Headers.Types as R exposing (Header) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat exposing (divider) -import Config.Helpers.StrengthBar - exposing - ( barMaker - , barPadding - ) -import Config.Helpers.ToolTip exposing (tooltip) import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Products.Records.NutriDex exposing (productNutriDex) -import Config.Pages.Products.Types exposing (..) -import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme) -import Config.Style.Glow exposing (glowDeepDarkGrey) +import Config.Pages.Products.Types exposing (Features, NutriDex) +import Config.Style.Colour.Helpers + exposing + ( ThemeColor(..) + , colourTheme + ) +import Config.Style.Fonts + exposing + ( defaultFontSize + , headerFontSizeBig + , paragraphSpacing + , smallTextFontSize + ) import Config.Style.Icons.Icons exposing (nutriDexLogo) import Config.Style.Transitions exposing ( hoverFontDarkOrange - , hoverPageButtonDeepDarkOrange - , transitionStyleFast , transitionStyleMedium - , transitionStyleSlow ) import Effect exposing (Effect) -import Element as E exposing (..) -import Element.Background as B -import Element.Border as D -import Element.Events as V +import Element as E + exposing + ( Attr + , Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignLeft + , alignTop + , centerX + , centerY + , column + , el + , fill + , height + , html + , mouseOver + , newTabLink + , none + , paddingEach + , paddingXY + , paragraph + , px + , row + , spacing + , text + , width + ) import Element.Font as F -import Html.Attributes as H + exposing + ( bold + , center + , color + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) @@ -259,7 +286,7 @@ featureList nutridex device = , column [ centerX ] [ column - [ headerFontSizeSmall + [ defaultFontSize , F.bold , F.color colourTheme.textLightOrange ] @@ -283,37 +310,11 @@ featureList nutridex device = ] -nutriDexTitleMaker : String -> Element msg -nutriDexTitleMaker title = - column - [ centerX - , width fill - ] - [ divider - , paragraph - [ F.color colourTheme.textLightGrey - , paragraphSpacing - , F.bold - , centerX - , F.center - , headerFontSizeBig - , F.color colourTheme.textLightOrange - , paddingEach - { top = 20 - , right = 0 - , bottom = 0 - , left = 0 - } - ] - [ text (String.toUpper title) ] - ] - - linkFormat : List (Attr () msg) linkFormat = [ F.color colourTheme.textLightGrey , paragraphSpacing - , paragraphFontSize + , defaultFontSize , F.color colourTheme.textLightOrange , mouseOver [ F.color colourTheme.textDarkOrange @@ -325,7 +326,7 @@ linkFormat = nutriDexBodyMaker : Device -> Element msg nutriDexBodyMaker device = column [ spacing 20 ] - [ nutriDexTitleMaker "Backstory" + [ detailHeader "Backstory" , detailFormat paragraph [ detailBodyMaker TextLightGrey (text "In May 2019, after losing my job, I sought a way to optimize my diet for nutrient density (ND) while keeping costs low. I initially found a resource called ") , newTabLink linkFormat @@ -369,7 +370,7 @@ nutriDexBodyMaker device = referenceFormat : List (Attr () msg) referenceFormat = - [ paragraphFontSize + [ defaultFontSize , F.color colourTheme.textLightOrange , alignTop , hoverFontDarkOrange @@ -384,7 +385,7 @@ nutriDexAdjustments device = , height fill , spacing 20 ] - [ nutriDexTitleMaker "Nutrient Density Score Adjustments" + [ detailHeader "Nutrient Density Score Adjustments" , detailFormat paragraph [ detailBodyMaker TextLightGrey (text "• ") , detailBodyMaker TextLightGrey (text "No adjustments are made to vitamin B1, vitamin B2, vitamin B3, manganese, phosphorus, and potassium, due to their DRIs only representing total daily intake, or due to the nutrient having close to 100% bioavailability. ") @@ -686,7 +687,7 @@ nutriDexReferences nutridex device = [ width fill , height fill ] - [ nutriDexTitleMaker "BIBLIOGRAPHY" + [ detailHeader "BIBLIOGRAPHY" , column [ width fill , F.size 15 diff --git a/frontend/src/Pages/Services.elm b/frontend/src/Pages/Services.elm index 5a0051a..e6035c8 100755 --- a/frontend/src/Pages/Services.elm +++ b/frontend/src/Pages/Services.elm @@ -2,7 +2,12 @@ module Pages.Services exposing (Model, Msg, page) import Browser import Config.Data.Identity exposing (pageNames) -import Config.Helpers.Cards.Inner.Helpers +import Config.Data.ImageFolders as M + exposing + ( ImageFolder(..) + , imagePathMaker + ) +import Config.Helpers.Cards.Inner.Text exposing ( detailBodyMaker , detailFormat @@ -11,44 +16,53 @@ import Config.Helpers.Cards.Inner.Helpers , listMaker ) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C -import Config.Helpers.Format - exposing - ( headerFontSizeMedium - , headerFontSizeSmall - , paragraphFontSize - , paragraphSpacing - ) -import Config.Helpers.Headers.Helpers exposing (..) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) +import Config.Helpers.Headers.Helpers exposing (headerMaker) import Config.Helpers.Headers.Records exposing (servicesHeader) -import Config.Helpers.Headers.Types as R exposing (..) -import Config.Helpers.ImageFolders as M exposing (..) +import Config.Helpers.Headers.Types as R exposing (Header) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat exposing (divider) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Services.Records.DebateAnalysis exposing (..) -import Config.Pages.Services.Records.DebateCoaching exposing (..) -import Config.Pages.Services.Records.ElmBuilds exposing (..) -import Config.Pages.Services.Records.NixBuilds exposing (..) -import Config.Pages.Services.Records.NutritionScience exposing (..) -import Config.Pages.Services.Types exposing (..) -import Config.Style.Colour.Helpers as T exposing (..) -import Config.Style.Glow exposing (glowDeepDarkGrey, glowDeepDarkOrange) +import Config.Pages.Services.Records.DebateAnalysis exposing (servicesDebateAnalysis) +import Config.Pages.Services.Records.DebateCoaching exposing (servicesDebateCoaching) +import Config.Pages.Services.Records.ElmBuilds exposing (servicesElmBuilds) +import Config.Pages.Services.Records.NixBuilds exposing (servicesNixBuilds) +import Config.Pages.Services.Records.NutritionScience exposing (servicesNutritionScience) +import Config.Pages.Services.Types + exposing + ( Description + , Service + ) +import Config.Style.Colour.Helpers as T + exposing + ( ThemeColor(..) + , getThemeColor + ) import Config.Style.Images exposing (imageSquareMaker) -import Config.Style.Transitions exposing (transitionStyleMedium) 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 Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , alignLeft + , column + , el + , fill + , none + , paddingEach + , row + , text + , width + ) import Layouts import Page exposing (Page) import Route exposing (Route) -import Shared exposing (..) +import Shared exposing (Model) import View exposing (View) @@ -152,7 +166,7 @@ servicesList device = ] -contentList : Device -> Service msg -> List (Element msg) +contentList : Device -> Service -> List (Element msg) contentList device service = let image : String -> Element msg @@ -188,7 +202,7 @@ contentList device service = ] -rateMaker : Service msg -> Element msg +rateMaker : Service -> Element msg rateMaker service = detailFormat row [ detailTitleMaker TextLightOrange "Rate:" @@ -201,7 +215,7 @@ descriptionMaker = detailTitleMaker TextLightOrange "Offerings:" -offeringMaker : Service msg -> Element msg +offeringMaker : Service -> Element msg offeringMaker service = listMaker makeDescription service.serviceDescription diff --git a/frontend/src/Pages/Services/Analysis.elm b/frontend/src/Pages/Services/Analysis.elm index 1527d8e..fc8ddd8 100755 --- a/frontend/src/Pages/Services/Analysis.elm +++ b/frontend/src/Pages/Services/Analysis.elm @@ -1,31 +1,31 @@ module Pages.Services.Analysis exposing (Model, Msg, page) import Config.Helpers.Articles.Article exposing (contentList) +import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton) import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker) -import Config.Helpers.Cards.Outer.Types as C exposing (..) -import Config.Helpers.Format exposing (..) +import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) -import Config.Helpers.Price exposing (buyButton) -import Config.Helpers.Response exposing (pageList, topLevelContainer) -import Config.Helpers.ServiceFormat exposing (..) -import Config.Helpers.ToolTip exposing (..) +import Config.Helpers.Response + exposing + ( pageList + , topLevelContainer + ) import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Types exposing (BlogArticle) -import Config.Pages.Services.Records.DebateAnalysis exposing (..) +import Config.Pages.Services.Records.DebateAnalysis exposing (servicesDebateAnalysis) import Config.Style.Colour.Helpers exposing (colourTheme) -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.Font as F -import Html -import Html.Attributes as H exposing (style) +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , centerX + , column + , el + , paddingXY + ) import Layouts import Page exposing (Page) import Route exposing (Route) @@ -137,7 +137,6 @@ analysisList device = ] - debateAnalysis : BlogArticle debateAnalysis = { articleName = String.toUpper "Debate Analysis" diff --git a/frontend/src/Pages/Services/Coaching.elm b/frontend/src/Pages/Services/Coaching.elm index 2d5d2ad..3621bc4 100755 --- a/frontend/src/Pages/Services/Coaching.elm +++ b/frontend/src/Pages/Services/Coaching.elm @@ -1,36 +1,31 @@ module Pages.Services.Coaching exposing (Model, Msg, page) import Config.Helpers.Articles.Article exposing (contentList) +import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton) 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.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) -import Config.Helpers.Price exposing (buyButton) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat exposing (..) -import Config.Helpers.ToolTip exposing (..) import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Types exposing (BlogArticle) import Config.Pages.Services.Records.DebateCoaching exposing (servicesDebateCoaching) import Config.Style.Colour.Helpers exposing (colourTheme) -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.Font as F -import Html -import Html.Attributes as H exposing (style) +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , centerX + , column + , el + , paddingXY + ) import Layouts import Page exposing (Page) import Route exposing (Route) @@ -141,6 +136,7 @@ coachingList device = [ debateCoaching ] ] + debateCoaching : BlogArticle debateCoaching = { articleName = String.toUpper "Debate Tutoring" diff --git a/frontend/src/Pages/Services/Elm.elm b/frontend/src/Pages/Services/Elm.elm index e64a4ac..588e325 100755 --- a/frontend/src/Pages/Services/Elm.elm +++ b/frontend/src/Pages/Services/Elm.elm @@ -1,35 +1,45 @@ module Pages.Services.Elm exposing (Model, Msg, page) import Config.Helpers.Articles.Article exposing (contentList) +import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton) +import Config.Helpers.Cards.Inner.Text exposing (renderCodeLine) 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.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat exposing (..) -import Config.Helpers.ToolTip exposing (..) import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Types exposing (BlogArticle) import Config.Pages.Services.Records.ElmBuilds exposing (servicesElmBuilds) -import Config.Style.Colour.Helpers exposing (..) -import Config.Style.Transitions +import Config.Style.Colour.Helpers exposing - ( hoverFontDarkOrange - , transitionStyleFast - , transitionStyleSlow + ( ThemeColor(..) + , getThemeColor + , syntaxTheme ) 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) +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , centerX + , column + , el + , fill + , paddingEach + , paddingXY + , spacing + , text + , width + ) +import Element.Background as B exposing (color) +import Element.Border as D exposing (rounded) +import Element.Font as F exposing (color) import Layouts import Page exposing (Page) import Route exposing (Route) @@ -146,8 +156,7 @@ elmBuilds = , articleImage = "" , articlePublished = "" , articleBody = """ -The site that you're currently viewing this on was written by me in the Elm programming language. In the process of programming this website, I realized that I could create reasonably high quality work with Elm, so I'm offering it as a service at a fee that reflects my skill level. -If you're in the market for a new frontend for your website, please inquire at [nick@upRootNutrition.com](mailto:). +The site that you're currently viewing this on was written by me in the Elm programming language, and I'm offering frontend development as a service at a fee that reflects my skill level. If you're in the market for a new frontend for your website, please inquire at [nick@upRootNutrition.com](mailto:). Below is an example of a helper function that I wrote for this site. This particular function extracts the first 80 words from all of my articles' markdown strings, and displays them as blurbs, followed by an ellipsis, in my article cards using my markdown parser. @@ -194,13 +203,13 @@ elmCodeRenderer device = } , case ( device.class, device.orientation ) of ( Phone, Portrait ) -> - B.color colourTheme.backgroundDarkGrey + B.color (getThemeColor BackgroundDarkGrey) ( Tablet, Portrait ) -> - B.color colourTheme.backgroundDarkGrey + B.color (getThemeColor BackgroundDarkGrey) _ -> - B.color colourTheme.backgroundLightGrey + B.color (getThemeColor BackgroundLightGrey) , D.rounded 10 , width fill , spacing 8 diff --git a/frontend/src/Pages/Services/Nix.elm b/frontend/src/Pages/Services/Nix.elm index 543f6e5..0f9817c 100755 --- a/frontend/src/Pages/Services/Nix.elm +++ b/frontend/src/Pages/Services/Nix.elm @@ -1,36 +1,47 @@ module Pages.Services.Nix exposing (Model, Msg, page) import Config.Helpers.Articles.Article exposing (contentList) +import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton) +import Config.Helpers.Cards.Inner.Text exposing (renderCodeLine) 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.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat exposing (..) -import Config.Helpers.ToolTip exposing (..) import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Types exposing (BlogArticle) import Config.Pages.Services.Records.NixBuilds exposing (servicesNixBuilds) -import Config.Style.Colour.Helpers exposing (..) -import Config.Style.Colour.Types exposing (..) -import Config.Style.Transitions +import Config.Style.Colour.Helpers exposing - ( hoverFontDarkOrange - , transitionStyleFast - , transitionStyleSlow + ( ThemeColor(..) + , getThemeColor + , syntaxTheme ) +import Config.Style.Colour.Types exposing (SyntaxColors) 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) +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , centerX + , column + , el + , fill + , paddingEach + , paddingXY + , paragraph + , spacing + , text + , width + ) +import Element.Background as B exposing (color) +import Element.Border as D exposing (rounded) +import Element.Font as F exposing (color) import Layouts import Page exposing (Page) import Route exposing (Route) @@ -206,13 +217,13 @@ nixCodeRenderer device = } , case ( device.class, device.orientation ) of ( Phone, Portrait ) -> - B.color colourTheme.backgroundDarkGrey + B.color (getThemeColor BackgroundDarkGrey) ( Tablet, Portrait ) -> - B.color colourTheme.backgroundDarkGrey + B.color (getThemeColor BackgroundDarkGrey) _ -> - B.color colourTheme.backgroundLightGrey + B.color (getThemeColor BackgroundLightGrey) , D.rounded 10 , width fill , spacing 8 diff --git a/frontend/src/Pages/Services/Nutrition.elm b/frontend/src/Pages/Services/Nutrition.elm index f84be6d..be2b4dd 100755 --- a/frontend/src/Pages/Services/Nutrition.elm +++ b/frontend/src/Pages/Services/Nutrition.elm @@ -1,36 +1,31 @@ module Pages.Services.Nutrition exposing (Model, Msg, page) import Config.Helpers.Articles.Article exposing (contentList) +import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton) 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.Cards.Outer.Types as C exposing (Cardable(..)) import Config.Helpers.Headers.Types exposing (Header) -import Config.Helpers.Price exposing (buyButton) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) -import Config.Helpers.ServiceFormat exposing (..) -import Config.Helpers.ToolTip exposing (..) import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Blog.Types exposing (BlogArticle) import Config.Pages.Services.Records.NutritionScience exposing (servicesNutritionScience) import Config.Style.Colour.Helpers exposing (colourTheme) -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.Font as F -import Html -import Html.Attributes as H exposing (style) +import Element as E + exposing + ( Device + , DeviceClass(..) + , Element + , Orientation(..) + , centerX + , column + , el + , paddingXY + ) import Layouts import Page exposing (Page) import Route exposing (Route) diff --git a/frontend/src/Ports.elm b/frontend/src/Ports.elm index 47f970c..df328b2 100755 --- a/frontend/src/Ports.elm +++ b/frontend/src/Ports.elm @@ -1,6 +1,9 @@ -port module Ports exposing (sendToLocalStorage) +port module Ports exposing (sendToLocalStorage, + copyToClipboard) import Json.Encode as Encode port sendToLocalStorage : { key : String, value : Encode.Value } -> Cmd msg + +port copyToClipboard : String -> Cmd msg \ No newline at end of file diff --git a/frontend/src/interop.ts b/frontend/src/interop.ts index e155685..2669645 100755 --- a/frontend/src/interop.ts +++ b/frontend/src/interop.ts @@ -7,8 +7,16 @@ export const flags = ({env}) => { }; }; + // While running: export const onReady = ({ app, env }) => { + + app.ports.copyToClipboard.subscribe(function(text) { + navigator.clipboard.writeText(text) + .catch(function(err) { + console.error('Failed to copy text: ', err); + }); +}); // app.ports.copy.subscribe((text: string) => { // const clipboard = navigator.clipboard; // if (!clipboard) return;