feat: added and customized AY navbar

frontend/src/Pages/Debate/Arguments.elm

@@ -1,4 +1,4 @@
-module Pages.Arguments exposing (Model, Msg, page)
+module Pages.Debate.Arguments exposing (Model, Msg, page)
 
 import Config.Data.Identity exposing (pageNames)
 import Config.Format.Response

frontend/src/Pages/Debate/Cucklist.elm

@@ -1,4 +1,4 @@
-module Pages.Cucklist exposing (Model, Msg, page)
+module Pages.Debate.Cucklist exposing (Model, Msg, page)
 
 import Config.Data.Identity exposing (pageNames)
 import Config.Format.Response
@@ -86,17 +86,17 @@ view : Shared.Model -> Model -> View Msg
 view shared model =
     { title = "debate (" ++ pageNames.pageCucks ++ ")"
     , attributes = []
-    , element = dodgersContainer shared.device
+    , element = cucksContainer shared.device
     }
 
 
-dodgersContainer : Device -> Element msg
-dodgersContainer device =
-    topLevelContainer (dodgersList device)
+cucksContainer : Device -> Element msg
+cucksContainer device =
+    topLevelContainer (cucksList device)
 
 
-dodgersList : Device -> Element msg
-dodgersList device =
+cucksList : Device -> Element msg
+cucksList device =
     column
         (case ( device.class, device.orientation ) of
             _ ->

frontend/src/Pages/Debate/Gibberish.elm

@@ -1,4 +1,4 @@
-module Pages.Gibberish exposing (Model, Msg, page)
+module Pages.Debate.Gibberish exposing (Model, Msg, page)
 
 import Config.Data.Identity exposing (pageNames)
 import Config.Format.Response

frontend/src/Pages/Home_.elm

@@ -9,12 +9,16 @@ import Config.Format.Response
 import Config.Helpers.Viewport exposing (resetViewport)
 import Config.Pages.Home.Helpers exposing (..)
 import Config.Style.Colour exposing (colourTheme)
+import Config.Style.Svgs exposing (construction2)
+import Config.Style.Transitions exposing (transitionStyleMedium)
 import Effect exposing (Effect)
 import Element as E exposing (..)
+import Element.Font as F exposing (color)
 import Layouts
 import Page exposing (Page)
 import Route exposing (Route)
 import Shared exposing (..)
+import Svg.Attributes as SvgAttr exposing (..)
 import View exposing (View)
 
 
@@ -89,6 +93,21 @@ view shared model =
     }
 
 
+
+-- construction2
+--             { elementAttributes =
+--                 [ centerX
+--                 , centerY
+--                 , transitionStyleMedium
+--                 , mouseOver [ F.color colourTheme.textDarkOrange ]
+--                 ]
+--             , sharedModel = shared
+--             , svgAttributes =
+--                 [ SvgAttr.width "300" ]
+--             }
+-- , element = homeContainer shared.device
+
+
 homeContainer : Device -> Element msg
 homeContainer device =
     topLevelContainer (homeList device)

frontend/src/Pages/Services.elm

@@ -10,11 +10,11 @@ import Config.Helpers.Viewport exposing (resetViewport)
 import Config.Pages.Headers.Helpers exposing (headerMaker)
 import Config.Pages.Headers.Pages.Services exposing (servicesHeader)
 import Config.Pages.Services.Helpers exposing (..)
-import Config.Pages.Services.Offerings.DebateAnalysis exposing (..)
-import Config.Pages.Services.Offerings.DebateTutoring exposing (..)
-import Config.Pages.Services.Offerings.ElmBuilds exposing (..)
-import Config.Pages.Services.Offerings.NixBuilds exposing (..)
-import Config.Pages.Services.Offerings.NutritionScience exposing (..)
+import Config.Pages.Services.Services.DebateAnalysis exposing (..)
+import Config.Pages.Services.Services.DebateTutoring exposing (..)
+import Config.Pages.Services.Services.ElmBuilds exposing (..)
+import Config.Pages.Services.Services.NixBuilds exposing (..)
+import Config.Pages.Services.Services.NutritionScience exposing (..)
 import Config.Style.Colour as T exposing (..)
 import Effect exposing (Effect)
 import Element as E exposing (..)

frontend/src/Pages/Services/Analysis.elm

@@ -0,0 +1,68 @@
+module Pages.Services.Analysis exposing (Model, Msg, page)
+
+import Effect exposing (Effect)
+import Route exposing (Route)
+import Html
+import Page exposing (Page)
+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 =
+    {}
+
+
+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 =
+    View.fromString "Pages.Services.Analysis"

frontend/src/Pages/Services/Coaching.elm

@@ -0,0 +1,101 @@
+module Pages.Services.Coaching exposing (Model, Msg, page)
+
+import Config.Data.Identity exposing (pageNames)
+import Config.Format.Response
+    exposing
+        ( pageList
+        , topLevelContainer
+        )
+-- import Config.Pages.Services.Coaching.Helpers exposing (instructionMaker)
+import Effect exposing (Effect)
+import Element as E exposing (..)
+import Html
+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 shared
+        }
+        |> 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 : Shared.Model -> Model -> View Msg
+view shared model =
+    { title = pageNames.pageContact ++ " ( )"
+    , attributes = []
+    , element = coachContainer shared.device
+    }
+
+
+coachContainer : Device -> Element msg
+coachContainer device =
+    topLevelContainer (coachList device)
+
+
+coachList : Device -> Element msg
+coachList device =
+    column pageList <|
+        List.concat
+            (case ( device.class, device.orientation ) of
+                _ ->
+                    [ [  ] ]
+            )

frontend/src/Pages/Services/Elm.elm

@@ -0,0 +1,68 @@
+module Pages.Services.Elm exposing (Model, Msg, page)
+
+import Effect exposing (Effect)
+import Route exposing (Route)
+import Html
+import Page exposing (Page)
+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 =
+    {}
+
+
+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 =
+    View.fromString "Pages.Services.Elm"

frontend/src/Pages/Services/Nix.elm

@@ -0,0 +1,68 @@
+module Pages.Services.Nix exposing (Model, Msg, page)
+
+import Effect exposing (Effect)
+import Route exposing (Route)
+import Html
+import Page exposing (Page)
+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 =
+    {}
+
+
+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 =
+    View.fromString "Pages.Services.Nix"

frontend/src/Pages/Services/Nutrition.elm

@@ -0,0 +1,68 @@
+module Pages.Services.Nutrition exposing (Model, Msg, page)
+
+import Effect exposing (Effect)
+import Route exposing (Route)
+import Html
+import Page exposing (Page)
+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 =
+    {}
+
+
+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 =
+    View.fromString "Pages.Services.Nutrition"