feat: added some stuff

2025-06-16 20:35:13 -05:00 · 2024-12-01 02:56:13 -06:00 · 2024-12-01 02:56:13 -06:00 · 36f9c89214
commit 36f9c89214
parent f73dab4579
21 changed files with 573 additions and 155 deletions
--- a/frontend/src/Pages/Arguments.elm
+++ b/frontend/src/Pages/Arguments.elm
@ -60,6 +60,8 @@ import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Border as D exposing (..)
 import Element.Font as F
+import Headers.Helpers exposing (headerMaker)
+import Headers.Pages.Arguments exposing (argumentHeader)
 import Html
 import Html.Attributes as H exposing (style, title, wrap)
 import Layouts
@ -151,60 +153,61 @@ debateList =
        [ column
            pageList
          <|
-            List.map argumentMaker
-                [ argumentApoBCVD
-                , argumentAnabolicKeto
-                , argumentAntagonisticPleiotropy
-                , argumentCarbsObesity
-                , argumentDietaryCholesterol
-                , argumentFructoseNAFLD
-                , argumentHealthPromotingFoods
-                , argumentHealthSeeker
-                , argumentHealthyChocolate
-                , argumentHealthyDairy
-                , argumentHealthyFattyFish
-                , argumentHealthyFibre
-                , argumentHealthyFood
-                , argumentHealthyPlantFoods
-                , argumentHealthySeedOils
-                , argumentHealthySoy
-                , argumentMalondialdehyde
-                , argumentOmega3Omega6Ratio
-                , argumentPlantBasedCVDReversal
-                , argumentPolyphenolReductio
-                , argumentSodiumCVD
-                , argumentTMAOCausality
-                , argumentUnhealthyCoconutOil
-                , argumentUnhealthyProcessedMeat
-                , argumentUnhealthyRedMeat
-                , argumentUnhealthySaturatedFat
-                , argumentAbortion
-                , argumentAgnosticism
-                , argumentAgriculturalPredation
-                , argumentAnimalRights
-                , argumentAntiRewilding
-                , argumentAntiVandalism
-                , argumentColonizingNature
-                , argumentCropDeaths
-                , argumentDairyCowRape
-                , argumentEfilismPatrolSquad
-                , argumentEthicalSlurs
-                , argumentFineTuning
-                , argumentImmortalityReductio
-                , argumentOddOrderPredators
-                , argumentOstroveganism
-                , argumentPollinationReductio
-                , argumentScratcherPioneers
-                , argumentTransPeople
-                , argumentVeganSocietyReductio
-                , argumentBoobyTrapPagers
-                , argumentEpidemiologyCausality
-                , argumentFlatEarthDebunk
-                , argumentTruncatedMeta
+            List.concat
+                [ List.map headerMaker
+                    [ argumentHeader ]
+                , List.map argumentMaker
+                    [ argumentApoBCVD
+                    , argumentAnabolicKeto
+                    , argumentAntagonisticPleiotropy
+                    , argumentCarbsObesity
+                    , argumentDietaryCholesterol
+                    , argumentFructoseNAFLD
+                    , argumentHealthPromotingFoods
+                    , argumentHealthSeeker
+                    , argumentHealthyChocolate
+                    , argumentHealthyDairy
+                    , argumentHealthyFattyFish
+                    , argumentHealthyFibre
+                    , argumentHealthyFood
+                    , argumentHealthyPlantFoods
+                    , argumentHealthySeedOils
+                    , argumentHealthySoy
+                    , argumentMalondialdehyde
+                    , argumentOmega3Omega6Ratio
+                    , argumentPlantBasedCVDReversal
+                    , argumentPolyphenolReductio
+                    , argumentSodiumCVD
+                    , argumentTMAOCausality
+                    , argumentUnhealthyCoconutOil
+                    , argumentUnhealthyProcessedMeat
+                    , argumentUnhealthyRedMeat
+                    , argumentUnhealthySaturatedFat
+                    , argumentAbortion
+                    , argumentAgnosticism
+                    , argumentAgriculturalPredation
+                    , argumentAnimalRights
+                    , argumentAntiRewilding
+                    , argumentAntiVandalism
+                    , argumentColonizingNature
+                    , argumentCropDeaths
+                    , argumentDairyCowRape
+                    , argumentEfilismPatrolSquad
+                    , argumentEthicalSlurs
+                    , argumentFineTuning
+                    , argumentImmortalityReductio
+                    , argumentOddOrderPredators
+                    , argumentOstroveganism
+                    , argumentPollinationReductio
+                    , argumentScratcherPioneers
+                    , argumentTransPeople
+                    , argumentVeganSocietyReductio
+                    , argumentBoobyTrapPagers
+                    , argumentEpidemiologyCausality
+                    , argumentFlatEarthDebunk
+                    , argumentTruncatedMeta
+                    ]
+                , List.map gibberishMaker
+                    [ gibberishList ]
                ]
-        , column
-            pageList
-          <|
-            List.map gibberishMaker
-                [ gibberishList ]
        ]
--- a/frontend/src/Pages/Cucklist.elm
+++ b/frontend/src/Pages/Cucklist.elm
@ -74,6 +74,8 @@ import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Border as D
 import Element.Font as F
+import Headers.Helpers exposing (headerMaker)
+import Headers.Pages.CuckList exposing (cuckListHeader)
 import Html.Attributes as H exposing (style)
 import Layouts
 import Page exposing (Page)
@ -161,71 +163,75 @@ dodgersList =
    column
        pageList
    <|
-        List.map cuckMaker
-            [ cuckAdamSinger
-            , cuckAmberOHearn
-            , cuckAnnChilders
-            , cuckAnthonyGustin
-            , cuckAshwaniGarg
-            , cuckAustinHerbert
-            , cuckBartKay
-            , cuckBenBikman
-            , cuckBennyMalone
-            , cuckBradCampbell
-            , cuckBradCohn
-            , cuckBradMarshall
-            , cuckBretWeinstein
-            , cuckBrianKerley
-            , cuckCarnivoreAurelius
-            , cuckCateShanahan
-            , cuckChrisBoettcher
-            , cuckClaraAboel
-            , cuckCliffHarvey
-            , cuckDaveFeldman
-            , cuckDavidDiamond
-            , cuckDavidGornoski
-            , cuckDianaRodgers
-            , cuckEdwardGoeke
-            , cuckElieJarrouge
-            , cuckGaryBrecka
-            , cuckGaryFettke
-            , cuckGaryTaubes
-            , cuckGeorgeMartin
-            , cuckGuyAustin
-            , cuckIvorCummins
-            , cuckJakeMey
-            , cuckJamesDiNicolantonio
-            , cuckJosephEverett
-            , cuckJustinMares
-            , cuckKaitMalthaner
-            , cuckKemMinnick
-            , cuckKenBerry
-            , cuckKevinStock
-            , cuckKyleMamounis
-            , cuckMarkSisson
-            , cuckMartyKendall
-            , cuckMaxLugavere
-            , cuckMichaelKummer
-            , cuckMichaelManderville
-            , cuckMikeMutzel
-            , cuckMikeSweeney
-            , cuckNickEggleton
-            , cuckNinaTeicholz
-            , cuckNorstrongChris
-            , cuckPaulMason
-            , cuckPaulSaladino
-            , cuckPhilipOvadia
-            , cuckPhilippeStephenson
-            , cuckRalphNapolitano
-            , cuckRaphaelSirtoli
-            , cuckRobbWolf
-            , cuckRobMeijer
-            , cuckSebastianRamirez
-            , cuckSimonGoddek
-            , cuckTravisStatham
-            , cuckTristanHaggard
-            , cuckTroKalayjian
-            , cuckTuckerGoodrich
-            , cuckZoeHarcombe
-            , cuckZsofiaClemens
+        List.concat
+            [ List.map headerMaker
+                [ cuckListHeader ]
+            , List.map cuckMaker
+                [ cuckAdamSinger
+                , cuckAmberOHearn
+                , cuckAnnChilders
+                , cuckAnthonyGustin
+                , cuckAshwaniGarg
+                , cuckAustinHerbert
+                , cuckBartKay
+                , cuckBenBikman
+                , cuckBennyMalone
+                , cuckBradCampbell
+                , cuckBradCohn
+                , cuckBradMarshall
+                , cuckBretWeinstein
+                , cuckBrianKerley
+                , cuckCarnivoreAurelius
+                , cuckCateShanahan
+                , cuckChrisBoettcher
+                , cuckClaraAboel
+                , cuckCliffHarvey
+                , cuckDaveFeldman
+                , cuckDavidDiamond
+                , cuckDavidGornoski
+                , cuckDianaRodgers
+                , cuckEdwardGoeke
+                , cuckElieJarrouge
+                , cuckGaryBrecka
+                , cuckGaryFettke
+                , cuckGaryTaubes
+                , cuckGeorgeMartin
+                , cuckGuyAustin
+                , cuckIvorCummins
+                , cuckJakeMey
+                , cuckJamesDiNicolantonio
+                , cuckJosephEverett
+                , cuckJustinMares
+                , cuckKaitMalthaner
+                , cuckKemMinnick
+                , cuckKenBerry
+                , cuckKevinStock
+                , cuckKyleMamounis
+                , cuckMarkSisson
+                , cuckMartyKendall
+                , cuckMaxLugavere
+                , cuckMichaelKummer
+                , cuckMichaelManderville
+                , cuckMikeMutzel
+                , cuckMikeSweeney
+                , cuckNickEggleton
+                , cuckNinaTeicholz
+                , cuckNorstrongChris
+                , cuckPaulMason
+                , cuckPaulSaladino
+                , cuckPhilipOvadia
+                , cuckPhilippeStephenson
+                , cuckRalphNapolitano
+                , cuckRaphaelSirtoli
+                , cuckRobbWolf
+                , cuckRobMeijer
+                , cuckSebastianRamirez
+                , cuckSimonGoddek
+                , cuckTravisStatham
+                , cuckTristanHaggard
+                , cuckTroKalayjian
+                , cuckTuckerGoodrich
+                , cuckZoeHarcombe
+                , cuckZsofiaClemens
+                ]
            ]
--- a/frontend/src/Pages/Donate.elm
+++ b/frontend/src/Pages/Donate.elm
@ -17,6 +17,8 @@ import Element as E exposing (..)
 import Element.Background as B exposing (..)
 import Element.Border as D exposing (..)
 import Element.Font as F
+import Headers.Helpers exposing (headerMaker)
+import Headers.Pages.Donate exposing (donateHeader)
 import Html.Attributes as H exposing (style)
 import Layouts
 import Page exposing (Page)
@ -101,20 +103,11 @@ donateContainer =

 donateList : Element msg
 donateList =
-    column pageList
-        [ paragraph
-            (paragraphFormat
-                ++ [ F.size 18
-                   , alignTop
-                   , E.width <| px 800
-                   , centerX, F.center
-                   ]
-            )
-            [ text "Any of the below services may be bundled for a $10 discount off each hour. For example, bundling two sessions of Debate Analysis would be $140 total, rather than $80/hr. All services are changed in CAD." ]
-        , column
-            pageList
-          <|
-            List.map donateMaker
+    column pageList <|
+        List.concat
+            [ List.map headerMaker
+                [ donateHeader ]
+            , List.map donateMaker
                [ donateLiberaPay
                , donatePayPal
                , donatePatreon
@ -123,4 +116,4 @@ donateList =
                , donateYouTube
                , donateMerch
                ]
-        ]
+            ]
--- a/frontend/src/Pages/Hyperblog.elm
+++ b/frontend/src/Pages/Hyperblog.elm
@ -7,6 +7,8 @@ import Config.Identity as I exposing (..)
 import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Font as F
+import Headers.Helpers exposing (headerMaker)
+import Headers.Pages.NutriDex exposing (nutriDexHeader)
 import Html.Attributes as H exposing (style)
 import Layouts
 import Page exposing (Page)
@ -23,6 +25,12 @@ page shared route =
        , subscriptions = subscriptions
        , view = view
        }
+        |> Page.withLayout toLayout
+
+
+toLayout : Model -> Layouts.Layout Msg
+toLayout model =
+    Layouts.Navbar {}



@ -72,4 +80,7 @@ subscriptions model =

 view : Model -> View Msg
 view model =
-    View.fromString "Pages.Hyperblog"
+    { title = hyperBlogName
+    , attributes = []
+    , element = none
+    }
--- a/frontend/src/Pages/Interviews.elm
+++ b/frontend/src/Pages/Interviews.elm
@ -7,6 +7,8 @@ import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Border as D
 import Element.Font as F
+import Headers.Helpers exposing (headerMaker)
+import Headers.Pages.Interviews exposing (interviewHeader)
 import Html
 import Html.Attributes as H exposing (style)
 import Interviews.Episodes.DrShawnBakerPodcast exposing (drShawnBakerPodcast)
@ -20,6 +22,7 @@ import Interviews.Episodes.SigmaNutritionRadio exposing (sigmaNutritionRadio)
 import Interviews.Episodes.StrenuousLifePodcast exposing (strenuousLifePodcast)
 import Interviews.Helpers exposing (..)
 import Layouts
+import List exposing (head)
 import Page exposing (Page)
 import Route exposing (Route)
 import Shared
@ -105,14 +108,18 @@ interviewList =
    column
        pageList
    <|
-        List.map interviewMaker
-            [ sigmaNutritionRadio
-            , markBellsPowerProject
-            , foolproofMastery
-            , ketoGeeksPodcast
-            , legendaryLifePodcast
-            , muscleMemoirsPodcast
-            , fitAndFurious
-            , strenuousLifePodcast
-            , drShawnBakerPodcast
+        List.concat
+            [ List.map headerMaker
+                [ interviewHeader ]
+            , List.map interviewMaker
+                [ sigmaNutritionRadio
+                , markBellsPowerProject
+                , foolproofMastery
+                , ketoGeeksPodcast
+                , legendaryLifePodcast
+                , muscleMemoirsPodcast
+                , fitAndFurious
+                , strenuousLifePodcast
+                , drShawnBakerPodcast
+                ]
            ]
--- a/frontend/src/Pages/Nutridex.elm
+++ b/frontend/src/Pages/Nutridex.elm
@ -0,0 +1,107 @@
+module Pages.Nutridex exposing (Model, Msg, page)
+
+import Config.Colour as T exposing (..)
+import Config.Format as O exposing (..)
+import Config.Identity as I exposing (..)
+import Donate.Types exposing (..)
+import Effect exposing (Effect)
+import Element as E exposing (..)
+import Element.Background as B exposing (..)
+import Element.Border as D exposing (..)
+import Element.Font as F
+import Headers.Helpers exposing (headerMaker)
+import Headers.Pages.Donate exposing (donateHeader)
+import Headers.Pages.NutriDex exposing (nutriDexHeader)
+import Html
+import Html.Attributes as H exposing (style)
+import Layout exposing (..)
+import Layouts
+import Page exposing (Page)
+import Products.Helpers exposing (..)
+import Products.NutriDex.NutriDex exposing (productNutriDex)
+import Route exposing (Route)
+import Shared exposing (..)
+import View exposing (View)
+
+
+page : Shared.Model -> Route () -> Page Model Msg
+page shared route =
+    Page.new
+        { init = init
+        , update = update
+        , subscriptions = subscriptions
+        , view = view
+        }
+        |> Page.withLayout toLayout
+
+
+toLayout : Model -> Layouts.Layout Msg
+toLayout model =
+    Layouts.Navbar {}
+
+
+
+-- INIT
+
+
+type alias Model =
+    {}
+
+
+init : () -> ( Model, Effect Msg )
+init () =
+    ( {}
+    , Effect.none
+    )
+
+
+
+-- UPDATE
+
+
+type Msg
+    = NoOp
+
+
+update : Msg -> Model -> ( Model, Effect Msg )
+update msg model =
+    case msg of
+        NoOp ->
+            ( model
+            , Effect.none
+            )
+
+
+
+-- SUBSCRIPTIONS
+
+
+subscriptions : Model -> Sub Msg
+subscriptions model =
+    Sub.none
+
+
+
+-- VIEW
+
+
+view : Model -> View Msg
+view model =
+    { title = nutriDexName
+    , attributes = []
+    , element = nutriDexContainer
+    }
+
+
+nutriDexContainer : Element msg
+nutriDexContainer =
+    topLevelContainer nutriDexList
+
+
+nutriDexList : Element msg
+nutriDexList =
+    column pageList <|
+        List.concat
+            [ List.map nutriDexMaker
+                [ productNutriDex ]
+            ]
--- a/frontend/src/Pages/Services.elm
+++ b/frontend/src/Pages/Services.elm
@ -6,6 +6,8 @@ import Config.Identity as I exposing (..)
 import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Font as F
+import Headers.Helpers exposing (headerMaker)
+import Headers.Pages.Services exposing (servicesHeader)
 import Html.Attributes as H exposing (style)
 import Layouts
 import Page exposing (Page)
@ -99,10 +101,14 @@ servicesList =
    column
        pageList
    <|
-        List.map serviceMaker
-            [ servicesDebateAnalysis
-            , servicesDebateTutoring
-            , servicesNutritionScience
-            , servicesNixBuilds
-            , servicesElmBuilds
+        List.concat
+            [ List.map headerMaker
+                [ servicesHeader ]
+            , List.map serviceMaker
+                [ servicesDebateAnalysis
+                , servicesDebateTutoring
+                , servicesNutritionScience
+                , servicesNixBuilds
+                , servicesElmBuilds
+                ]
            ]