elm/lootalot-client
1
0
Fork 0
Code Issues 3 Pull Requests Releases Wiki Activity

this is a lot of work...

Browse Source
This commit is contained in:
Arthur Gerbaud
2019-11-29 16:20:07 +01:00
parent c50cb37900
commit dbc99830d6
12 changed files with 1941 additions and 1474 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/Main.elm
View File

@@ -143,7 +143,7 @@ update msg model =
Just logged ->
let
( page, cmd ) =
Page.gotoHome logged
Page.initHome logged
in
( model |> setPage page, Cmd.map PageMsg cmd )
@@ -158,20 +158,22 @@ update msg model =
Browser.External href ->
( model, Cmd.none )
( UrlChanged url, page ) ->
( UrlChanged url, from ) ->
-- Handle routing according to current page
case ( Route.fromUrl url, page ) of
( Just (Route.Home Route.MerchantLoot), Page.Admin admin ) ->
case Route.fromUrl url of
Just (Route.Home Route.MerchantLoot) ->
let
( shopPage, cmd ) =
Page.gotoShop (Admin.getSession admin)
Page.gotoShop from
in
( model |> setPage shopPage, Cmd.map PageMsg cmd )
( Just (Route.Home content), Page.Chest chest ) ->
( model |> setPage (Page.Chest (Chest.setContent content chest))
, Cmd.none
)
Just (Route.Home Route.PlayerLoot) ->
let
( shopPage, cmd ) =
Page.gotoHome from
in
( model |> setPage shopPage, Cmd.map PageMsg cmd )
{-
( Just route, Page.Admin admin ) ->