feat: init

frontend/src/Config/Identity.elm

@@ -1,4 +1,13 @@
 module Config.Identity exposing (..)
 
-myName : String
+homeName : String
-myName = "The Nutrivore"
+homeName = "The Nutrivore"
+
+platformName : String
+platformName = homeName ++ " | Platforms"
+
+servicesName : String
+servicesName = homeName ++ " | Services"
+
+supportName : String
+supportName = homeName ++ " | Support"

frontend/src/Config/Theme.elm

@@ -14,6 +14,15 @@ type alias Theme =
     }
 
 
+topLevelContainer : Element msg -> Element msg
+topLevelContainer =
+    el
+        [ width fill
+        , height fill
+        , B.color colourTheme.backgroundColour
+        ]
+
+
 colourTheme : Theme
 colourTheme =
     { nonHighlightedText = rgb255 212 212 212
@@ -22,3 +31,49 @@ colourTheme =
     , backgroundColour = rgb255 40 40 40
     , debugColour = rgb255 227 28 121
     }
+
+
+spartanFont : F.Font
+spartanFont =
+    F.typeface "League Spartan"
+
+
+imageSpacer : Attribute msg
+imageSpacer =
+    spacing 20
+
+
+titleFormat : List (Attr () msg)
+titleFormat =
+    [ F.size 23
+    , F.bold
+    , F.color colourTheme.highlightText
+    ]
+
+
+paragraphFontSize : Attr decorative msg
+paragraphFontSize =
+    F.size 17
+
+
+paragraphLinkFormat : { url : String, label : Element msg } -> Element msg
+paragraphLinkFormat =
+    newTabLink
+        [ paragraphFontSize
+        , F.color colourTheme.highlightText
+        ]
+
+
+paragraphFormat : List (Attr () msg)
+paragraphFormat =
+    [ spacing 8
+    , paragraphFontSize
+    , F.color colourTheme.nonHighlightedText
+    ]
+
+
+paragraphColumnFormat : List (Attribute msg)
+paragraphColumnFormat =
+    [ spacing 20
+    , width <| px 700
+    ]

frontend/src/Pages/Contact.elm

@@ -1,82 +0,0 @@
-module Pages.Contact exposing (Model, Msg, page)
-
-import Config.Identity as ID exposing (..)
-import Config.Theme as T exposing (..)
-import Effect exposing (Effect)
-import Element exposing (..)
-import Element.Background as B
-import Element.Font as F
-import Element.Events as E
-import Page exposing (Page)
-import Route exposing (Route)
-import Shared
-import View exposing (View)
-
-
-page : Shared.Model -> Route () -> Page Model Msg
-page shared route =
-    Page.new
-        { init = init
-        , update = update
-        , subscriptions = subscriptions
-        , view = view
-        }
-
-
-
--- INIT
-
-
-type alias Model =
-    { num : Int }
-
-
-init : () -> ( Model, Effect Msg )
-init () =
-    ( { num = 0 }
-    , Effect.none
-    )
-
-
-
--- UPDATE
-
-
-type Msg
-    = Inc
-    | Dec
-
-
-update : Msg -> Model -> ( Model, Effect Msg )
-update msg model =
-    case msg of
-        Inc ->
-            ( { model | num = model.num + 1 }
-            , Effect.none
-            )
-
-        Dec ->
-            ( { model | num = model.num - 1 }
-            , Effect.none
-            )
-
-
-
--- SUBSCRIPTIONS
-
-
-subscriptions : Model -> Sub Msg
-subscriptions model =
-    Sub.none
-
-
-
--- VIEW
-
-
-view : Model -> View Msg
-view model =
-    { title = ""
-    , attributes = []
-    , element = el [E.onClick Inc] (text <| "a string is fun" ++ String.fromInt model.num)
-    }

frontend/src/Pages/Dodgers.elm

@@ -0,0 +1,31 @@
+module Pages.Dodgers exposing (page)
+
+import Config.Identity as ID exposing (..)
+import Config.Theme as T exposing (..)
+import Element exposing (..)
+import Element.Background as B
+import Element.Font as F
+import Element.Region exposing (description)
+import View exposing (View)
+
+
+page : View msg
+page =
+    { title = servicesName
+    , attributes = [ F.family [ spartanFont ] ]
+    , element = dodgersContainer
+    }
+
+dodgersContainer : Element msg
+dodgersContainer = topLevelContainer dodgersList
+
+dodgersList : Element msg
+dodgersList =
+    column
+        [ spacing 20
+        , centerX
+        , centerY
+        ]
+        dodgers
+
+dodgers = []

frontend/src/Pages/Home_.elm

@@ -16,17 +16,11 @@ import View exposing (View)
 
 page : View msg
 page =
-    { title = myName
+    { title = homeName
     , attributes = [ F.family [ spartanFont ] ]
     , element = topLevelContainer
     }
 
-
-spartanFont : F.Font
-spartanFont =
-    F.typeface "League Spartan"
-
-
 topLevelContainer : Element msg
 topLevelContainer =
     el
@@ -47,124 +41,9 @@ linkList =
         ]
         links
 
-
-imageSpacer : Attribute msg
-imageSpacer =
-    spacing 20
-
-
-titleFormat : List (Attr () msg)
-titleFormat =
-    [ F.size 23
-    , F.bold
-    , F.color colourTheme.highlightText
-    ]
-
-
 paragraphFontSize : Attr decorative msg
 paragraphFontSize =
     F.size 17
 
-
-paragraphLinkFormat : { url : String, label : Element msg } -> Element msg
-paragraphLinkFormat =
-    newTabLink
-        [ paragraphFontSize
-        , F.color colourTheme.highlightText
-        ]
-
-
-paragraphFormat : List (Attr () msg)
-paragraphFormat =
-    [ spacing 8
-    , paragraphFontSize
-    , F.color colourTheme.nonHighlightedText
-    ]
-
-
-paragraphColumnFormat : List (Attribute msg)
-paragraphColumnFormat =
-    [ spacing 20
-    , width <| px 700
-    ]
-
-
-imageFormat : List (Attribute msg)
-imageFormat =
-    [ width <| px 150
-    , alignTop
-    ]
-
-
-recommendedClients : Element msg
-recommendedClients =
-    el [ F.bold ] (text "Recommended Clients: ")
-
-
 links : List (Element msg)
-links =
+links = []
-    [ column
-        [ spacing 40 ]
-        [ row [ imageSpacer ]
-            [ image imageFormat
-                { src = "mastodon.png"
-                , description = "mastodon logo"
-                }
-            , column paragraphColumnFormat
-                [ newTabLink titleFormat
-                    { url = "https://the-nutrivore.social/"
-                    , label = text "MASTODON"
-                    }
-                , paragraph paragraphFormat [ text "Microblogging will now be posted to my own self-hosted Mastodon instance. I've kinda grown tired of microblogging on X, where political correctness and unclear ban policies force me to constantly self-censor. I considered and ultimately rejected several alternative platforms. Eventually, I realized the solution to this problem is to simply self-host my own space―somewhere where I can be myself and speak as I please. And I recently obtained the necessary infrastructure to do this." ]
-                , paragraph paragraphFormat [ text "This instance is 100% mine, and I can't be censored or fucked with there. I invite everyone who values my content and interactions to follow me on this new platform (whether you agree with my views or not). My instance is a \"single-user\" instances, meaning I'm the only user. But you can still follow me! Just make an account on another instance, like ", paragraphLinkFormat { url = "https://mastodon.social", label = text "Mastodon.social" }, text " (alternatively, you can select whatever instance you wish from the ",paragraphLinkFormat { url = "https://instances.social/", label = text "official index"} , text "), follow me, and turn on notifications." ]
-                , paragraph paragraphFormat
-                    [ recommendedClients
-                    , paragraphLinkFormat { url = "https://github.com/LucasGGamerM/moshidon", label = text "Moshidon" }
-                    , text " (android) "
-                    , paragraphLinkFormat { url = "https://github.com/mastodon/mastodon-android", label = text "Official" }
-                    , text " (android) "
-                    , paragraphLinkFormat { url = "https://github.com/tuskyapp/Tusky", label = text "Tusky" }
-                    , text " (android) "
-                    , paragraphLinkFormat { url = "https://apps.apple.com/us/app/mastodon/id1571998974", label = text "Official" }
-                    , text " (iOS)"
-                    ]
-                ]
-            ]
-        , row [ imageSpacer ]
-            [ image imageFormat
-                { src = "peertube.png"
-                , description = "mastodon logo"
-                }
-            , column paragraphColumnFormat
-                [ newTabLink titleFormat
-                    { url = "https://video.the-nutrivore.social/"
-                    , label = text "PEERTUBE"
-                    }
-                , paragraph paragraphFormat [ text "I'm transitioning my video content from YouTube to my self-hosted PeerTube instance, because I strongly believe in freedom of speech, copyleft, and digital autonomy. YouTube has proven unreliable due to both censorship and copyright strikes levied against my channel. This shift allows me to better control my content and avoid these silly pitfalls." ]
-                , paragraph paragraphFormat [ text "Full-length videos are now exclusively available on PeerTube, while YouTube will only host clips. By registering on PeerTube and subscribing to my channels, you'll have access to all content. Just be sure to enable email notifications to be alerted of new uploads. I believe that those who are truly fans of my work and want the best experience possible will see this as a positive change." ]
-                , paragraph paragraphFormat [ recommendedClients, text "Unfortunately, I can't recommend any mobile clients for PeerTube at this time. They're all trash. Please use your browser, either on your mobile device or personal computer. Just be use to enable email notifications in your account settings." ]
-                ]
-            ]
-        , row [ imageSpacer ]
-            [ image imageFormat
-                { src = "discord.png"
-                , description = "mastodon logo"
-                }
-            , column paragraphColumnFormat
-                [ newTabLink titleFormat
-                    { url = "https://discord.gg/eeYQ2wJknS"
-                    , label = text "DISCORD"
-                    }
-                , paragraph paragraphFormat [ text "The Nutrivore Discord server is an evidence-based community dedicated to debunking pseudoscience, especially in the fields of nutrition, health and fitness. Casual discourse is welcome, and includes topics such as cooking, gaming, technology, and more. Current members span many disciplines and include both students and professionals, all levels of interest and expertise are welcome." ]
-                , paragraph paragraphFormat [ text "The Discord server is not explicitly a debate server. However, we strongly encourage that disagreements be resolved using debate (preferably verbal), as long as it is conducted respectfully and in good faith. Though we also firmly believe that shaming sophistry and bad faith behaviour is a net good overall. The Discord server is planned to be replaced with a Matrix server in future." ]
-                , paragraph paragraphFormat
-                    [ recommendedClients
-                    , paragraphLinkFormat { url = "https://github.com/Vendicated/Vencord", label = text "Vencord" }
-                    , text " (desktop) "
-                    , paragraphLinkFormat { url = "https://discord.com/download", label = text "Official" }
-                    , text " (multi-platform) "
-                    ]
-                ]
-            ]
-        ]
-    ]

frontend/src/Pages/Platforms.elm

@@ -0,0 +1,110 @@
+module Pages.Platforms exposing (page)
+
+import Config.Identity as ID exposing (..)
+import Config.Theme as T exposing (..)
+import Element exposing (..)
+import Element.Background as B
+import Element.Font as F
+import Element.Region exposing (description)
+import View exposing (View)
+
+
+page : View msg
+page =
+    { title = platformName
+    , attributes = [ F.family [ spartanFont ] ]
+    , element = platformsContainer
+    }
+
+
+platformsContainer : Element msg
+platformsContainer =
+    topLevelContainer platformsList
+
+
+platformsList : Element msg
+platformsList =
+    column
+        [ spacing 20
+        , centerX
+        ]
+        platforms
+
+platforms : List (Element msg)
+platforms =
+    let
+        recommendedClients : Element msg
+        recommendedClients =
+            el [ F.bold ] (text "Recommended Clients: ")
+
+        platformImageFormat : List (Attribute msg)
+        platformImageFormat =
+            [ width <| px 150
+            , alignTop
+            ]
+    in
+    [ column
+        [ spacing 40 ]
+        [ row [ imageSpacer ]
+            [ image platformImageFormat
+                { src = "mastodon.png"
+                , description = "mastodon logo"
+                }
+            , column paragraphColumnFormat
+                [ newTabLink titleFormat
+                    { url = "https://the-nutrivore.social/"
+                    , label = text "MASTODON"
+                    }
+                , paragraph paragraphFormat [ text "Microblogging will now be posted to my own self-hosted Mastodon instance. I've kinda grown tired of microblogging on X, where political correctness and unclear ban policies force me to constantly self-censor. I considered and ultimately rejected several alternative platforms. Eventually, I realized the solution to this problem is to simply self-host my own space―somewhere where I can be myself and speak as I please. And I recently obtained the necessary infrastructure to do this." ]
+                , paragraph paragraphFormat [ text "This instance is 100% mine, and I can't be censored or fucked with there. I invite everyone who values my content and interactions to follow me on this new platform (whether you agree with my views or not). My instance is a \"single-user\" instances, meaning I'm the only user. But you can still follow me! Just make an account on another instance, like ", paragraphLinkFormat { url = "https://mastodon.social", label = text "Mastodon.social" }, text " (alternatively, you can select whatever instance you wish from the ", paragraphLinkFormat { url = "https://instances.social/", label = text "official index" }, text "), follow me, and turn on notifications." ]
+                , paragraph paragraphFormat
+                    [ recommendedClients
+                    , paragraphLinkFormat { url = "https://github.com/LucasGGamerM/moshidon", label = text "Moshidon" }
+                    , text " (android) "
+                    , paragraphLinkFormat { url = "https://github.com/mastodon/mastodon-android", label = text "Official" }
+                    , text " (android) "
+                    , paragraphLinkFormat { url = "https://github.com/tuskyapp/Tusky", label = text "Tusky" }
+                    , text " (android) "
+                    , paragraphLinkFormat { url = "https://apps.apple.com/us/app/mastodon/id1571998974", label = text "Official" }
+                    , text " (iOS)"
+                    ]
+                ]
+            ]
+        , row [ imageSpacer ]
+            [ image platformImageFormat
+                { src = "peertube.png"
+                , description = "peertube logo"
+                }
+            , column paragraphColumnFormat
+                [ newTabLink titleFormat
+                    { url = "https://video.the-nutrivore.social/"
+                    , label = text "PEERTUBE"
+                    }
+                , paragraph paragraphFormat [ text "I'm transitioning my video content from YouTube to my self-hosted PeerTube instance, because I strongly believe in freedom of speech, copyleft, and digital autonomy. YouTube has proven unreliable due to both censorship and copyright strikes levied against my channel. This shift allows me to better control my content and avoid these silly pitfalls." ]
+                , paragraph paragraphFormat [ text "Full-length videos are now exclusively available on PeerTube, while YouTube will only host clips. By registering on PeerTube and subscribing to my channels, you'll have access to all content. Just be sure to enable email notifications to be alerted of new uploads. I believe that those who are truly fans of my work and want the best experience possible will see this as a positive change." ]
+                , paragraph paragraphFormat [ recommendedClients, text "Unfortunately, I can't recommend any mobile clients for PeerTube at this time. They're all trash. Please use your browser, either on your mobile device or personal computer. Just be use to enable email notifications in your account settings." ]
+                ]
+            ]
+        , row [ imageSpacer ]
+            [ image platformImageFormat
+                { src = "discord.png"
+                , description = "discord logo"
+                }
+            , column paragraphColumnFormat
+                [ newTabLink titleFormat
+                    { url = "https://discord.gg/eeYQ2wJknS"
+                    , label = text "DISCORD"
+                    }
+                , paragraph paragraphFormat [ text "The Nutrivore Discord server is an evidence-based community dedicated to debunking pseudoscience, especially in the fields of nutrition, health and fitness. Casual discourse is welcome, and includes topics such as cooking, gaming, technology, and more. Current members span many disciplines and include both students and professionals, all levels of interest and expertise are welcome." ]
+                , paragraph paragraphFormat [ text "The Discord server is not explicitly a debate server. However, we strongly encourage that disagreements be resolved using debate (preferably verbal), as long as it is conducted respectfully and in good faith. Though we also firmly believe that shaming sophistry and bad faith behaviour is a net good overall. The Discord server is planned to be replaced with a Matrix server in future." ]
+                , paragraph paragraphFormat
+                    [ recommendedClients
+                    , paragraphLinkFormat { url = "https://github.com/Vendicated/Vencord", label = text "Vencord" }
+                    , text " (desktop) "
+                    , paragraphLinkFormat { url = "https://discord.com/download", label = text "Official" }
+                    , text " (multi-platform) "
+                    ]
+                ]
+            ]
+        ]
+    ]

frontend/src/Pages/Services.elm

@@ -0,0 +1,111 @@
+module Pages.Services exposing (page)
+
+import Config.Identity as ID exposing (..)
+import Config.Theme as T exposing (..)
+import Element exposing (..)
+import Element.Background as B
+import Element.Font as F
+import Element.Region exposing (description)
+import View exposing (View)
+
+
+page : View msg
+page =
+    { title = servicesName
+    , attributes = [ F.family [ spartanFont ] ]
+    , element = servicesContainer
+    }
+
+
+servicesContainer : Element msg
+servicesContainer =
+    topLevelContainer servicesList
+
+
+servicesList : Element msg
+servicesList =
+    column
+        [ spacing 20
+        , centerX
+        , centerY
+        ]
+        services
+
+
+services : List (Element msg)
+services =
+    let
+        servicesImageFormat : List (Attribute msg)
+        servicesImageFormat =
+            [ width <| px 100
+            , alignTop
+            ]
+    in
+    [ column
+        [ spacing 40 ]
+        [ row [ imageSpacer ]
+            [ image servicesImageFormat
+                { src = "debate.png"
+                , description = "debate logo"
+                }
+            , column paragraphColumnFormat
+                [ row [ spacing 8 ]
+                    [ newTabLink titleFormat
+                        { url = "https://the-nutrivore.social/"
+                        , label = text "DEBATE COACHING"
+                        }
+                    , paragraph [ F.color colourTheme.nonHighlightedText ] [ text "$60/hr" ]
+                    ]
+                , paragraph paragraphFormat [ text "Participate in a structured course consisting of five one-hour modules, covering critical thinking, debate strategy, propositional logic, and more. Throughout the course you will receive both personalized and generalizable advice on how to improve your debate performance." ]
+                ]
+            ]
+        , row [ imageSpacer ]
+            [ image servicesImageFormat
+                { src = "analysis.png"
+                , description = "analysis logo"
+                }
+            , column paragraphColumnFormat
+                [ row [ spacing 8 ]
+                    [ newTabLink titleFormat
+                        { url = "https://the-nutrivore.social/"
+                        , label = text "DEBATE ANALYSIS"
+                        }
+                    , paragraph [ F.color colourTheme.nonHighlightedText ] [ text "$80/hr" ]
+                    ]
+                , paragraph paragraphFormat [ text "Participate in focused one-hour sessions wherein your own recorded debates are analyzed for constructive feedback and advice to help you improve as a debater. You may also participate in mock debates, staged debates, and other exercises to help you get more comfortable with debate and verbal confrontation." ]
+                ]
+            ]
+        , row [ imageSpacer ]
+            [ image servicesImageFormat
+                { src = "nutrition.png"
+                , description = "analysis logo"
+                }
+            , column paragraphColumnFormat
+                [ row [ spacing 8 ]
+                    [ newTabLink titleFormat
+                        { url = "https://the-nutrivore.social/"
+                        , label = text "NUTRITION SCIENCE"
+                        }
+                    , paragraph [ F.color colourTheme.nonHighlightedText ] [ text "$40/hr" ]
+                    ]
+                , paragraph paragraphFormat [ text "Participate in a one-hour Q&A session specifically to inquire about nutrition science. Ask questions about research design, methodology, epistemology, and study interpretation. Also, by participating you will also gain access to nutrition science interpretation cheat-sheets that will streamline and simply the research appraisal process." ]
+                ]
+            ]
+        , row [ imageSpacer ]
+            [ image servicesImageFormat
+                { src = "nixos.png"
+                , description = "debate logo"
+                }
+            , column paragraphColumnFormat
+                [ row [ spacing 8 ]
+                    [ newTabLink titleFormat
+                        { url = "https://the-nutrivore.social/"
+                        , label = text "CUSTOM NIX BUILDS"
+                        }
+                    , paragraph [ F.color colourTheme.nonHighlightedText ] [ text "$40/hr" ]
+                    ]
+                , paragraph paragraphFormat [ 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." ]
+                ]
+            ]
+        ]
+    ]