feat: added gibberish page and argument summaries

frontend/src/Pages/Arguments.elm

@@ -87,7 +87,7 @@ page shared route =
 
 toLayout : Model -> Layouts.Layout Msg
 toLayout model =
-    Layouts.Navbar {}
+    Layouts.Navbar { currentRoute = debateName }
 
 
 
@@ -101,9 +101,12 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.map
-        (\_ -> NoOp)
-        (Effect.sendCmd resetViewport)
+    , Effect.batch
+        [ Effect.map
+            (\_ -> NoOp)
+            (Effect.sendCmd resetViewport)
+        , Effect.none
+        ]
     )
 
 
@@ -210,7 +213,5 @@ debateList =
                     , argumentFlatEarthDebunk
                     , argumentTruncatedMeta
                     ]
-                , List.map gibberishMaker
-                    [ gibberishList ]
                 ]
         ]

frontend/src/Pages/Contact.elm

@@ -34,7 +34,7 @@ page shared route =
 
 toLayout : Model -> Layouts.Layout Msg
 toLayout model =
-    Layouts.Navbar {}
+    Layouts.Navbar {currentRoute = contactName}
 
 
 

frontend/src/Pages/Cucklist.elm

@@ -98,7 +98,7 @@ page shared route =
 
 toLayout : Model -> Layouts.Layout Msg
 toLayout model =
-    Layouts.Navbar {}
+    Layouts.Navbar { currentRoute = dodgersName }
 
 
 

frontend/src/Pages/Donate.elm

@@ -43,7 +43,7 @@ page shared route =
 
 toLayout : Model -> Layouts.Layout Msg
 toLayout model =
-    Layouts.Navbar {}
+    Layouts.Navbar {currentRoute = donateName}
 
 
 

frontend/src/Pages/Gibberish.elm

@@ -0,0 +1,132 @@
+module Pages.Gibberish 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.Gibberish.Domains.Epistemology exposing (epistemologyGibberish)
+import Debate.Gibberish.Domains.Metaphysics exposing (metaphysicsGibberish)
+import Debate.Gibberish.Domains.Normativity exposing (normativityGibberish)
+import Debate.Gibberish.Domains.Ontology exposing (ontologyGibberish)
+import Debate.Gibberish.Domains.PhilOfLanguage exposing (philOfLanguageGibberish)
+import Debate.Gibberish.Domains.PhilOfMind exposing (philOfMindGibberish)
+import Debate.Gibberish.Domains.Theology exposing (theologyGibberish)
+import Debate.Gibberish.Helpers exposing (..)
+import Debate.Helpers exposing (..)
+import Debate.Types exposing (..)
+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.Gibberish exposing (gibberishHeader)
+import Html
+import Html.Attributes as H exposing (style, title, wrap)
+import Layouts
+import List.Extra as L exposing (..)
+import Page exposing (Page)
+import Ports exposing (gotArgHeight)
+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 { currentRoute = donateName }
+
+
+
+-- INIT
+
+
+type alias Model =
+    {}
+
+
+init : () -> ( Model, Effect Msg )
+init () =
+    ( {}
+    , Effect.batch
+        [ Effect.map
+            (\_ -> NoOp)
+            (Effect.sendCmd resetViewport)
+        , 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 = gibberishName
+    , attributes = []
+    , element = gibberishContainer
+    }
+
+
+gibberishContainer : Element msg
+gibberishContainer =
+    topLevelContainer gibberishList
+
+
+gibberishList : Element msg
+gibberishList =
+    column [ centerX ]
+        [ column
+            pageList
+          <|
+            List.concat
+                [ List.map headerMaker
+                    [ gibberishHeader ]
+                , List.map gibberishMaker
+                    [ epistemologyGibberish
+                    , theologyGibberish
+                    , metaphysicsGibberish
+                    , normativityGibberish
+                    , ontologyGibberish
+                    , philOfMindGibberish
+                    , philOfLanguageGibberish
+                    ]
+                ]
+        ]

frontend/src/Pages/Home_.elm

@@ -29,7 +29,7 @@ page shared route =
 
 toLayout : Model -> Layouts.Layout Msg
 toLayout model =
-    Layouts.Navbar {}
+    Layouts.Navbar {currentRoute = homeName}
 
 
 

frontend/src/Pages/Hyperblog.elm

@@ -30,7 +30,7 @@ page shared route =
 
 toLayout : Model -> Layouts.Layout Msg
 toLayout model =
-    Layouts.Navbar {}
+    Layouts.Navbar {currentRoute = hyperBlogName}
 
 
 

frontend/src/Pages/Interviews.elm

@@ -43,7 +43,7 @@ page shared route =
 
 toLayout : Model -> Layouts.Layout Msg
 toLayout model =
-    Layouts.Navbar {}
+    Layouts.Navbar {currentRoute = interviewsName}
 
 
 

frontend/src/Pages/Nutridex.elm

@@ -38,7 +38,7 @@ page shared route =
 
 toLayout : Model -> Layouts.Layout Msg
 toLayout model =
-    Layouts.Navbar {}
+    Layouts.Navbar {currentRoute = nutriDexName}
 
 
 

frontend/src/Pages/Services.elm

@@ -36,7 +36,7 @@ page shared route =
 
 toLayout : Model -> Layouts.Layout Msg
 toLayout model =
-    Layouts.Navbar {}
+    Layouts.Navbar { currentRoute = servicesName }