ui: Mailbox purge prompts for confirmation

2025-12-17 17:47:03 +00:00 · 2018-12-12 20:37:39 -08:00
parent efe554bd77
commit f12a72871f
7 changed files with 94 additions and 23 deletions
--- a/ui/src/Main.elm
+++ b/ui/src/Main.elm
@@ -298,13 +298,15 @@ view model =
        framePage :
            ActivePage
            -> (msg -> Msg)
-            -> { title : String, content : Html msg }
+            -> { title : String, modal : Maybe (Html msg), content : Html msg }
            -> Document Msg
-        framePage page toMsg { title, content } =
+        framePage page toMsg { title, modal, content } =
            Document title
-                [ content
-                    |> Html.map toMsg
-                    |> Page.frame controls model.session page
+                [ Page.frame controls
+                    model.session
+                    page
+                    (Maybe.map (Html.map toMsg) modal)
+                    (Html.map toMsg content)
                ]
    in
    case model.page of