Added link to original toot on date (#52)

This commit is contained in:
Nicolas Lœuillet 2017-04-25 15:29:33 +02:00 committed by Nicolas Perriault
parent 4385aed0a2
commit ff81482572

View File

@ -153,6 +153,7 @@ statusView ({ account, content, media_attachments, reblog, mentions } as status)
let
accountLinkAttributes =
[ href account.url
-- When clicking on a status, we should not let the browser
-- redirect to a new page. That's why we're preventing the default
-- behavior here
@ -239,7 +240,7 @@ accountTimelineView account statuses label iconName =
statusActionsView : Mastodon.Status -> Html Msg
statusActionsView status =
let
target =
targetStatus =
Mastodon.extractReblog status
baseBtnClasses =
@ -248,31 +249,31 @@ statusActionsView status =
( reblogClasses, reblogEvent ) =
case status.reblogged of
Just True ->
( baseBtnClasses ++ " reblogged", Unreblog target.id )
( baseBtnClasses ++ " reblogged", Unreblog targetStatus.id )
_ ->
( baseBtnClasses, Reblog target.id )
( baseBtnClasses, Reblog targetStatus.id )
( favClasses, favEvent ) =
case status.favourited of
Just True ->
( baseBtnClasses ++ " favourited", RemoveFavorite target.id )
( baseBtnClasses ++ " favourited", RemoveFavorite targetStatus.id )
_ ->
( baseBtnClasses, AddFavorite target.id )
( baseBtnClasses, AddFavorite targetStatus.id )
tootDate =
statusDate =
Date.fromString status.created_at
|> Result.withDefault (Date.fromTime 0)
formatDate =
text <| DateFormat.format DateEn.config "%m/%d/%Y %H:%M" tootDate
text <| DateFormat.format DateEn.config "%m/%d/%Y %H:%M" statusDate
in
div [ class "btn-group actions" ]
[ a
[ class baseBtnClasses
, ViewHelper.onClickWithPreventAndStop <|
DraftEvent (UpdateReplyTo target)
DraftEvent (UpdateReplyTo targetStatus)
]
[ icon "share-alt" ]
, a
@ -285,7 +286,12 @@ statusActionsView status =
, ViewHelper.onClickWithPreventAndStop favEvent
]
[ icon "star", text (toString status.favourites_count) ]
, a [ class baseBtnClasses ] [ icon "time", formatDate ]
, a
[ class baseBtnClasses
, href status.url
, target "_blank"
]
[ icon "time", formatDate ]
]