From 08baf335929724e18addfc553f42fe8a3b274a42 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 29 Sep 2018 22:14:30 +0200 Subject: Adds icon notification. There might be a browser function to make a notification, but let's go with an icon change for now... --- src/background/src/Update/HandleServerReply.elm | 30 ++++++++++++++++--------- 1 file changed, 20 insertions(+), 10 deletions(-) (limited to 'src/background') diff --git a/src/background/src/Update/HandleServerReply.elm b/src/background/src/Update/HandleServerReply.elm index 116a60c..983043d 100644 --- a/src/background/src/Update/HandleServerReply.elm +++ b/src/background/src/Update/HandleServerReply.elm @@ -7,6 +7,8 @@ import Json.Encode import Http +import List + -- Extension ------------------------------------------------------------------- import Action.Ports @@ -34,20 +36,28 @@ maybe_update_storage model cmds = then cmds else - ( - (Action.Ports.set_results - (Json.Encode.encode - 0 - (Json.Encode.list - (List.map - (Struct.Player.encode) - (Array.toList model.players) + let + players_list = (Array.toList model.players) + in + ( + (Action.Ports.set_results + (Json.Encode.encode + 0 + (Json.Encode.list + (List.map (Struct.Player.encode) players_list) ) ) ) + :: + ( + ( + if (List.any (Struct.Player.has_active_battles) players_list) + then (Action.Ports.activate_notification ()) + else (Action.Ports.disable_notification ()) + ) + :: cmds + ) ) - :: cmds - ) handle_set_battles : ( ( -- cgit v1.2.3-70-g09d2