feat: hyperblog under construction

frontend/src/Blog/Helpers.elm

@@ -1,5 +1,57 @@
 module Blog.Helpers exposing (..)
 
+import Config.CardFormat exposing (..)
+import Config.Colour exposing (..)
+import Config.Format exposing (..)
+import Config.Identity exposing (..)
+import Config.Style.Svgs exposing (..)
+import Debate.Arguments.Helpers exposing (..)
+import Debate.Cuckery.Helpers exposing (..)
+import Debate.Debate.Types exposing (..)
+import Debate.Gibberish.Helpers exposing (..)
+import Effect exposing (Effect)
+import Element as E exposing (..)
+import Element.Background as B exposing (..)
+import Element.Border as D
+import Element.Font as F
+import Html exposing (Html)
+import Html.Attributes as H exposing (style)
+import Layouts
+import Page exposing (Page)
+import Route exposing (Route)
+import Shared
+import View exposing (View)
 
-hahaha =
-    []
+
+underConstructionMaker : Element msg
+underConstructionMaker =
+    row
+        topLevelBox
+        [ cardMaker
+            [ cardTitleMaker "HYPERBLOG"
+            , cardFormatter
+                [ cardContentSpacing
+                    [ column
+                        fieldSpacer
+                        [ cardSubTitleMaker
+                            [ column []
+                                [ row
+                                    [ spacing 10
+                                    ]
+                                    [ column [ width <| px 35 ] [ html construction ]
+                                    , column
+                                        [ width fill
+                                        , F.color colourTheme.textLightOrange
+                                        , F.bold
+                                        , alignBottom
+                                        ]
+                                        [ text "under construction"
+                                        ]
+                                    ]
+                                ]
+                            ]
+                        ]
+                    ]
+                ]
+            ]
+        ]

frontend/src/Config/Style/Svgs.elm

@@ -687,11 +687,11 @@ interviews =
 donate : Html msg
 donate =
     svg
-        [ SvgAttr.viewBox "0 0 512 512"
+        [ SvgAttr.viewBox "0 0 576 512"
         , SvgAttr.fill "#cc6600"
         ]
         [ path
-            [ SvgAttr.d "M64 32C28.7 32 0 60.7 0 96L0 416c0 35.3 28.7 64 64 64l384 0c35.3 0 64-28.7 64-64l0-224c0-35.3-28.7-64-64-64L80 128c-8.8 0-16-7.2-16-16s7.2-16 16-16l368 0c17.7 0 32-14.3 32-32s-14.3-32-32-32L64 32zM416 272a32 32 0 1 1 0 64 32 32 0 1 1 0-64z"
+            [ SvgAttr.d "M64 32C28.7 32 0 60.7 0 96l0 32 576 0 0-32c0-35.3-28.7-64-64-64L64 32zM576 224L0 224 0 416c0 35.3 28.7 64 64 64l448 0c35.3 0 64-28.7 64-64l0-192zM112 352l64 0c8.8 0 16 7.2 16 16s-7.2 16-16 16l-64 0c-8.8 0-16-7.2-16-16s7.2-16 16-16zm112 16c0-8.8 7.2-16 16-16l128 0c8.8 0 16 7.2 16 16s-7.2 16-16 16l-128 0c-8.8 0-16-7.2-16-16z"
             ]
             []
         ]
@@ -760,3 +760,16 @@ discord =
             ]
             []
         ]
+
+
+construction : Html msg
+construction =
+    svg
+        [ SvgAttr.viewBox "0 0 576 512"
+        , SvgAttr.fill "#D4D4D4"
+        ]
+        [ path
+            [ SvgAttr.d "M208 64a48 48 0 1 1 96 0 48 48 0 1 1 -96 0zM9.8 214.8c5.1-12.2 19.1-18 31.4-12.9L60.7 210l22.9-38.1C99.9 144.6 129.3 128 161 128c51.4 0 97 32.9 113.3 81.7l34.6 103.7 79.3 33.1 34.2-45.6c6.4-8.5 16.6-13.3 27.2-12.8s20.3 6.4 25.8 15.5l96 160c5.9 9.9 6.1 22.2 .4 32.2s-16.3 16.2-27.8 16.2l-256 0c-11.1 0-21.4-5.7-27.2-15.2s-6.4-21.2-1.4-31.1l16-32c5.4-10.8 16.5-17.7 28.6-17.7l32 0 22.5-30L22.8 246.2c-12.2-5.1-18-19.1-12.9-31.4zm82.8 91.8l112 48c11.8 5 19.4 16.6 19.4 29.4l0 96c0 17.7-14.3 32-32 32s-32-14.3-32-32l0-74.9-60.6-26-37 111c-5.6 16.8-23.7 25.8-40.5 20.2S-3.9 486.6 1.6 469.9l48-144 11-33 32 13.7z"
+            ]
+            []
+        ]

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 ] ]
+            )