feat: added mackdown parser

frontend/src/Pages/Blog.elm

@@ -0,0 +1,137 @@
+module Pages.Blog exposing (Model, Msg, page)
+
+import Config.Data.Identity exposing (pageNames)
+import Config.Helpers.CardFormat
+    exposing
+        ( cardContentSpacing
+        , cardFormatter
+        , cardMaker
+        , cardTitleMaker
+        , desktopCardMaker
+        , desktopImageBoxSize
+        , desktopImageSize
+        , fieldSpacer
+        , mobileCardMaker
+        , mobileImageBoxSize
+        , mobileImageSize
+        , topLevelBox
+        , underConstructionMaker
+        )
+import Config.Helpers.Response
+    exposing
+        ( pageList
+        , topLevelContainer
+        )
+import Config.Helpers.Viewport exposing (resetViewport)
+import Config.Helpers.Header exposing (..)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
+import Config.Style.Colour as T exposing (..)
+import Config.Style.Icons.Icons exposing (construction)
+import Effect exposing (Effect)
+import Element as E exposing (..)
+import Layouts
+import Page exposing (Page)
+import Route exposing (Route)
+import Shared exposing (..)
+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.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
+    )
+
+
+
+-- 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.pageHyperBlog
+    , attributes = []
+    , element = hyperBlogContainer shared.device
+    }
+
+
+hyperBlogContainer : Device -> Element msg
+hyperBlogContainer device =
+    topLevelContainer (hyperBlogList device)
+
+
+hyperBlogList : Device -> Element msg
+hyperBlogList device =
+    column pageList <|
+        List.concat
+            (case ( device.class, device.orientation ) of
+                _ ->
+                    [ [ underConstructionMaker (String.toUpper pageNames.pageHyperBlog) ] ]
+            )
+
+
+hyperBlogHeader : Header
+hyperBlogHeader =
+    let
+        name =
+            "Blog"
+    in
+    { headerTitle = String.toUpper name
+    , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
+    }