feat: refactoring and tidying up

frontend/src/Pages/Blog/Bigfatsurprise.elm

@@ -1,6 +1,7 @@
 module Pages.Blog.Bigfatsurprise exposing (Model, Msg, page)
 
 import Config.Data.Identity exposing (pageNames)
+import Config.Helpers.Articles.Article exposing (articleMaker)
 import Config.Helpers.CardFormat
     exposing
         ( cardContentSpacing
@@ -17,45 +18,16 @@ import Config.Helpers.CardFormat
         , mobileImageSize
         , topLevelBox
         )
-import Config.Helpers.Format exposing (..)
-import Config.Helpers.Header
-    exposing
-        ( Header
-        , headerMaker
-        )
-import Config.Helpers.Markdown exposing (..)
-import Config.Helpers.References exposing (makeReference)
+import Config.Helpers.Headers.Types exposing (Header)
 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.BigFatSurprise exposing (articleBigFatSurprise)
-import Config.Pages.Blog.Types exposing (BlogArticle)
-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)
@@ -90,7 +62,9 @@ type alias Model =
 init : () -> ( Model, Effect Msg )
 init () =
     ( {}
-    , Effect.none
+    , Effect.map
+        (\_ -> NoOp)
+        (Effect.sendCmd resetViewport)
     )
 
 
@@ -152,44 +126,3 @@ articleList device =
               )
                 [ articleBigFatSurprise ]
             ]
-
-
-articleMaker : BlogArticle -> Element msg
-articleMaker article =
-    column
-        topLevelBox
-        [ cardMaker
-            [ cardTitleMaker (String.toUpper articleBigFatSurprise.articleName)
-            , cardFormatter
-                [ cardContentSpacing
-                    [ column
-                        fieldSpacer
-                        [ cardSubTitleMaker
-                            [ articleImage articleBigFatSurprise.articleImage
-                            , renderDeviceMarkdown articleBigFatSurprise.articleBody
-                            , articleReferences article
-                            ]
-                        ]
-                    ]
-                ]
-            ]
-        ]
-
-
-articleReferences : BlogArticle -> Element msg
-articleReferences article =
-    column
-        [ width fill
-        , height fill
-        , paddingEach
-            { top = 10
-            , right = 0
-            , bottom = 0
-            , left = 0
-            }
-        ]
-        [ column [ width fill, F.size 15, spacing 10 ] <|
-            List.map2 (\x y -> makeReference x y)
-                article.articleReferences
-                (List.range 1 (List.length article.articleReferences))
-        ]