1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
module Components.PostList exposing (..)
import Css exposing (..)
import DateFormat.Relative exposing (relativeTime)
import Html.Styled exposing (..)
import Html.Styled.Attributes exposing (css, href, src)
import Html.Styled.Events exposing (onClick)
import Html.Styled.Keyed as Keyed
import Html.Styled.Lazy exposing (lazy)
import Time
import Types exposing (Msg(..), Post)
import Utils exposing (templ)
styles =
{ postList =
css
[ marginBottom (px 10)
]
, post =
css
[ padding2 (px 15) (px 20)
, backgroundColor (hex "#eee")
, marginBottom (px 10)
]
, postImage =
css
[ marginBottom (px 20)
]
, postProfilePicture =
css
[ width (px 40)
, height (px 40)
]
, postHeader =
css
[ display inlineBlock
, marginLeft (px 10)
]
, postTitle =
css
[ margin (px 0) ]
, postLikeButton =
css
[ marginRight (px 5)
, cursor pointer
]
}
postDiv : Time.Posix -> Post -> Html Msg
postDiv now post =
let
imageElem =
case post.imageUrl of
Just url ->
img [ styles.postImage, src url ] []
Nothing ->
text ""
in
div
[ styles.post ]
[ a [ href <| templ [ post.author.id ] "/profile/{0}" ]
[ 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 ]
, imageElem
, span []
[ button [ styles.postLikeButton, onClick (LikePost post) ] [ text "👏 Clap" ]
, text <| String.fromInt post.likes
]
]
keyedPostDiv : Time.Posix -> Post -> ( String, Html Msg )
keyedPostDiv now post =
( post.id, lazy (postDiv now) post )
postList : Time.Posix -> List Post -> Html Msg
postList now posts =
Keyed.node "div" [ styles.postList ] <| List.map (keyedPostDiv now) posts
|
