feat: crushed it like I crushed your mom

frontend/src/Config/Identity.elm

@@ -17,22 +17,21 @@ type alias PageInput =
 
 pageNames : PageInput
 pageNames =
-    { pageHome = "upRoot Health"
+    { pageHome = "upRootHealth"
-    , pagePlatforms = "Platforms"
+    , pagePlatforms = "platforms"
-    , pageServices = "Services"
+    , pageServices = "services"
-    , pageDodgers = "Dodgers"
+    , pageDodgers = "cuckList"
-    , pageDebate = "Debate"
+    , pageDebate = "arguments"
-    , pageHyperBlog = "HyperBlog"
+    , pageHyperBlog = "hyperBlog"
-    , pageNutriDex = "NutriDex"
+    , pageNutriDex = "nutriDex"
-    , pageInterviews = "Interviews"
+    , pageInterviews = "interviews"
-    , pageContact = "Contact"
+    , pageContact = "contact"
-    , pageSupport = "Support"
+    , pageSupport = "support"
     }
 
-
 createPageName : String -> String
 createPageName pageName =
-    pageNames.pageHome ++ " | " ++ pageName
+    pageNames.pageHome ++ " :: " ++ pageName
 
 
 contactName : String

frontend/src/Layouts/Navbar.elm

@@ -301,7 +301,7 @@ hyperbolgButton =
                 , alignBottom
                 , E.width <| px 30
                 ]
-                { src = "navbar/hyperblog2.png"
+                { src = "navbar/hyperblog.png"
                 , description = ""
                 }
             ]

frontend/src/Pages/Cucklist.elm

@@ -1,4 +1,4 @@
-module Pages.CuckList exposing (Model, Msg, page)
+module Pages.Cucklist exposing (Model, Msg, page)
 
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)

frontend/src/Pages/Home_.elm

@@ -1,18 +1,17 @@
 module Pages.Home_ exposing (Model, Msg, page)
 
+import Blog.Helpers exposing (..)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
-import Cuckery.Types exposing (..)
 import Effect exposing (Effect)
-import Element as E exposing (..)
+import Element exposing (..)
-import Element.Background as D exposing (..)
+import Element.Font as F
-import Element.Border as R exposing (..)
 import Html.Attributes as H exposing (style)
 import Layouts
 import Page exposing (Page)
 import Route exposing (Route)
-import Shared
+import Shared exposing (..)
 import View exposing (View)
 
 
@@ -24,12 +23,6 @@ page shared route =
         , subscriptions = subscriptions
         , view = view
         }
-        |> Page.withLayout toLayout
-
-
-toLayout : Model -> Layouts.Layout Msg
-toLayout model =
-    Layouts.Navbar {}
 
 
 
@@ -79,7 +72,4 @@ subscriptions model =
 
 view : Model -> View Msg
 view model =
-    { title = pageNames.pageHome
+    View.fromString "Pages.Home_"
-    , attributes = []
-    , element = none
-    }

frontend/src/Pages/Hyperblog.elm

@@ -72,4 +72,4 @@ subscriptions model =
 
 view : Model -> View Msg
 view model =
-    View.fromString "Pages.Blog"
+    View.fromString "Pages.Hyperblog"