From 5c636f11cdfed82634ee572645d765b704941b68 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 3 Mar 2020 10:44:35 +0100
Subject: Initialize views from JavaScript

---
 src/audio.ml | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'src/audio.ml')

diff --git a/src/audio.ml b/src/audio.ml
index f7358a7..1446440 100644
--- a/src/audio.ml
+++ b/src/audio.ml
@@ -11,3 +11,24 @@ external setCurrentTime : audio -> int -> unit = "currentTime" [@@bs.set]
 let playOrReplay audio =
   let () = if currentTime audio > 0 then setCurrentTime audio 0 else () in
   play audio
+
+(* Sounds *)
+
+let c3 = create "sounds/c3.mp3"
+
+let c4 = create "sounds/c4.mp3"
+
+let c5 = create "sounds/c5.mp3"
+
+(* Play from step *)
+
+let playFromStep (config: Config.config) (step : Step.state) =
+  match step.step with
+  | Step.Prepare when step.remaining == config.prepare ->
+      playOrReplay c3
+  | Step.Work when step.remaining == config.work ->
+      playOrReplay c5
+  | Step.Rest when step.remaining == config.rest ->
+      playOrReplay c3
+  | Step.End -> playOrReplay c3
+  | _ -> if step.remaining <= 3 then playOrReplay c4 else ()
-- 
cgit v1.2.3