feat: stuff is fucked but I'm too tired to continue tonight

frontend/src/Pages/Contact.elm

@@ -1,22 +1,7 @@
 module Pages.Contact 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.CardFormat exposing (cardMaker)
 import Config.Helpers.Format exposing (..)
 import Config.Helpers.Headers.Header exposing (headerMaker)
 import Config.Helpers.Headers.Types exposing (Header)
@@ -131,42 +116,29 @@ contactContainer device =
 
 contactList : Device -> Element msg
 contactList device =
-    column pageList <|
+    column
+        (case ( device.class, device.orientation ) of
+            _ ->
+                pageList
+        )
+    <|
         List.concat
-            (case ( device.class, device.orientation ) of
+            [ (case ( device.class, device.orientation ) of
                 _ ->
-                    [ [ instructionMaker ] ]
-            )
-
-
-contactHeader : Header
-contactHeader =
-    let
-        name =
-            "Contact"
-    in
-    { headerTitle = String.toUpper name
-    , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
-    }
-
-
-instructionMaker : Element msg
-instructionMaker =
-    row
-        topLevelBox
-        [ cardMaker
-            [ cardTitleMaker (String.toUpper pageNames.pageContact)
-            , cardFormatter
-                [ cardContentSpacing
-                    [ column
-                        fieldSpacer
-                        [ cardSubTitleMaker
-                            [ instructionBody ]
-                        ]
-                    ]
-                ]
+                    List.map (contactMaker device)
+              )
+                []
             ]
-        ]
+
+
+contactMaker : Device -> Contact -> Element msg
+contactMaker device contact =
+    cardMaker device contact.contactName (contentList contact) { description = "", src = "" } contact.contactLink
+
+
+contentList : Contact -> List (Element msg)
+contentList contact =
+    [ instructionBody ]
 
 
 instructionBody : Element msg