1
0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-22 03:57:02 +00:00

ui: Mailbox purge prompts for confirmation

This commit is contained in:
James Hillyerd
2018-12-12 20:37:39 -08:00
parent efe554bd77
commit f12a72871f
7 changed files with 94 additions and 23 deletions

View File

@@ -37,8 +37,8 @@ type alias FrameControls msg =
}
frame : FrameControls msg -> Session -> ActivePage -> Html msg -> Html msg
frame controls session page content =
frame : FrameControls msg -> Session -> ActivePage -> Maybe (Html msg) -> Html msg -> Html msg
frame controls session page modal content =
div [ class "app" ]
[ header []
[ ul [ class "navbar", attribute "role" "navigation" ]
@@ -62,6 +62,7 @@ frame controls session page content =
, errorFlash controls session.flash
]
, div [ class "navbar-bg" ] [ text "" ]
, frameModal modal
, content
, footer []
[ div [ class "footer" ]
@@ -74,6 +75,18 @@ frame controls session page content =
]
frameModal : Maybe (Html msg) -> Html msg
frameModal maybeModal =
case maybeModal of
Just modal ->
div [ class "modal-mask" ]
[ div [ class "modal well" ] [ modal ]
]
Nothing ->
text ""
errorFlash : FrameControls msg -> String -> Html msg
errorFlash controls message =
if message == "" then