feat: added contacts

frontend/src/Pages/Arguments.elm

@@ -3,6 +3,7 @@ module Pages.Arguments exposing (Model, Msg, page)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Config.Viewport exposing (..)
 import Debate.Arguments.Abortion exposing (..)
 import Debate.Arguments.Agnosticism exposing (..)
 import Debate.Arguments.AgriculturalPredation exposing (..)
@@ -100,7 +101,9 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )
 
 

frontend/src/Pages/Contact.elm

@@ -3,9 +3,15 @@ module Pages.Contact exposing (Model, Msg, page)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Config.Viewport exposing (..)
+import Contact.Helpers exposing (..)
+import Contact.Methods.Discord exposing (contactDiscord)
+import Contact.Methods.Email exposing (contactEmail)
 import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Font as F
+import Headers.Helpers exposing (..)
+import Headers.Pages.Contact exposing (contactHeader)
 import Html
 import Html.Attributes as H exposing (style)
 import Layouts
@@ -42,7 +48,9 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )
 
 
@@ -91,13 +99,7 @@ contactContainer =
 
 contactList : Element msg
 contactList =
-    none
-
-
-
--- column
---     pageList
--- <|
---     List.map contactMaker
---         [
---         ]
+    column pageList <|
+        List.concat
+            [ [ instructionMaker ]
+            ]

frontend/src/Pages/Cucklist.elm

@@ -3,6 +3,7 @@ module Pages.Cucklist exposing (Model, Msg, page)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Config.Viewport exposing (..)
 import Cuckery.CuckList.AdamSinger.AdamSinger exposing (cuckAdamSinger)
 import Cuckery.CuckList.AmberOHearn.AmberOHearn exposing (cuckAmberOHearn)
 import Cuckery.CuckList.AnnChilders.AnnChilders exposing (cuckAnnChilders)
@@ -111,7 +112,9 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )
 
 

frontend/src/Pages/Donate.elm

@@ -1,8 +1,10 @@
 module Pages.Donate exposing (Model, Msg, page)
 
+import Browser.Dom as Dom
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Config.Viewport exposing (..)
 import Donate.Helpers exposing (..)
 import Donate.Methods.Cardano exposing (donateCardano)
 import Donate.Methods.KoFi exposing (donateKoFi)
@@ -24,6 +26,7 @@ import Layouts
 import Page exposing (Page)
 import Route exposing (Route)
 import Shared exposing (..)
+import Task
 import View exposing (View)
 
 
@@ -54,7 +57,9 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )
 
 

frontend/src/Pages/Home_.elm

@@ -4,6 +4,7 @@ import Blog.Helpers exposing (..)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Config.Viewport exposing (..)
 import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Font as F
@@ -42,7 +43,9 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )
 
 

frontend/src/Pages/Hyperblog.elm

@@ -15,7 +15,7 @@ import Page exposing (Page)
 import Route exposing (Route)
 import Shared exposing (..)
 import View exposing (View)
-
+import Config.Viewport exposing (..)
 
 page : Shared.Model -> Route () -> Page Model Msg
 page shared route =
@@ -44,7 +44,9 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )
 
 

frontend/src/Pages/Interviews.elm

@@ -3,6 +3,7 @@ module Pages.Interviews exposing (Model, Msg, page)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Config.Viewport exposing (..)
 import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Border as D
@@ -56,7 +57,9 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )
 
 

frontend/src/Pages/Nutridex.elm

@@ -3,6 +3,7 @@ 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 Config.Viewport exposing (..)
 import Donate.Types exposing (..)
 import Effect exposing (Effect)
 import Element as E exposing (..)
@@ -51,11 +52,12 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )
 
 
-
 -- UPDATE
 
 

frontend/src/Pages/Platforms.elm

@@ -1,247 +0,0 @@
-module Pages.Platforms exposing (Model, Msg, page)
-
-import Config.Colour as T exposing (..)
-import Config.Format as O exposing (..)
-import Config.Identity as I exposing (..)
-import Effect exposing (Effect)
-import Element exposing (..)
-import Element.Font as F
-import Html.Attributes as H exposing (style)
-import Layouts
-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
-        }
-        |> 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 = platformsName
-    , attributes = []
-    , element = platformsContainer
-    }
-
-
-platformsContainer : Element msg
-platformsContainer =
-    topLevelContainer platformsList
-
-
-platformsList : Element msg
-platformsList =
-    column
-        pageList
-        platforms
-
-
-type alias MakeRowInput msg =
-    { logoImage : String
-    , logoDescription : String
-    , platformsLink : String
-    , platformsTitle : String
-    , platformsParagraph1 : List (Element msg)
-    , platformsParagraph2 : List (Element msg)
-    , platformsRecommendedClients : List ClientEntry
-    }
-
-
-type alias ClientEntry =
-    { clientLink : String
-    , clientLabel : String
-    , clientText : String
-    }
-
-
-type alias ClientType =
-    { android : String
-    , ios : String
-    , desktop : String
-    , multiPlatform : String
-    , browser : String
-    }
-
-
-makeRow : MakeRowInput msg -> Element msg
-makeRow makeRowInput =
-    let
-        recommendedClients : Element msg
-        recommendedClients =
-            el [ F.bold ] (text "Recommended Clients: ")
-
-        platformImageFormat : List (Attribute msg)
-        platformImageFormat =
-            [ width <| px 150
-            , alignTop
-            ]
-
-        clientRows : List (Element msg)
-        clientRows =
-            if List.isEmpty makeRowInput.platformsRecommendedClients then
-                [ text "No recommended clients available. Please use your browser." ]
-
-            else
-                List.map
-                    (\client ->
-                        row []
-                            [ paragraphLinkFormat
-                                { url = client.clientLink
-                                , label = transitionHighlightedLinkHover <| text client.clientLabel
-                                }
-                            , text client.clientText
-                            ]
-                    )
-                    makeRowInput.platformsRecommendedClients
-    in
-    row [ spacing 20 ]
-        [ image platformImageFormat
-            { src = makeRowInput.logoImage
-            , description = makeRowInput.logoDescription
-            }
-        , column [ width <| px 500, spacing 10 ]
-            [ column []
-                [ newTabLink highlightedTitleFormat
-                    { url = makeRowInput.platformsLink
-                    , label = text makeRowInput.platformsTitle
-                    }
-                ]
-            , column [ spacing 20 ]
-                [ paragraph paragraphFormat makeRowInput.platformsParagraph1
-                , paragraph paragraphFormat makeRowInput.platformsParagraph2
-                , paragraph paragraphFormat
-                    (recommendedClients :: clientRows)
-                ]
-            ]
-        ]
-
-
-platforms : List (Element msg)
-platforms =
-    let
-        clientType : ClientType
-        clientType =
-            { android = " (android) "
-            , ios = " (iOS)"
-            , desktop = " (desktop) "
-            , multiPlatform = " (multi-platform)"
-            , browser = " (browser only)"
-            }
-    in
-    List.map makeRow
-        [ { logoImage = "platforms/mastodon.png"
-          , logoDescription = "mastodon logo"
-          , platformsLink = "https://the-nutrivore.social/"
-          , platformsTitle = "MASTODON"
-          , platformsParagraph1 = [ 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." ]
-          , platformsParagraph2 =
-                [ 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."
-                ]
-          , platformsRecommendedClients =
-                [ { clientLink = "https://github.com/LucasGGamerM/moshidon"
-                  , clientLabel = "Moshidon"
-                  , clientText = clientType.android
-                  }
-                , { clientLink = "https://github.com/mastodon/mastodon-android"
-                  , clientLabel = "Official"
-                  , clientText = clientType.android
-                  }
-                , { clientLink = "https://github.com/tuskyapp/Tusky"
-                  , clientLabel = "Tusky"
-                  , clientText = clientType.android
-                  }
-                , { clientLink = "https://apps.apple.com/us/app/mastodon/id1571998974"
-                  , clientLabel = "Official"
-                  , clientText = clientType.ios
-                  }
-                ]
-          }
-        , { logoImage = "platforms/peertube.png"
-          , logoDescription = "peertube logo"
-          , platformsLink = "https://video.the-nutrivore.social/"
-          , platformsTitle = "PEERTUBE"
-          , platformsParagraph1 = [ 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." ]
-          , platformsParagraph2 = [ 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." ]
-          , platformsRecommendedClients = []
-          }
-        , { logoImage = "platforms/discord.png"
-          , logoDescription = "discord logo"
-          , platformsLink = "https://discord.gg/eeYQ2wJknS"
-          , platformsTitle = "DISCORD"
-          , platformsParagraph1 = [ 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." ]
-          , platformsParagraph2 = [ 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." ]
-          , platformsRecommendedClients =
-                [ { clientLink = "https://github.com/Vendicated/Vencord"
-                  , clientLabel = "Vencord"
-                  , clientText = clientType.desktop
-                  }
-                , { clientLink = "https://discord.com/download"
-                  , clientLabel = "Official"
-                  , clientText = clientType.multiPlatform
-                  }
-                ]
-          }
-        ]

frontend/src/Pages/Services.elm

@@ -3,6 +3,7 @@ module Pages.Services exposing (Model, Msg, page)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Config.Viewport exposing (..)
 import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Font as F
@@ -49,7 +50,9 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )