Mirrors/go-inbucket
1
0
Fork 0
mirror of https://github.com/jhillyerd/inbucket.git synced 2026-01-05 19:07:02 +00:00
Code Issues Releases Wiki Activity

ui: Show dates in browser local timezone

Browse Source
This commit is contained in:
James Hillyerd
2018-11-23 16:47:22 -08:00
parent ba8e2de475
commit 6215ce77dd
4 changed files with 43 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
ui/src/Page/Mailbox.elm
View File

@@ -483,10 +483,10 @@ view session model =
)
ShowingList _ (ShowingMessage { message }) ->
viewMessage message model.bodyMode
viewMessage session.zone message model.bodyMode
ShowingList _ (Transitioning { message }) ->
viewMessage message model.bodyMode
viewMessage session.zone message model.bodyMode
_ ->
text ""
@@ -538,8 +538,8 @@ messageChip model selected message =
]
viewMessage : Message -> Body -> Html Msg
viewMessage message bodyMode =
viewMessage : Time.Zone -> Message -> Body -> Html Msg
viewMessage zone message bodyMode =
let
sourceUrl =
"/serve/m/" ++ message.mailbox ++ "/" ++ message.id ++ "/source"
@@ -557,7 +557,7 @@ viewMessage message bodyMode =
, dt [] [ text "To:" ]
, dd [] (List.map text message.to)
, dt [] [ text "Date:" ]
, dd [] [ verboseDate message.date ]
, dd [] [ verboseDate zone message.date ]
, dt [] [ text "Subject:" ]
, dd [] [ text message.subject ]
]
@@ -636,8 +636,8 @@ relativeDate model date =
Relative.relativeTime model.now date |> text
verboseDate : Posix -> Html Msg
verboseDate date =
verboseDate : Time.Zone -> Posix -> Html Msg
verboseDate zone date =
text <|
DF.format
[ DF.monthNameFull
@@ -653,8 +653,9 @@ verboseDate date =
, DF.secondFixed
, DF.text " "
, DF.amPmUppercase
, DF.text " (Local)"
]
Time.utc
zone
date

14
ui/src/Page/Monitor.elm
View File

@@ -107,24 +107,24 @@ view session model =
, th [] [ text "Mailbox" ]
, th [] [ text "Subject" ]
]
, tbody [] (List.map viewMessage model.messages)
, tbody [] (List.map (viewMessage session.zone) model.messages)
]
]
}
viewMessage : MessageHeader -> Html Msg
viewMessage message =
viewMessage : Time.Zone -> MessageHeader -> Html Msg
viewMessage zone message =
tr [ Events.onClick (OpenMessage message) ]
[ td [] [ shortDate message.date ]
[ td [] [ shortDate zone message.date ]
, td [ class "desktop" ] [ text message.from ]
, td [] [ text message.mailbox ]
, td [] [ text message.subject ]
]
shortDate : Posix -> Html Msg
shortDate date =
shortDate : Time.Zone -> Posix -> Html Msg
shortDate zone date =
DF.format
[ DF.dayOfMonthFixed
, DF.text "-"
@@ -136,6 +136,6 @@ shortDate date =
, DF.text " "
, DF.amPmUppercase
]
Time.utc
zone
date
|> text