Add navigation and profile

1 files changed, 25 insertions, 0 deletions

diff --git a/src/Pages/Profile.elm b/src/Pages/Profile.elm
new file mode 100644
index 0000000..a564b3e
--- /dev/null
+++ b/src/Pages/Profile.elm
@@ -0,0 +1,25 @@
+module Pages.Profile exposing (..)
+
+import Css exposing (marginBottom, px)
+import Html.Styled exposing (..)
+import Html.Styled.Attributes exposing (css)
+import Types exposing (Model, Msg, UrlSegmentUserId)
+
+
+styles =
+    { container =
+        css
+            [ marginBottom (px 10)
+            ]
+    }
+
+
+body : Model -> UrlSegmentUserId -> Html Msg
+body _ id =
+    div [ styles.container ]
+        [ text id ]
+
+
+profileView : UrlSegmentUserId -> Model -> List (Html Msg)
+profileView userId model =
+    [ body model userId ]