feat: lots of work

frontend/src/Pages/Services/Elm.elm

@@ -1,9 +1,34 @@
 module Pages.Services.Elm exposing (Model, Msg, page)
 
+import Config.Helpers.ArticleFormat exposing (..)
+import Config.Helpers.CardFormat exposing (..)
+import Config.Helpers.Format exposing (..)
+import Config.Helpers.Response
+    exposing
+        ( pageList
+        , topLevelContainer
+        )
+import Config.Helpers.ToolTip exposing (..)
+import Config.Pages.Headers.Types exposing (..)
+import Config.Pages.Services.Services.ElmBuilds exposing (servicesElmBuilds)
+import Config.Style.Colour exposing (colourTheme)
+import Config.Style.Transitions
+    exposing
+        ( hoverFontDarkOrange
+        , transitionStyleFast
+        , transitionStyleSlow
+        )
 import Effect exposing (Effect)
-import Route exposing (Route)
+import Element as E exposing (..)
+import Element.Background as B
+import Element.Border as D
+import Element.Font as F
 import Html
+import Html.Attributes as H exposing (style)
+import Layouts
 import Page exposing (Page)
+import Route exposing (Route)
+import Route.Path as Path
 import Shared
 import View exposing (View)
 
@@ -14,8 +39,14 @@ page shared route =
         { init = init
         , update = update
         , subscriptions = subscriptions
-        , view = view
+        , view = view shared
         }
+        |> Page.withLayout toLayout
+
+
+toLayout : Model -> Layouts.Layout Msg
+toLayout model =
+    Layouts.Navbar {}
 
 
 
@@ -63,6 +94,51 @@ subscriptions model =
 -- VIEW
 
 
-view : Model -> View Msg
-view model =
-    View.fromString "Pages.Services.Elm"
+view : Shared.Model -> Model -> View Msg
+view shared model =
+    { title = "services (elmBuilds)"
+    , attributes = []
+    , element = elmBuildsContainer shared.device
+    }
+
+
+elmBuildsContainer : Device -> Element msg
+elmBuildsContainer device =
+    topLevelContainer (elmBuildsList device)
+
+
+elmBuildsList : Device -> Element msg
+elmBuildsList device =
+    column pageList <|
+        List.concat
+            (case ( device.class, device.orientation ) of
+                _ ->
+                    [ [ serviceMaker ] ]
+            )
+
+
+serviceMaker : Element msg
+serviceMaker =
+    row
+        topLevelBox
+        [ cardMaker
+            [ cardTitleMaker (String.toUpper servicesElmBuilds.serviceName)
+            , cardFormatter
+                [ cardContentSpacing
+                    [ column
+                        fieldSpacer
+                        [ cardSubTitleMaker
+                            [ column
+                                bodyFormat
+                                [--     chunkMaker
+                                 -- , titleMaker
+                                 -- , highlightedBlockMaker
+                                 -- , bulletPointMaker
+                                 -- , numberMaker
+                                ]
+                            ]
+                        ]
+                    ]
+                ]
+            ]
+        ]