feat: added mackdown parser

frontend/src/Pages/Blog/Seedoils.elm

@@ -0,0 +1,166 @@
+module Pages.Blog.Seedoils exposing (Model, Msg, page)
+
+import Config.Data.Identity exposing (pageNames)
+import Config.Helpers.CardFormat
+    exposing
+        ( cardContentSpacing
+        , cardFormatter
+        , cardMaker
+        , cardSubTitleMaker
+        , cardTitleMaker
+        , desktopCardMaker
+        , desktopImageBoxSize
+        , desktopImageSize
+        , fieldSpacer
+        , mobileCardMaker
+        , mobileImageBoxSize
+        , mobileImageSize
+        , topLevelBox
+        )
+import Config.Helpers.Format exposing (..)
+import Config.Helpers.Header
+    exposing
+        ( Header
+        , headerMaker
+        )
+import Config.Helpers.Markdown exposing (..)
+import Config.Helpers.Response
+    exposing
+        ( pageList
+        , topLevelContainer
+        )
+import Config.Helpers.StrengthBar
+    exposing
+        ( barMaker
+        , barPadding
+        )
+import Config.Helpers.ToolTip exposing (..)
+import Config.Helpers.Viewport exposing (resetViewport)
+import Config.Pages.Blog.Records.SeedOils exposing (articleSeedOils)
+import Config.Pages.Contact.Types exposing (..)
+import Config.Pages.Interviews.Types exposing (..)
+import Config.Pages.Products.Types exposing (..)
+import Config.Style.Colour exposing (colourTheme)
+import Config.Style.Transitions
+    exposing
+        ( hoverFontDarkOrange
+        , transitionStyleFast
+        , transitionStyleSlow
+        )
+import Effect exposing (Effect)
+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 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.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 = articleContainer shared.device
+    }
+
+
+articleContainer : Device -> Element msg
+articleContainer device =
+    topLevelContainer (articleList device)
+
+
+articleList : Device -> Element msg
+articleList device =
+    column pageList <|
+        List.concat
+            (case ( device.class, device.orientation ) of
+                _ ->
+                    [ [ articleMaker ] ]
+            )
+
+
+articleMaker : Element msg
+articleMaker =
+    column
+        topLevelBox
+        [ cardMaker
+            [ cardTitleMaker (String.toUpper articleSeedOils.articleName)
+            , cardFormatter
+                [ cardContentSpacing
+                    [ column
+                        fieldSpacer
+                        [ cardSubTitleMaker
+                            [ articleImage articleSeedOils.articleImage
+                            , renderDeviceMarkdown articleSeedOils.articleBody
+                            ]
+                        ]
+                    ]
+                ]
+            ]
+        ]