Playing an ugly sound when a timer is ringing

1 files changed, 16 insertions, 0 deletions

diff --git a/src/Main.elm b/src/Main.elm
index 42bcbc4..48c7320 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -9,9 +9,13 @@ import Mouse
 import Json.Encode (Value)
 import Keyboard
 import Char
+import Dict
+import List
 
 import Model.Model (..)
 import Model.Position (..)
+import Model.TimerState (..)
+import Model.Id (..)
 import Update.Update (..)
 import View.View (view)
 
@@ -36,6 +40,18 @@ port clickPosition =
     Mouse.clicks
     (Signal.map positionEncoder Mouse.position)
 
+port ringingTimers : Signal Bool
+port ringingTimers =
+  Signal.map
+    (\model ->
+      model.timers
+        |> Dict.toList
+        |> List.map snd
+        |> List.any (\timer -> timer.state == Ringing)
+    )
+    model
+      |> Signal.dropRepeats
+
 port clickAway : Signal ()
 
 port initialTime : Time