feat: hyperblog under construction

frontend/src/Pages/Hyperblog.elm

@@ -4,6 +4,8 @@ import Blog.Helpers exposing (..)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Config.Response exposing (..)
+import Config.Viewport exposing (..)
 import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Font as F
@@ -15,15 +17,15 @@ import Page exposing (Page)
 import Route exposing (Route)
 import Shared exposing (..)
 import View exposing (View)
-import Config.Viewport exposing (..)
-import Config.Response exposing (..)
+
+
 page : Shared.Model -> Route () -> Page Model Msg
 page shared route =
     Page.new
         { init = init
         , update = update
         , subscriptions = subscriptions
-        , view = view
+        , view = view shared
         }
         |> Page.withLayout toLayout
 
@@ -80,9 +82,24 @@ subscriptions model =
 -- VIEW
 
 
-view : Model -> View Msg
-view model =
-    { title = pageNames.pageHyperBlog
+view : Shared.Model -> Model -> View Msg
+view shared model =
+    { title = pageNames.pageHyperBlog ++ " ( )"
     , attributes = []
-    , element = none
+    , element = hyperBlogContainer shared.device
     }
+
+
+hyperBlogContainer : Device -> Element msg
+hyperBlogContainer device =
+    topLevelContainer (hyperBlogList device)
+
+
+hyperBlogList : Device -> Element msg
+hyperBlogList device =
+    column pageListDesktop <|
+        List.concat
+            (case ( device.class, device.orientation ) of
+                _ ->
+                    [ [ underConstructionMaker ] ]
+            )