From c6d55561bf8422301ea7a2d08b9a7c3e30a1440e Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jan.tuomi@valuemotive.com>
Date: Sat, 30 Oct 2021 19:24:00 +0300
Subject: Implement authentication

---
 src/Pages/Feed.elm | 40 +++++++++++++++++++++++++++++-----------
 1 file changed, 29 insertions(+), 11 deletions(-)

(limited to 'src/Pages/Feed.elm')

diff --git a/src/Pages/Feed.elm b/src/Pages/Feed.elm
index 824552a..7fbe98a 100644
--- a/src/Pages/Feed.elm
+++ b/src/Pages/Feed.elm
@@ -3,18 +3,16 @@ module Pages.Feed exposing (..)
 import Css exposing (..)
 import DateFormat.Relative exposing (relativeTime)
 import Html.Styled exposing (..)
-import Html.Styled.Attributes exposing (css, placeholder, type_, value)
+import Html.Styled.Attributes exposing (css, placeholder, src, type_, value)
 import Html.Styled.Events exposing (onClick, onInput, onSubmit)
+import RemoteData exposing (RemoteData(..))
 import Time exposing (now)
 import Types exposing (Model, Msg(..), Post)
 
 
 styles =
     { page =
-        css
-            [ maxWidth (px 600)
-            , margin2 (px 10) auto
-            ]
+        css [ margin2 (px 10) auto ]
     , postList =
         css
             [ overflow scroll
@@ -27,6 +25,16 @@ styles =
             , backgroundColor (hex "#eee")
             , marginBottom (px 10)
             ]
+    , postProfilePicture =
+        css
+            [ width (px 40)
+            , height (px 40)
+            ]
+    , postHeader =
+        css
+            [ display inlineBlock
+            , marginLeft (px 10)
+            ]
     , postTitle =
         css
             [ margin (px 0) ]
@@ -50,9 +58,13 @@ styles =
 postDiv : Time.Posix -> Post -> Html Msg
 postDiv now post =
     div [ styles.post ]
-        [ h3 [ styles.postTitle ] [ text post.author.name ]
-        , i []
-            [ text <| relativeTime now post.createdAt
+        [ span []
+            [ img [ styles.postProfilePicture, src post.userPictureUrl ] [] ]
+        , span [ styles.postHeader ]
+            [ h3 [ styles.postTitle ] [ text post.author.name ]
+            , i []
+                [ text <| relativeTime now post.createdAt
+                ]
             ]
         , p [] [ text post.content ]
         , span []
@@ -65,12 +77,18 @@ postDiv now post =
 postsDiv : Model -> Html Msg
 postsDiv model =
     case model.posts of
-        Just posts ->
-            div [ styles.postList ] <| List.map (postDiv model.now) posts
+        Initial ->
+            div [] []
 
-        Nothing ->
+        Loading ->
             div [] [ text "Loading posts..." ]
 
+        Failure _ ->
+            div [] []
+
+        Success posts ->
+            div [ styles.postList ] <| List.map (postDiv model.now) posts
+
 
 composeDiv : Model -> Html Msg
 composeDiv model =
-- 
cgit v1.3