moves Modes inside Chest module

src/Page.elm

@@ -283,14 +283,14 @@ map func page =
 
 closeAction ( page, cmd ) =
     case page of
-        Home home ->
-            ( page, cmd )
+        Home from ->
+            gotoHome page
 
-        GroupChest chest ->
-            ( GroupChest (GroupChest.refresh chest), cmd )
+        GroupChest from ->
+            gotoGroupChest page
 
-        Shop shop ->
-            ( page, cmd )
+        Shop from ->
+            gotoShop page
 
         _ ->
             ( page, cmd )
@@ -302,6 +302,7 @@ update msg page =
         -- Capture API messages
         ( GotHomeMsg (Home.Api apiMsg), Home home, _ ) ->
             update (ApiMsg apiMsg) page
+                |> closeAction
 
         -- Relay others
         ( GotHomeMsg subMsg, Home home, _ ) ->
@@ -326,6 +327,7 @@ update msg page =
         -- Shop page
         ( GotShopMsg (Shop.Api apiMsg), Shop shop, _ ) ->
             update (ApiMsg apiMsg) page
+                |> closeAction
 
         ( GotShopMsg subMsg, Shop shop, _ ) ->
             Shop.update subMsg shop