1
0
mirror of https://github.com/jhillyerd/inbucket.git synced 2026-01-07 19:57:06 +00:00

ui: Implement clear button on monitor

This commit is contained in:
James Hillyerd
2019-01-01 14:45:25 -08:00
parent 8e04ce1fec
commit 9815a66575
2 changed files with 28 additions and 9 deletions

View File

@@ -34,6 +34,7 @@ init session =
type Msg
= Connected Bool
| MessageReceived D.Value
| Clear
| OpenMessage MessageHeader
@@ -64,6 +65,9 @@ update msg model =
, Cmd.none
)
Clear ->
( { model | messages = [] }, Cmd.none )
OpenMessage header ->
( model
, Route.pushUrl model.session.key (Route.Message header.mailbox header.id)
@@ -80,16 +84,21 @@ view model =
, modal = Nothing
, content =
[ h1 [] [ text "Monitor" ]
, p []
[ text "Messages will be listed here shortly after delivery. "
, em []
[ text
(if model.connected then
"Connected."
, div [ class "monitor-header" ]
[ span [ class "monitor-description" ]
[ text "Messages will be listed here shortly after delivery. "
, em []
[ text
(if model.connected then
"Connected."
else
"Disconnected!"
)
else
"Disconnected!"
)
]
]
, span [ class "button-bar monitor-buttons" ]
[ button [ Events.onClick Clear ] [ text "Clear" ]
]
]
, node "monitor-messages"