little fixes

src/Page.elm

@@ -118,22 +118,10 @@ view page =
     ( title
     , { title = navbarTitle, links = navbarLinks }
     , [ div [ class "container" ] <|
-            viewSessionBar (maybeSession page) [ controls ]
+            [ viewSessionBar (maybeSession page) [ controls ]
-                :: div [ class "section" ]
+            , div [ class "section" ]
-                    [ case Maybe.map Session.notification (maybeSession page) of
+                content
-                        Just (Just t) ->
-                            viewNotification NotifySuccess t
-
-                        _ ->
-                            text ""
-                    , case Maybe.map Session.error (maybeSession page) of
-                        Just (Just t) ->
-                            viewNotification NotifyError t
-
-                        _ ->
-                            text ""
             ]
-                :: content
       ]
     )
 
@@ -153,8 +141,12 @@ viewNotification kind content =
                 NotifyError ->
                     "is-danger"
     in
-    div [ class ("notification " ++ className) ]
+    div [ class "level-item" ]
-        [ text content ]
+        [ span [ class ("tag " ++ className) ]
+            [ text content
+            , a [ class "delete" ] []
+            ]
+        ]
 
 
 viewSessionBar session controls =
@@ -183,10 +175,25 @@ viewSessionBar session controls =
 
                 Just Session.Admin ->
                     [ text "Admin" ]
+
+        notifications =
+            [ case Maybe.map Session.notification session of
+                Just (Just t) ->
+                    viewNotification NotifySuccess t
+
+                _ ->
+                    text ""
+            , case Maybe.map Session.error session of
+                Just (Just t) ->
+                    viewNotification NotifyError t
+
+                _ ->
+                    text ""
+            ]
     in
     section [ class "hero is-dark is-bold" ]
         [ div [ class "hero-body" ]
-            [ renderLevel user controls ]
+            [ renderLevel user (notifications ++ controls) ]
         ]
 
 

src/Page/GroupChest.elm

@@ -77,7 +77,7 @@ view model =
                         button
                             [ class "button"
                             , onClick
-                                (GotChestMsg <| Chest.showWithClaims (getClaimsFromSession model.session))
+                                (GotChestMsg <| Chest.claim (getClaimsFromSession model.session))
                             ]
                             [ text "Demander" ]
 

src/Wealth.elm

@@ -26,7 +26,9 @@ view wealth model =
                 Edit amount ->
                     viewUpdateWealth amount
            )
-        ++ [ span [ class "icon", onClick StartEdit ] [ i [ class "fas fa-tools" ] [] ] ]
+        ++ [ div [ class "level-item" ]
+                [ span [ class "icon", onClick StartEdit ] [ i [ class "fas fa-tools" ] [] ] ]
+           ]
 
 
 viewUpdateWealth amount =